Indy Ftp Client

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

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

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

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

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

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

← →
Орион © (2006-11-27 19:56) [3]

хм... WMZ?

← →
АртемКИН (2006-11-27 20:05) [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 Найти похожие ветки