Function FtpWriteFile(byval hFile As HINTERNET, byval Buffer As Any ptr, byval nBuffer As Integer) As Integer
Функция записывает данные в файл на удаленном FTP сервере
hFile - хендл , возвращенный функцией FtpFileOpen
Buffer - указатель на буфер данных
nBuffer - длина записываемого буфера
Windows
#Include "window9.bi"
Dim As HINTERNET hOpen,hConnect,hFile
hOpen = InetOpen()
hConnect = FtpConnect(hOpen,"Ftp....","Login","Password")
If hConnect<>0 Then
hFile = FtpFileOpen(hConnect,"1.txt")
FtpWriteFile(hFile,@"Test",4)
FtpFileClose(hFile)
EndIf
InetFreeHandle(hConnect)
InetFreeHandle(hOpen)
Created with the Personal Edition of HelpNDoc: Free Kindle producer