Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Indy Ftp Client [D6, WinXP]

АртемКИН © (2006-11-27 19:33:00)
Удалено модератором
Примечание: СПАМ

АртемКИН (2006-11-27 21:02:00) [1]
дельфи не моё. всем спасибо за активную поддержку.

АртемКИН (2006-11-27 20:09:00) [2]
не сплю !
читаю мануалы от дельфы......

АртемКИН (2006-11-27 20:06:00) [3]
вот что уже нашлось

procedure FTPUpload;
var ms : TMemoryStream;
begin
ms := TMemoryStream.Create;
frmMain.cFTP.Host := sFTP_HOST;
frmMain.cFTP.Username := sFTP_USERNAME;
frmMain.cFTP.Password := sFTP_PASSWORD;
frmMain.cFTP.Port := 21;
frmMain.cFTP.Passive := True;
frmMain.cFTP.Connect(True,10000);
frmMain.cFTP.ChangeDir('/directory');
if frmMain.adot.Active = True then frmMain.adot.Active := False;
if frmMain.adoc.Connected = True then frmMain.adoc.Connected := False;
if FileExists(ExtractFilePath(Application.ExeName)+'caws.mdb')=True then
begin
try
ms.LoadFromFile(ExtractFilePath(Application.ExeName)+'file');
frmMain.cFTP.Passive := True;
frmMain.cFTP.Put(ms,'file',False);
// 'caws.mdb',True);
finally
frmMain.cFTP.Disconnect;
end;
end;
end;

АртемКИН (2006-11-27 20:05:00) [4]
могу на бутыль пива

Орион (2006-11-27 19:56:00) [5]
хм... WMZ?

АртемКИН (2006-11-27 19:55:00) [6]
кто-нибудь, войдите в ситуацию, очень нужна помощь... :(

АртемКИН (2006-11-27 19:48:00) [7]
если что, мой емаил artemkin31@mail.ru

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »