BenyHapper

Tem um detalhe que gostaria de saber, tem como a xDev compilar e compactar o EXE com o UPX que nem o Verce faz? A compactação do EXE além diminuir o tamanho do EXE a compactação impede que o EXE pegue virus, por isso considero importante demais essa opção. No resto a xDev está demais coloca o Desenvolvimento com o Five e Harbour no topo do podium. Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Utilizei para fazer isso um exemplo aqui mesmo do forum para acesso a webservice e disponibilizei no meu site o mesmo. Para acessar utilize da seguinte forma. dWService.Prg inicio prg------------------------------- #include "fivewin.ch" #include "dll.ch" static xdll ***************************** CLASS TdWebService DATA hOpen DATA sbuffer HIDDEN DATA xDLL HIDDEN METHOD New(buffersize) CONSTRUCTOR METHOD OpenWS(url) METHOD End() ENDCLASS ***************************** METHOD New(conexion,buffersize) CLASS TdWebService DEFAULT buffersize:=3200 ::sbuffer:=buffersize xDll:=LoadLib32("wininet.dll") ::hOpen = InternetOpen("TdWebService", 1,,, 0) RETURN Self ***************************** METHOD OpenWS(url) CLASS TdWebService local hFile,ret,xml hFile = InternetOpenUrl(::hOpen, url,"",0,,0) xml:=space(::sbuffer) InternetReadFile(hFile, @xml, ::sbuffer, @Ret) return subst(alltrim(xml),1,len(alltrim(xml))) ***************************** METHOD End() CLASS TdWebService FreeLib32(xDll) return nil ***************************** DLL32 FUNCTION InternetOpen( cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,; n4 AS DWORD ) AS LONG PASCAL ; FROM "InternetOpenA" LIB xdll Dll32 Function InternetReadFile(hFile As 7, @sBuffer As 8, lNumBytesToRead As 7, @lNumberOfBytesRead As 7) As 7 PASCAL Lib xdll Dll32 Function InternetOpenUrl(hInternetSession As 7, lpszUrl As 8, lpszHeaders As 8, dwHeadersLength As 7, dwFlags As 7, dwContext As 7) As 7 FROM "InternetOpenUrlA" PASCAL Lib xdll DLL32 FUNCTION InternetCloseHandle( hSession AS LONG ) AS BOOL PASCAL LIB xdll fim do prg-------------------------------- Utilizando o webservice para pegar o ip da conexão EXEMPLO.PRG inicio prg--------------------------------- #include "fivewin.ch" static xDLL,oGet,oSay ***************************** Function Main() local ws:=TdWebService():new() MSGINFO(ws:OpenWS("http://www.exatus.net/ip.asp")) ws:end() return nil ***************************** fim do prg-------------------------- O endereço http://www.exatus.net/ip.asp é do meu site e deixarei lá o webservice [ip.asp] para que todos possam utiliza-lo. Espero ter ajudado a todos Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Bom Yuri vc precisa pegar o seu IP de Conexão com a Internet. Utilizei para fazer isso um exemplo aqui mesmo do forum para acesso a webservice e disponibilizei no meu site o mesmo. Para acessar utilize da seguinte forma. dWService.Prg inicio prg------------------------------- #include "fivewin.ch" #include "dll.ch" static xdll ***************************** CLASS TdWebService DATA hOpen DATA sbuffer HIDDEN DATA xDLL HIDDEN METHOD New(buffersize) CONSTRUCTOR METHOD OpenWS(url) METHOD End() ENDCLASS ***************************** METHOD New(conexion,buffersize) CLASS TdWebService DEFAULT buffersize:=3200 ::sbuffer:=buffersize xDll:=LoadLib32("wininet.dll") ::hOpen = InternetOpen("TdWebService", 1,,, 0) RETURN Self ***************************** METHOD OpenWS(url) CLASS TdWebService local hFile,ret,xml hFile = InternetOpenUrl(::hOpen, url,"",0,,0) xml:=space(::sbuffer) InternetReadFile(hFile, @xml, ::sbuffer, @Ret) return subst(alltrim(xml),1,len(alltrim(xml))) ***************************** METHOD End() CLASS TdWebService FreeLib32(xDll) return nil ***************************** DLL32 FUNCTION InternetOpen( cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,; n4 AS DWORD ) AS LONG PASCAL ; FROM "InternetOpenA" LIB xdll Dll32 Function InternetReadFile(hFile As 7, @sBuffer As 8, lNumBytesToRead As 7, @lNumberOfBytesRead As 7) As 7 PASCAL Lib xdll Dll32 Function InternetOpenUrl(hInternetSession As 7, lpszUrl As 8, lpszHeaders As 8, dwHeadersLength As 7, dwFlags As 7, dwContext As 7) As 7 FROM "InternetOpenUrlA" PASCAL Lib xdll DLL32 FUNCTION InternetCloseHandle( hSession AS LONG ) AS BOOL PASCAL LIB xdll fim do prg-------------------------------- Utilizando o webservice para pegar o ip da conexão EXEMPLO.PRG inicio prg--------------------------------- #include "fivewin.ch" static xDLL,oGet,oSay ***************************** Function Main() local ws:=TdWebService():new() MSGINFO(ws:OpenWS("http://www.exatus.net/ip.asp")) ws:end() return nil ***************************** fim do prg-------------------------- O endereço http://www.exatus.net/ip.asp é do meu site e deixarei lá o webservice [ip.asp] para que todos possam utiliza-lo. Espero ter ajudado a todos Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Yuri vc quer informar um site ex: www.uol.com.br e ele retornar o IP deste site? Se for isso basta usar a função abaixo FUNCTION PEGAIP(Host) Local cVar1 WsaStartUp() cVar1 := GetHostByName(Host) WsaCleanUp() RETURN cVar1 Para chamar EX: MSGINFO(PEGAIP("www.uol.com.br")) Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Para utilizar o Driver CDX com campo memos do tipo .FPT basta vc incluir a instrução abaixo no inicio de seu prg, mas antes da Function Main() REQUEST DBFFPT Desta forma vc está informando que usará campos memos do tipo .FPT ao invés do padrão que é .DBT Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Alguém para dar uma luz neste caso? Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Consegui fazer o ADS funcionar, porém com uma versão antiga que tem aqui no site para baixar, versão 6.2 do ADS. Mas não consegui fazer funcionar com as versões 7.1 e nem a 8.1. Acho que por causa das versões do Fivewin for Harbour 2.6 e xHarbour 99.40 que estou utilizando, é possivel utilizar as novas versões do ADS com essas versões? Se sim onde conseguir o ADS.CH, RDDADS.LIB, ACE32.LIB compativeis com essas versões? Tentei também usar a modificação da RDDADS a xRDDADS mas sem sucesso, existe como utiliza-la com as versões que utilizo? Onde conseguir os arquivos compativeis? Outra situação, no SIXCDX existe um comando que dá PACK no campo MEMO, pois quando vc dá PACK no arquivo ele apaga o registro, mas não apaga no arquivo DBT ou FPT o campo MEMO deixando o arquivo enorme, esse comando do SIXCDX resolve isso. Existe algo parecido no ADS? Alguém tem um manual com os comando e as funções do ADS? Agradeço qualquer ajuda, pois graças a descoberta do ADS, estamos analisando a mudança para 32bits, pois ele vai nos dar a confiança que temos utilizando o SIXCDX sem termos de fazer grandes alterações para uso. Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP Editado por - BenyHapper on 28/05/2007 10:49:56

Estou tentando usar o ADS, baixei daqui o ADS Local 7.1 e inclui no meu prg principal as seguintes informações No inicio do PRG, antes da Function Main() #INCLUDE "ADS.CH" REQUEST ADS REQUEST OrdKeyNo REQUEST OrdKeyCount REQUEST DBFFPT Após a Function Main() rddRegister( "ADS", 1 ) rddsetdefault( "ADS" ) SET SERVER LOCAL AdsSetFILETYPE(2) ADSLOCKING(.t.) Primeiro problema, eu não tenho a ADS.CH, a configuração acima é para CDX, qual utilizar para SIXCDX? Estou migrando para 32bits, estou utilizando o FWH2.6 e XHarbour 99.40 Agradeço a ajuda, se puderem passar passo a passo como fazer. Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP Editado por - BenyHapper on 28/05/2007 17:00:56

Estou tentando usar o ADS, baixei daqui o ADS Local 7.1 e inclui no meu prg principal as seguintes informações No inicio do PRG, antes da Function Main() #INCLUDE "ADS.CH" REQUEST ADS REQUEST OrdKeyNo REQUEST OrdKeyCount REQUEST DBFFPT Após a Function Main() rddRegister( "ADS", 1 ) rddsetdefault( "ADS" ) SET SERVER LOCAL AdsSetFILETYPE(2) ADSLOCKING(.t.) Primeiro problema, eu não tenho a ADS.CH, a configuração acima é para CDX, qual utilizar para SIXCDX? Estou migrando para 32bits, estou utilizando o FWH2.6 e XHarbour 99.40 Agradeço a ajuda, se puderem passar passo a passo como fazer. Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP Editado por - BenyHapper on 28/05/2007 17:00:56

Só que essa maneira é utilizando um BMP eu queria usar um JPG é mais leve Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Alguém sabe como deixar a imagem JPG de Fundo na Janela[Window] sempre centralizada não importa o tamanho da janela? DEFINE WINDOW oWnd FROM 0,40 to 40,120 TITLE WSIST; BRUSH oBrush; ICON oIcon; MENU BuildMenu() WFIGC="CONTR0.JPG" DEFINE BITMAP oBmps FILENAME WFIGC ADJUST TelaAlt := oWnd:nHeight() - 538 TelaLarg := 717 - oWnd:nWidth() MSGINFO(TelaAlt,TelaLarg) @ TelaLarg,TelaAlt IMAGE oImage PIXEL Size 717,538 Of oWnd oImage:Progress( .F. ) oImage:LoadBmp( WFIGC ) ACTIVATE WINDOW oWnd MAXIMIZED Só não conseguir centralizar Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Alguém sabe como deixar a imagem JPG de Fundo na Janela[Window] sempre centralizada não importa o tamanho da janela? DEFINE WINDOW oWnd FROM 0,40 to 40,120 TITLE WSIST; BRUSH oBrush; ICON oIcon; MENU BuildMenu() WFIGC="CONTR0.JPG" DEFINE BITMAP oBmps FILENAME WFIGC ADJUST TelaAlt := oWnd:nHeight() - 538 TelaLarg := 717 - oWnd:nWidth() MSGINFO(TelaAlt,TelaLarg) @ TelaLarg,TelaAlt IMAGE oImage PIXEL Size 717,538 Of oWnd oImage:Progress( .F. ) oImage:LoadBmp( WFIGC ) ACTIVATE WINDOW oWnd MAXIMIZED Só não conseguir centralizar Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Alguém tem a LIB FILEXLS para ser utilizada com FIVEWIN for HAURBOUR 2.6 e XHARBOUR 99.40 ? Baixei o que tem no forum da fivetechsoft, mas está compilada para versões inferiores e não serve. Agradeço quem tiver a LIB para disponibilizar Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Alguém tem a LIB FILEXLS para ser utilizada com FIVEWIN for HAURBOUR 2.6 e XHARBOUR 99.40 ? Baixei o que tem no forum da fivetechsoft, mas está compilada para versões inferiores e não serve. Agradeço quem tiver a LIB para disponibilizar Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Alessandro e Fernado, valeu mesmo fiz os testes e funcionou corretamente. Obrigado, Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Descobri um único problema que não consegui resolver, quando o relatório vem em modo paisegem e no preview eu troco para outra impressora ele ignorar o formato paisagem e imprime em formato retrato, cortando as informações. Vc teve esse problema? Bene E-mail :benyhapper@hotmail.com FW2.4 + CL53b + Blinker 7.0 + @Say + SIXCDX MSN: benyhapper@hotmail.com São Paulo/SP

Alessandro valeu pela dica, funcionou blz. Editado por - benyhapper on 10/01/2007 14:54:58

Criei um novo botão no Preview e nele executo uma função para setar uma determinada impressora, até consigo seta-la mas o preview não assume a nova configuração, como fazer ele aceitar a impressora que setei. Lembro que já estou com o preview aberto e na hora que o preview abri estava seta para impressora A,mas eu tenho um botão dentro do preview que seta para a impressora B, porém o preview continua utilizando a impressora A ao invés de utilizar a impressora B que acabei de informar,como fazer para o preview aceitar a nova impressora. Fivewin 2.6 for Clipper - 16 bits- Obs: Não quero migrar para 32 bits devidos a incompatibilidades, refazer telas, não possui o driver SIXCDX que acho execelente.

Criei um novo botão no Preview e nele executo uma função para setar uma determinada impressora, até consigo seta-la mas o preview não assume a nova configuração, como fazer ele aceitar a impressora que setei. Lembro que já estou com o preview aberto e na hora que o preview abri estava seta para impressora A,mas eu tenho um botão dentro do preview que seta para a impressora B, porém o preview continua utilizando a impressora A ao invés de utilizar a impressora B que acabei de informar,como fazer para o preview aceitar a nova impressora. Fivewin 2.6 for Clipper - 16 bits- Obs: Não quero migrar para 32 bits devidos a incompatibilidades, refazer telas, não possui o driver SIXCDX que acho execelente.