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

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

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

разтрясти Indy Ftp Client [D5, D6, D7, D2005, XP]

АртемКиН © (2006-11-27 19:29: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 19:55:00) [4]
кто-нибудь, войдите в ситуацию, очень нужна помощь... :(

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

АртемКИН (2006-11-27 19:46:00) [6]
это все понятно, просто у меня _совсем_ пропали навыки дельфи. я знаю алгоритм, но в оформлении программы я теряюсь :(

Пожалуйста, отзовитесь у кого есть свободные несколько минуток ?

umbra (2006-11-27 19:39:00) [7]
http://www.indyproject.org/Sockets/Demos/index.en.aspx

Наверх

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