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

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]

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

---

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

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



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