Форум: "Сети";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
ВнизПодскажите как заюзать 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 вся ветка
Форум: "Сети";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c