FiveTech Software tech support forums

... 0 ) nRet:=0 msgalert("enviado") :oops: ELSE nRet:=GetLAstError() //AQUIE ES EN DONDE ENTRA msgalert("error") ENDIF INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN nRet

... "Your remote file", "Your local file", 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 ) ? FTPPUTFILE( hConnect, "Your local file", "Your remote file", 0, 0 ) INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN NIL #pragma BEGINDUMP #include "windows.h" #include "wininet.h" #include "hbapi.h" ...

... rtrim(rem_archivo),iif(lBinary,INTERNET_FLAG_TRANSFER_BINARY,INTERNET_FLAG_TRANSFER_ASCII), 0 ) nRet:=0 ELSE nRet:=GetLAstError() ENDIF INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN nRet FUNCTION Traer() LOCAL nRet LOCAL hInternet, hConnect hInternet = INTERNETOPEN( ...

... Fichier local DFICR := ALLTRIM(DDIR) + ALLTRIM(TFIC[I]) // FICHIER REMOTE IF FTPPUTFILE( hCon[I], DFICL, DFICR, 0, 0 ) AADD(LOGOUT,TFIC[I]) ENDIF INTERNETCLOSEHANDLE( hCon[I] ) NEXT HTH Richard

... MyUser,MyPassword, INTERNET_SERVICE_FTP, 0, 0 ) nRet := FTPPUTFILE( hConnect, CurDir()+"\"+cArq, "/sav/"+cArq, 0, 0 ) INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN NIL

... referenced in function "void __cdecl HB_FUN_INTERNETOPEN(void)" (?HB_FUN_INTERNETOPEN@@YAXXZ) menu.obj : error LNK2019: unresolved external symbol InternetCloseHandle referenced in function "void __cdecl HB_FUN_INTERNETCLOSEHANDLE(void)" (?HB_FUN_INTERNETCLOSEHANDLE@@YAXXZ) menu.obj : error LNK2019: ...

... referenced in function "void __cdecl HB_FUN_INTERNETOPEN(void)" (?HB_FUN_INTERNETOPEN@@YAXXZ) menu.obj : error LNK2019: unresolved external symbol InternetCloseHandle referenced in function "void __cdecl HB_FUN_INTERNETCLOSEHANDLE(void)" (?HB_FUN_INTERNETCLOSEHANDLE@@YAXXZ) menu.obj : error LNK2019: ...

... foi possivel conectar." else //InternetWriteFile(hFile, @sBuffer, 3200, @Ret) sBuffer:= Space(3200) InternetReadFile(hFile, @sBuffer, 3200, @Ret) InternetCloseHandle(hFile) InternetCloseHandle(hOpen) If Empty(sBuffer) MsgStop("Erro conectar servidor ...","Informação !!!") else MsgInfo("Retorno ...

... msginfo("Getlat:="+str(getlasterror())) if Intrespinf(@n1,message,@n2) msginfo("message:="+message) endif endif msginfo("Done!") Internetclosehandle(hftp) endif return .t. Probe Qftp aunque con problemas con el .ch que no era el correcto, compile como pude y nada. Acabo de venir ...