Скачать: CL | DM;

разтрясти 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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.038 c