Редактирование тхт файла лежащий на фтп сервере

[mitiay]

В общем такая проблема!Есть тхт файл он лежит на фтп сервере в нем все лишь две строчки.Так вот нужно чтоб первая строчка была в первом едите вторая во втором едите!И при редактировании текста в едите редактировался сам тхт файл на сервере.

[Stilet]

С потолка:

var st:TStringStream;
begin
 st:=Tstringstream.Create('');
 try
  idftp.connect;
  idftp.get('/file',st);
  with TStringList.Create do begin
    Text:=st.DataString;
    if Count>0 then Edit1.Text:=Strings[0];
    if Count>1 then Edit2.Text:=Strings[1];
    free;
  end;
 except
   on e:Exception do showMessage(e.message);
 end;
st.free;
end;

Используя INDI IdFTP. Ему указывается Хост, пароль и логин.
Смысл: Файл считывается в стрим, стрим в массив строк. Ну а с массивом строк уже в эдите работать надо

[mitiay]

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

С потолка:

var st:TStringStream;
begin
 st:=Tstringstream.Create('');
 try
  idftp.connect;
  idftp.get('/file',st);
  with TStringList.Create do begin
    Text:=st.DataString;
    if Count>0 then Edit1.Text:=Strings[0];
    if Count>1 then Edit2.Text:=Strings[1];
    free;
  end;
 except
   on e:Exception do showMessage(e.message);
 end;
st.free;
end;

Используя INDI IdFTP. Ему указывается Хост, пароль и логин.
Смысл: Файл считывается в стрим, стрим в массив строк. Ну а с массивом строк уже в эдите работать надо

Это понятно!Сделал как вы написали,но вопрос как он редактироваться будет?Как я понимаею нужно както сохранить файл и потом им заменить файл на сервере?ПОМОГИТЕ ПЛЗ!

[Stilet]

Верно. И в этом тебе поможет тот же Стирим и метод Put

[mitiay]

Как указать путь до программы(папка где она запущена?)
s.SaveToFile(ExtractFilePath(Applic ation.ExeName));
Пишет не удалось найти указанный путь

[саша40]

Надо так:

s.SaveToFile(ExtractFilePath(Application.ExeName)+'\имя_файла.txt');

[mitiay]

idftp1.Put('/public_html/key.txt',(ExtractFilePath(Applicati on.ExeName)+'key.txt'),true;
Здесь что не так?)

[саша40]

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

idftp1.Put('/public_html/key.txt',(ExtractFilePath(Applicati on.ExeName)+'key.txt'),true;
Здесь что не так?)

Мозг включи!

procedure Put(const ASource: TStream; const ADestFile: string = '';
     const AAppend: boolean = false); overload;
    procedure Put(const ASourceFile: string; const ADestFile: string = '';
     const AAppend: boolean = false); overload;

Вот тебе описание метода в классе. Подумай и решишь.
А проще будет сказать. ASource - это то, что ты хочешь отправить. ADestFile - это имя файла на сервере. AAppend отвечает за поддержку докачки.

[Stilet]

Не понял... А где мой пост? О_о
Чудеса... Ладно продублирую:

idftp1.Put('/public_html/key.txt',ExtractFilePath(Application.ExeName)+'key.txt',true);

Ошибка банальна - не там стоит скобка. А тебе надо быть внимательнее
И текст ошибки скрывают только партизанины - запомни.