Скачать: CL | DM;

Подскажите как заюзать FTP   Найти похожие ветки 

← →
denisww ©   (2003-04-10 16:33) [0]

Привет всем!
пользовался я 1 год TNMFTP Для заливки своих фало на фтп
и траблов незнал.
поменял место работы и сеть соответсвено.и на те , перестала работать функция. я и так и эдак. больше 65535*2 неотправляет (да и это с напрягом и ошибками).zip анул программу и в сторону.
теперь налабал примерно так.
uses WinInet;

procedure SaveFTP;
Var
Transfer:Boolean;
hSession,hHandle: HInternet;
FContext:Cardinal;
begin
Ts.Strings[3]:="Соединение..";
hHandle:=InternetOpen("MayProgram",INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
hSession:=InternetConnect(hHandle,PChar(Ts.Strings[5])//имя сервера
,StrToInt(Ts.Strings[8])//порт
,PChar(Ts.Strings[6])//Имя
,PChar(Ts.Strings[7])//Пароль
,INTERNET_SERVICE_FTP,0,FContext);
if hSession=Nil Then Ts.Strings[3]:="Ошибка соеденения с сервером" Else Begin
Ts.Strings[3]:="Отправка...";
Transfer:=FtpPutFile(hSession
,Pchar(Ts.Strings[4])//путь к файло
,Pchar(ExtractFileName(Ts.Strings[4]))
,FTP_TRANSFER_TYPE_BINARY,0);
If not Transfer Then Ts.Strings[3]:="Ошибка!" Else Ts.Strings[3]:="Ok!";
End;
End;

Извиняюсь за корявость - я жал код.Работает!
Вопрос :
как получить обратный вызов(отслеживать результат отправки(ну ползунок)))
Ну никак неполучаеться у меня.
И вопрос Второй :
Вроде память надо освобожать после всего и надо ли закрывать InternetOpen или\И InternetConnect и как?

---

← →
denisww ©   (2003-04-10 17:10) [1]

или ссылку плиз на толковое описание или пример

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c