FiveTech Support Forums

tftpfile() seems to bethe problem

I do not use it personnally, i use ftpgetfile and ftpputfile

Antonio ?

Vilian,

Please download FWPPC again, it should be ok now

Antonio,

Now it is generating the Exe, but when I try to connect it appears the following error:

Argument error
STR
Args:
[ 1] = U
stack calls:
STR(0)
INTERNETOPEN(0)
TINTERNET:NEW(0)

Vilian,

Please check if you are have an InternetOpen() in your code

Antonio,

I do not have a InternetOpen() in my code.

Vilian,

Please download FWPPC again, thanks for your feedback

Antonio,

Now the message is "cannot load WinInet.dll". I looked for in the Pocket for this archive but I did not find!

thanks for help.

Vilian,

Please try this:

MsgInfo( LoadLibrary( "wininet.dll" ) )

and let us know what value you get, thanks

Antonio,

This value is -2017256648

Vilian,

Though you get the msg "cannot load WinInet.dll", does the application work fine ?

Antonio,

The execution continues, but the archive is not sent for the site.

Vilian,

Could you please post the code that you are testing ? thanks

Antonio,

This code is

FUNCTION EnvArqFtp(cArq)
LOCAL oInternet,oFtp,nVezes:=0,lInter:=.F.

 oInternet := TInternet():New()
 oFTP      := TFTP():New( "ip by server", oInternet,"usr","pass" )
 MandaArq(CurDir()+"\"+cArq,"/public_html/sav/"+cArq,500,oFTP)

RETURN NIL

STATIC FUNCTION MandaArq(cArquivo,cRemote,nTam,oFtp)
LOCAL n,hSource,cBuffer:=Space( 6400 ),nBufSize:=6400,oFile

IF (hSource := FOpen( cArquivo )) < 0
RETURN .F.
ELSE
cBuffer := Space( 6400 )
nBufSize := 6400
SysRefresh()

   oFile := TFtpFile():New( cRemote, oFTP )
   IF Empty(oFile)
       RETURN .F.
   ELSE
       oFile:OpenWrite()
       FSeek( hSource, 0, 0 )

      nTotal := 0
      DO WHILE ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0
    nFeito := oFile:Write( SubStr( cBuffer, 1, nBytes ) )
    SysRefresh()
    nTotal += nBytes
     ENDDO
     oFile:End()
     FClose( hSource )
 ENDIF

ENDIF

RETURN .T.

Vilian,

We have tested your sample and checked these values:
MsgInfo( oFTP:hFTP )
MsgInfo( oFile:hFile )
they look ok, but InternetWriteFile() (oFile:Write()) is returning 0x87 for GetLastError(): ERROR_INVALID_PARAMETER
We don't know why it reports such value

Have you tried to use FtpPutFile() instead of sending blocks ?

Antonio,

I Tried to use FtpPutFile, but the system stops to answer without giving error message. You have an example of the use of this function?