разтрясти Indy Ftp Client

← →
АртемКиН (2006-11-27 19:29) [0]

Удалено модератором
Примечание: СПАМ

← →
umbra © (2006-11-27 19:39) [1]

http://www.indyproject.org/Sockets/Demos/index.en.aspx

← →
АртемКИН (2006-11-27 19:46) [2]

это все понятно, просто у меня _совсем_ пропали навыки дельфи. я знаю алгоритм, но в оформлении программы я теряюсь :(

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

← →
АртемКИН (2006-11-27 19:48) [3]

если что, мой емаил artemkin31@mail.ru

← →
АртемКИН (2006-11-27 19:55) [4]

кто-нибудь, войдите в ситуацию, очень нужна помощь... :(

← →
АртемКИН (2006-11-27 20:06) [5]

полез в дебри инета, вот что нашел

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:09) [6]

теперь залез в справку дельфы....

← →
АртемКИН (2006-11-27 21:02) [7]

дельфи не моё. всем спасибо за активную поддержку.

разтрясти Indy Ftp Client Найти похожие ветки