[deathor]

Помогите написать программу, которая будет добавлять строчку в ТХТ файл, который находится на определенном FTP сервере.
Заранее благодарен.

[deathor]

Народ! Ну помогите! ппц как надо!

[lmikle]

Сообщение от deathor

Народ! Ну помогите! ппц как надо!

Качаешь файл на локаль, добавляешь строчку, заливаешь обратно.
Других вариантов нет, если ты работаешь с чужим сервером. Если есть некоторый web-интерфейс, то можно попробовать сделать скрипт, который добавляет строку в файл, и "дергать" его.

[deathor]

ну про "Качаешь файл на локаль, добавляешь строчку, заливаешь обратно." я знаю... вот тока как скачать и обратно залить?

[lmikle]

Используй TIdFTP. Там все просто.

[deathor]

Если кому-нить будет нужно...

Код:

//----Put---
procedure TForm1.PutClick(Sender: TObject);
var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='127.0.0.1';
      ftp.Port:=21;
      ftp.Username:='anonymous';
      ftp.Password:='';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/99.Income');
      ftp.Put('c:\file.txt','file.txt',false);
      ShowMessage('Отправлено');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Хрен! :(');
  end;
end;
//----Put---

//----Get---
procedure TForm1.GetClick(Sender: TObject);
var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='127.0.0.1';
      ftp.Port:=21;
      ftp.Username:='anonymous';
      ftp.Password:='';
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/99.Income');
      ftp.Get('file.txt','c:\file.txt',true);
      ShowMessage('Принят');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Хрен! :(');
  end;
end;
//----Get---

Moderatorial: пользуемся тегами!!!

[hkdkest]

Сообщение от deathor

Помогите написать программу, которая будет добавлять строчку в ТХТ файл, который находится на определенном FTP сервере.
Заранее благодарен.

Вот еще исходнички по этой теме:
Чат через фтп

Клиент и сервер фтп

[deathor]

Ну не так уж чтоб по теме =))

[hkdkest]

Сообщение от deathor

Ну не так уж чтоб по теме =))

Да ладно.. Чат например по такому принципу и работае - добавляет строчку в файл

[GriLab]

Спасибо большое, долго искал, как качать через FTP