23.04.2010, 20:40
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Сообщение от stepashka_
Дельфи
Подскажите, есть edit1 edit2 как сделать что бы при нажатии на button данные из edit1 edit2 записывались в тхт файл на сервере? Например www.сайт.ru/акк.txt
вот пример точно будет работать...
PHP код:
Procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
S : String;
Begin
idFTP1.Host := 'Host';
idFTP1.Port := 21;
idFTP1.Username := 'Username';
idFTP1.Password := 'Password';
idFTP1.Connect;
AssignFile(F, 'test.txt');
Rewrite(F);
S := Edit1.Text;
WriteLn(F,S);
CloseFile(F);
IdFTP1.Put('test.txt', 'test.txt', False);
End;
procedure TForm1.Button2Click(Sender: TObject);
begin
IdFTP1.Disconnect;
end;
и не забудь поставить passive = true
|
|
|