Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   ftp в Delphi 7 (https://forum.antichat.xyz/showthread.php?t=147262)

lamer28 10.10.2009 21:57
ftp в Delphi 7
 
сабж: требуется передать файл на фтп сервер..
это дело должно быть на api или с использованием wininet..
дайте линк на статью по этому поводу или код подобный..

xa-xa89 10.10.2009 23:43
http://www.cracklab.ru/pro/faq.php?pg=2302
этого должно быть достаточно что бы разобраться.

AquaKlaster 10.10.2009 23:49
юзай компонент IdFTP

xa-xa89 10.10.2009 23:52
2AquaKlaster
Цитата:
это дело должно быть на api или с использованием wininet..

slesh 10.10.2009 23:56
примерная последовательность действий
Код:
hNet := InternetOpen('FTPCLIENT', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
hFTP := InternetConnect (hNet, pchar(ftp), INTERNET_DEFAULT_FTP_PORT, pchar(login), pchar(pass), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);

FtpPutFile(hFTP, 'c:\file.txt', 'file.txt', FTP_TRANSFER_TYPE_BINARY, 0);
InternetCloseHandle(hFTP);
InternetCloseHandle(hNet );

lamer28 11.10.2009 22:20
Цитата:
Сообщение от slesh
примерная последовательность действий
Код:
hNet := InternetOpen('FTPCLIENT', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
hFTP := InternetConnect (hNet, pchar(ftp), INTERNET_DEFAULT_FTP_PORT, pchar(login), pchar(pass), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);

FtpPutFile(hFTP, 'c:\file.txt', 'file.txt', FTP_TRANSFER_TYPE_BINARY, 0);
InternetCloseHandle(hFTP);
InternetCloseHandle(hNet );
спс) я уже именно так и сделал :)


Время: 21:57