rmarra

Estou usando esta classe para fazer conexão webservice. Porém preciso utiliza-la tb. para quem tem proxy. Alguém poderia ajudar de como proceder? Desde já agradeço! 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))-2) ***************************** 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 Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Estou usando esta classe para fazer conexão webservice. Porém preciso utiliza-la tb. para quem tem proxy. Alguém poderia ajudar de como proceder? Desde já agradeço! 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))-2) ***************************** 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 Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Podem desconsiderar. Resolvido conforme abaixo: Grato! ******************************************************************************** static procedure Enviaftp() ******************************************************************************** LOCAL n LOCAL cUrl LOCAL cStr LOCAL lRetorno := .T. LOCAL oUrl LOCAL oFTP LOCAL cUser LOCAL cServer LOCAL cPassword LOCAL cFile := "" LOCAL lElim DEFAULT lElim TO .F. if !net_use("CONFIG") return endif cServer := alltrim(PHL_SERV) cUser := alltrim(PHL_USU) cPassword := alltrim(PHL_SENHA) cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer cEnvOrig := "\pharmali\envio\phl.txt" cEnvDest := "/envio/phl99_" + str(year(date()),4) + ; substr(dtoc(date()),4,2) + left(dtoc(date()),2) + ; left(strtran(time(),":"), 2) + ; substr(strtran(time(),":"),3,2) + ; substr(strtran(time(),":"),5,2) + ".txt" if file(cEnvOrig) oUrl := tUrl():New( cUrl ) oFTP := tIPClientFtp():New( oUrl, .T. ) oFTP:nConnTimeout := 20000 oFTP:bUsePasv := .T. // Comprobamos si el usuario contiene una @ para forzar el userid if At( "@", cUser ) > 0 oFTP:oUrl:cServer := cServer oFTP:oUrl:cUserID := cUser oFTP:oUrl:cPassword := cPassword endif // function for displaying progress bar oFtp:exGauge := ( @FtpProgress() ) if oFTP:Open( cUrl ) if !oFtp:UploadFile( cEnvOrig, cEnvDest ) lRetorno := .F. else lRetorno := .t. endif oFTP:Close() if lRetorno msg( "Enviado com sucesso !" ) else msg( "Falha no Envio !" ) endif else cStr := "Não consegui conectar com o servidor FTP" + " " + oURL:cServer + ";;" if oFTP:SocketCon == NIL cStr += "Conexão não inicializada" elseif InetErrorCode( oFTP:SocketCon ) == 0 cStr += "Resposta do servidor:" + " "+ oFTP:cReply else cStr += "Erro na conexão:" + " " +InetErrorDesc( oFTP:SocketCon ) endif msg(cStr) endif else msg("Não existe arquivo para ser enviado.") endif close CONFIG return Nil Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, alguém poderia postar um exemplo prático e que funcione de Envio e Recebimento de arquivos via FTP em Harbour? Abaixo a classe que utilize e o programa de envio e recebimento. Estranho que conecto no servidor, porém não consigo enviar e nem receber arquivos. Desde já agradeço! ==> Classe que utilizo. // FiveWin Class TFTP for Internet FTP management. Based on Windows WinINet.dll #include "FiveWin.ch" #include "Struct.ch" #define INTERNET_SERVICE_FTP 1 #define FTP_PORT 21 //----------------------------------------------------------------------------// CLASS TFTP DATA oInternet // TInternet container object DATA cSite // URL address DATA hFTP // handle of the FTP connection DATA cUserName // user name to login DATA cPassword // password to login METHOD New( cFTPSite, oInternet, cUserName, cPassword ) CONSTRUCTOR // generic constructor METHOD End() // generic destructor METHOD DeleteFile( cFileName ) // deletes a remote FTP file METHOD Directory( cMask ) // as Clipper Directory() but on a FTP site! ENDCLASS //----------------------------------------------------------------------------// METHOD New( cFTPSite, oInternet, cUserName, cPassword ) CLASS TFTP ::oInternet = oInternet ::cSite = cFTPSite ::cUserName = cUserName ::cPassword = cPassword if oInternet:hSession != nil ::hFTP = InternetConnect( oInternet:hSession, cFTPSite, FTP_PORT,; ::cUserName, ::cPassword,; INTERNET_SERVICE_FTP, 0, 0 ) AAdd( oInternet:aFTPs, Self ) endif return Self //----------------------------------------------------------------------------// METHOD End() CLASS TFTP if ::hFTP != nil InternetCloseHandle( ::hFTP ) ::hFTP = nil endif return nil //----------------------------------------------------------------------------// METHOD DeleteFile( cFileName ) CLASS TFTP return If( ::hFTP != nil, FtpDeleteFile( ::hFTP, cFileName ), .f. ) //----------------------------------------------------------------------------// METHOD Directory( cMask ) CLASS TFTP local hFTPDir, aFiles := {} local oWin32FindData, cBuffer DEFAULT cMask := "*.*" STRUCT oWin32FindData MEMBER nFileAttributes AS DWORD MEMBER nCreationTime AS STRING LEN 8 MEMBER nLastReadAccess AS STRING LEN 8 MEMBER nLastWriteAccess AS STRING LEN 8 MEMBER nSizeHight AS DWORD MEMBER nSizeLow AS DWORD MEMBER nReserved0 AS DWORD MEMBER nReserved1 AS DWORD MEMBER cFileName AS STRING LEN 260 MEMBER cAltName AS STRING LEN 28 ENDSTRUCT if ::hFTP != nil cBuffer = oWin32FindData:cBuffer hFTPDir = FtpFindFirstFile( ::hFTP, cMask, @cBuffer, 0, 0 ) oWin32FindData:cBuffer = cBuffer if ! Empty( oWin32FindData:cFileName ) AAdd( aFiles, { oWin32FindData:cFileName,; oWin32FindData:nSizeLow } ) while InternetFindNextFile( hFTPDir, @cBuffer ) oWin32FindData:cBuffer = cBuffer AAdd( aFiles, { oWin32FindData:cFileName,; oWin32FindData:nSizeLow } ) end endif InternetCloseHandle( hFTPDir ) endif return aFiles ==> Meu programa de Envio e Recebimento. **************************************************************************** procedure Ftp() **************************************************************************** /* // Enviar e receber arquivos via FTP da Pharmalink. // Rondinelli - 02/07/2009 */ if DeCriptWord( Get4Ini("PHL","LHPEP" ,"C:\RCACFG.INI")) # "SIM" msg("PE Pharmalink não habilitado.") return Nil endif VerFTP() **************************************************************************** static function VerFTP() **************************************************************************** private cServidor, cUsuario, cSenha if !net_use("CONFIG") return endif cServidor := alltrim(PHL_SERV) cUsuario := alltrim(PHL_USU) cSenha := alltrim(PHL_SENHA) oInternet := TInternet():New() oFTP := TFTP():New( cServidor, oInternet, cUsuario, cSenha ) if oInternet:hSession # Nil if !Empty( oFTP:hFTP ) //Abriu o Ftp MandaArq(oFtp,oInternet) RecebArq(oFtp,oInternet) else msg("Sem Acesso ao FTP.") endif else msg("Sem Acesso a Internet.") endif oInternet:End() oFtp:End() close CONFIG return Nil **************************************************************************** static function MandaArq(oFtp,oInternet) **************************************************************************** local nTotal, hSource, cBuffer := Space( 6400 ), nBufSize := 6400,; oFile cEnvOrig := "\pharmali\envio\phl.txt" cEnvDest := "/" + cUsuario + "/envio/phl99_" + str(year(date()),4) + ; substr(dtoc(date()),4,2) + left(dtoc(date()),2) + ; left(strtran(time(),":"), 2) + ; substr(strtran(time(),":"),3,2) + ; substr(strtran(time(),":"),5,2) + ".txt" hSource := FOpen( cEnvOrig ) if !file(cEnvOrig) msg("Arquivo para envio não existe.") return Nil endif barra("Enviando arquivo " + cEnvOrig + " para " + cEnvDest + "...") cBuffer := Space( 6400 ) nBufSize := 6400 SysRefresh() msg(cEnvDest) oFile := TFtpFile():New( cEnvDest, oFTP ) if Empty(oFile) msg("Erro na criação do arquivo no FTP.") return Nil endif oFile:OpenWrite() FSeek( hSource, 0, 0 ) nTotal := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 nFeito := oFile:Write( SubStr( cBuffer, 1, nBytes ) ) barra("Enviando arquivo " + cEnvOrig + " para " + cEnvDest + " -> " + alltrim(str(nBufSize)) + "...") SysRefresh() nTotal += nBufSize end oFile:End() FClose( hSource ) msg("Arquivo com " + transform(nTotal,"9,999,999,999") + " Bites enviado com sucesso...") barra("") ferase(cEnvOrig) return Nil **************************************************************************** static function RecebArq(oFtp,oInternet) **************************************************************************** local nX, hTarget, cBuffer := Space( 6400 ), nBufSize := 6400 ,; aVerFiles, nSeconds, nFeito := 0, cArqRec, cArqEnv, lErro, nTot,; nArq := 1 aVerFiles := oFTP:Directory("/" + cUsuario + "/Retorno/*.RET" ) aVerFiles := ASort(aVerFiles,,,{|x,y| x[1] < y[1]}) barra("Recebendo arquivo de retorno...") For nX := 1 To Len(aVerFiles) cArqEnv := "/" + cUsuario + "/Retorno/" + aVerFiles[nX][1] do while .t. cArqRec := "\PHARMALI\RETORNO\PHL" + strzero(nArq,5) + ".RET" if file(cArqRec) nArq++ loop endif exit enddo cBuffer := Space( 6400 ) nBufSize := 6400 //---- Recebe o arquivo do FTP ----// hTarget := FCreate( cArqRec ) oFile := TFtpFile():New( cArqEnv, oFTP ) If oFile # Nil oFile:OpenRead() nSeconds := Seconds()+600 nTot := 0 lErro := .F. while ( nBytes := Len( cBuffer := oFile:Read( nBufSize ) ) ) > 0 FWrite( hTarget, cBuffer, nBytes ) SysRefresh() nTot += nBytes If Seconds() > nSeconds lErro := .T. Endif end FClose( hTarget ) oFile:End() if !lErro if nTot = 0 loop endif msg("Recebidos " + transform(nTot,"9,999,999,999") + " Bytes.") FClose( hTarget ) //---- Elimina do Diretório do FTP ----// oFtp:DeleteFile( cArqEnv ) ++nFeito else msg("Erro lendo arquivo " + cArqEnv + ".") return Nil endif else msg("Não foi possível abrir o arquivo " + cArqEnv + ".") return Nil endif Next if nFeito == 0 msg("Não houve arquivo para receber.") endif barra() Return Nil Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Editado por - rmarra on 29/06/2011 10:18:04

Olá pessoal, alguém poderia postar um exemplo prático e que funcione de Envio e Recebimento de arquivos via FTP em Harbour? Abaixo a classe que utilize e o programa de envio e recebimento. Estranho que conecto no servidor, porém não consigo enviar e nem receber arquivos. Desde já agradeço! ==> Classe que utilizo. // FiveWin Class TFTP for Internet FTP management. Based on Windows WinINet.dll #include "FiveWin.ch" #include "Struct.ch" #define INTERNET_SERVICE_FTP 1 #define FTP_PORT 21 //----------------------------------------------------------------------------// CLASS TFTP DATA oInternet // TInternet container object DATA cSite // URL address DATA hFTP // handle of the FTP connection DATA cUserName // user name to login DATA cPassword // password to login METHOD New( cFTPSite, oInternet, cUserName, cPassword ) CONSTRUCTOR // generic constructor METHOD End() // generic destructor METHOD DeleteFile( cFileName ) // deletes a remote FTP file METHOD Directory( cMask ) // as Clipper Directory() but on a FTP site! ENDCLASS //----------------------------------------------------------------------------// METHOD New( cFTPSite, oInternet, cUserName, cPassword ) CLASS TFTP ::oInternet = oInternet ::cSite = cFTPSite ::cUserName = cUserName ::cPassword = cPassword if oInternet:hSession != nil ::hFTP = InternetConnect( oInternet:hSession, cFTPSite, FTP_PORT,; ::cUserName, ::cPassword,; INTERNET_SERVICE_FTP, 0, 0 ) AAdd( oInternet:aFTPs, Self ) endif return Self //----------------------------------------------------------------------------// METHOD End() CLASS TFTP if ::hFTP != nil InternetCloseHandle( ::hFTP ) ::hFTP = nil endif return nil //----------------------------------------------------------------------------// METHOD DeleteFile( cFileName ) CLASS TFTP return If( ::hFTP != nil, FtpDeleteFile( ::hFTP, cFileName ), .f. ) //----------------------------------------------------------------------------// METHOD Directory( cMask ) CLASS TFTP local hFTPDir, aFiles := {} local oWin32FindData, cBuffer DEFAULT cMask := "*.*" STRUCT oWin32FindData MEMBER nFileAttributes AS DWORD MEMBER nCreationTime AS STRING LEN 8 MEMBER nLastReadAccess AS STRING LEN 8 MEMBER nLastWriteAccess AS STRING LEN 8 MEMBER nSizeHight AS DWORD MEMBER nSizeLow AS DWORD MEMBER nReserved0 AS DWORD MEMBER nReserved1 AS DWORD MEMBER cFileName AS STRING LEN 260 MEMBER cAltName AS STRING LEN 28 ENDSTRUCT if ::hFTP != nil cBuffer = oWin32FindData:cBuffer hFTPDir = FtpFindFirstFile( ::hFTP, cMask, @cBuffer, 0, 0 ) oWin32FindData:cBuffer = cBuffer if ! Empty( oWin32FindData:cFileName ) AAdd( aFiles, { oWin32FindData:cFileName,; oWin32FindData:nSizeLow } ) while InternetFindNextFile( hFTPDir, @cBuffer ) oWin32FindData:cBuffer = cBuffer AAdd( aFiles, { oWin32FindData:cFileName,; oWin32FindData:nSizeLow } ) end endif InternetCloseHandle( hFTPDir ) endif return aFiles ==> Meu programa de Envio e Recebimento. **************************************************************************** procedure Ftp() **************************************************************************** /* // Enviar e receber arquivos via FTP da Pharmalink. // Rondinelli - 02/07/2009 */ if DeCriptWord( Get4Ini("PHL","LHPEP" ,"C:\RCACFG.INI")) # "SIM" msg("PE Pharmalink não habilitado.") return Nil endif VerFTP() **************************************************************************** static function VerFTP() **************************************************************************** private cServidor, cUsuario, cSenha if !net_use("CONFIG") return endif cServidor := alltrim(PHL_SERV) cUsuario := alltrim(PHL_USU) cSenha := alltrim(PHL_SENHA) oInternet := TInternet():New() oFTP := TFTP():New( cServidor, oInternet, cUsuario, cSenha ) if oInternet:hSession # Nil if !Empty( oFTP:hFTP ) //Abriu o Ftp MandaArq(oFtp,oInternet) RecebArq(oFtp,oInternet) else msg("Sem Acesso ao FTP.") endif else msg("Sem Acesso a Internet.") endif oInternet:End() oFtp:End() close CONFIG return Nil **************************************************************************** static function MandaArq(oFtp,oInternet) **************************************************************************** local nTotal, hSource, cBuffer := Space( 6400 ), nBufSize := 6400,; oFile cEnvOrig := "\pharmali\envio\phl.txt" cEnvDest := "/" + cUsuario + "/envio/phl99_" + str(year(date()),4) + ; substr(dtoc(date()),4,2) + left(dtoc(date()),2) + ; left(strtran(time(),":"), 2) + ; substr(strtran(time(),":"),3,2) + ; substr(strtran(time(),":"),5,2) + ".txt" hSource := FOpen( cEnvOrig ) if !file(cEnvOrig) msg("Arquivo para envio não existe.") return Nil endif barra("Enviando arquivo " + cEnvOrig + " para " + cEnvDest + "...") cBuffer := Space( 6400 ) nBufSize := 6400 SysRefresh() msg(cEnvDest) oFile := TFtpFile():New( cEnvDest, oFTP ) if Empty(oFile) msg("Erro na criação do arquivo no FTP.") return Nil endif oFile:OpenWrite() FSeek( hSource, 0, 0 ) nTotal := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 nFeito := oFile:Write( SubStr( cBuffer, 1, nBytes ) ) barra("Enviando arquivo " + cEnvOrig + " para " + cEnvDest + " -> " + alltrim(str(nBufSize)) + "...") SysRefresh() nTotal += nBufSize end oFile:End() FClose( hSource ) msg("Arquivo com " + transform(nTotal,"9,999,999,999") + " Bites enviado com sucesso...") barra("") ferase(cEnvOrig) return Nil **************************************************************************** static function RecebArq(oFtp,oInternet) **************************************************************************** local nX, hTarget, cBuffer := Space( 6400 ), nBufSize := 6400 ,; aVerFiles, nSeconds, nFeito := 0, cArqRec, cArqEnv, lErro, nTot,; nArq := 1 aVerFiles := oFTP:Directory("/" + cUsuario + "/Retorno/*.RET" ) aVerFiles := ASort(aVerFiles,,,{|x,y| x[1] < y[1]}) barra("Recebendo arquivo de retorno...") For nX := 1 To Len(aVerFiles) cArqEnv := "/" + cUsuario + "/Retorno/" + aVerFiles[nX][1] do while .t. cArqRec := "\PHARMALI\RETORNO\PHL" + strzero(nArq,5) + ".RET" if file(cArqRec) nArq++ loop endif exit enddo cBuffer := Space( 6400 ) nBufSize := 6400 //---- Recebe o arquivo do FTP ----// hTarget := FCreate( cArqRec ) oFile := TFtpFile():New( cArqEnv, oFTP ) If oFile # Nil oFile:OpenRead() nSeconds := Seconds()+600 nTot := 0 lErro := .F. while ( nBytes := Len( cBuffer := oFile:Read( nBufSize ) ) ) > 0 FWrite( hTarget, cBuffer, nBytes ) SysRefresh() nTot += nBytes If Seconds() > nSeconds lErro := .T. Endif end FClose( hTarget ) oFile:End() if !lErro if nTot = 0 loop endif msg("Recebidos " + transform(nTot,"9,999,999,999") + " Bytes.") FClose( hTarget ) //---- Elimina do Diretório do FTP ----// oFtp:DeleteFile( cArqEnv ) ++nFeito else msg("Erro lendo arquivo " + cArqEnv + ".") return Nil endif else msg("Não foi possível abrir o arquivo " + cArqEnv + ".") return Nil endif Next if nFeito == 0 msg("Não houve arquivo para receber.") endif barra() Return Nil Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Editado por - rmarra on 29/06/2011 10:18:04

Obrigado Geovanni, vou testar! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

É porque o cliente usa proxy na sua rede. Precisaria passar o Login, Senha, IP e porta para liberação para acesso a internet. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Senhores, a classe funciona perfeita, porém tem esta questão do proxy. Será que realmente não tem como ajustar para funcionar com proxy? Obrigado!! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá Marcelo, tb. estou começando a ver agora. No exemplo abaixo, ele me retorna o conteúdo xml. Meu problema é usar com proxy por ainda ser 16 bits. Ex: ws:=TdWebService():new() msgalert(ws:OpenWS('http://www.medifacil.com.br/httpservice.php?servico=1&usuario=3245&senha=cb0f889221cccf709f727cac52c27f8c&beneficiario=MG-0000-000000')) Assim que evoluir posto demais exemplos. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Bom dia Vailton! é que para este sistema que preciso ainda é em 16 bits. Tem alguma solução? Obrigado! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Boa noite a todos.. Senhores, eu baixei da parte de dicas na pagina principal do site uma classe que faz uso de webservice, e por sinal funciona muito bem. http://www.fivewin.com.br/exibedicas.asp?id=480 Mas gostaria de usar com proxy, é possivel? Se sim, poderiam compartilhar? Antecipadamente agradeço. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Boa noite a todos.. Senhores, eu baixei da parte de dicas na pagina principal do site uma classe que faz uso de webservice, e por sinal funciona muito bem. http://www.fivewin.com.br/exibedicas.asp?id=480 Mas gostaria de usar com proxy, é possivel? Se sim, poderiam compartilhar? Antecipadamente agradeço. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

O problema que o erro ocorre antes do sistema subir! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Obrigado!!! Fiz um teste básico e aparentemente deu certo! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Não entendi bem como fazer a função time() funcionar corretamente no fw. Preciso que funcione sem telas, janelas, barras, etc. Vc poderia simplificar para mim? Grato. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Editado por - rmarra on 29/09/2009 08:51:51

Prezados, alguém já descobriu como pegar a hora atual no XP? Ex: Entro no sistema as 16:00h, mudo a hora do computador para 17:30h, uso a função time() para pegar a hora atual e continua a anterior. Só passa a pegar a correta se sair do sistema e entrar novamente. Preciso muito que isto funcione em FW 16 bits. Obrigado! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Prezados, alguém já descobriu como pegar a hora atual no XP? Ex: Entro no sistema as 16:00h, mudo a hora do computador para 17:30h, uso a função time() para pegar a hora atual e continua a anterior. Só passa a pegar a correta se sair do sistema e entrar novamente. Preciso muito que isto funcione em FW 16 bits. Obrigado! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Prezados, alguém já descobriu como pegar a hora atual no XP? Ex: Entro no sistema as 16:00h, mudo a hora do computador para 17:30h, uso a função time() para pegar a hora atual e continua a anterior. Só passa a pegar a correta se sair do sistema e entrar novamente. Preciso muito que isto funcione em FW 16 bits. Obrigado! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop Editado por - rmarra on 28/09/2009 17:46:52

Obrigado fluna, acho que é algo por aí mesmo. Sei que vai dar trabalho, mas com o PAF temos que ter a opção do servidor cair continuar fazendo venda localmente. Um abraço! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Ok, vou dar uma futucada! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Kapi, como é a sintaxe de uso deste comando WNETADDCON()? Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Kapi, deveria ser assim: - Fazendo venda normal pela rede atualizando no banco de dados do servidor. - A rede caiu, mas as estações devem continuar vendendo e imprimindo a venda localmente. - Rede voltou, atualizar os dados das vendas locais das estações no banco de dados do servidor Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, gostaria de pedir uma dica. Preciso colocar meu sistema para caso o servidor da rede local caia, os terminais continuem fazendo venda e quando a rede voltar, atualizar as informações no servidor. Parece-me que existe uma rotina usando FTP local para replicar as informações dando segurança, evitando uma possível copia de arquivos de uma estação para outra ocasionando sérios transtornos. OBS: 1- O banco de dados ainda é DBF/CDX. 2- Este sistema é em FW 16 Bits Ficarei muito grato com alguma ajuda. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Olá pessoal, gostaria de pedir uma dica. Preciso colocar meu sistema para caso o servidor da rede local caia, os terminais continuem fazendo venda e quando a rede voltar, atualizar as informações no servidor. Parece-me que existe uma rotina usando FTP local para replicar as informações dando segurança, evitando uma possível copia de arquivos de uma estação para outra ocasionando sérios transtornos. OBS: 1- O banco de dados ainda é DBF/CDX. 2- Este sistema é em FW 16 Bits Ficarei muito grato com alguma ajuda. Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop

Coloquei para só criar o arquivo grande já no FTP ao invez de cria-lo grande e enviar e deu certo. Obrigado!!! Rondinelli - Itaocara-RJ Clipper 5.3b, Fivewin 2.6, Blinker 7, WorkShop