Отправка на хостинг

[scroyler]

Всем привет)
можете подсказать как отправить какие либо данные на какой нибудь хостинг (сервер там или подобное).

[Кольша]

IDftp и гугл вам в помощь

[scroyler]

ну спасибо поищю) но от примеров не откажусь)

[Кольша]

вот и вот

[scroyler]

не нашел как добавлять) как соединять фигня) а как добавить и считать?)

[scroyler]

мне скачать не надо)
у меня такой принцип)
я отправляю на хост запись типо привет мир)(из эдита)
потом нажимаю на др. кнопку и в другой эдит приходила эта запись)

[Кольша]

вариант
1)

edit1.text:=edit2.text;

2)сделать это на php будет быстрей
3) если на одном пк можно через wmcopydata

[scroyler]

это не для 1 пк.надо сделать так что бы я отправил на хост из едита 1 а др пользователь считывает это в едит 2 ( сокеты не предлогать, мне не чат нужен)))

[scroyler]

var
  ftp: TIdFTP;
  ms:  TMemoryStream;
begin
  ftp:=TIdFTP.Create(Application);
  ms:=TMemoryStream.Create;
  try
    try
      ftp.Host:='vashobmennik.xclan.ru';// ftp àäðåñ ñåðâåðà
      ftp.Port:=21;
      ftp.Username:='h77741';//ëîãèí
      ftp.Password:='ERySHjO9h';//Ïàðîëü
      ftp.Connect(true, 2000);
      AssErt(ftp.Connected);
      ftp.ChangeDir('/');//Óñòàíîâèòü ïàïêó íà ñåðâåðå
      ftp.Put('c:\file.txt','file.txt',false); //Ôàéë Îòêóäà-Êóäà
      ShowMessage('Îòïðàâëåíî');
    finally
      ms.Free; ftp.Free;
    end;
  except
    ShowMessage('Íåóäà÷íàÿ ïîïûòêà îòïðàâêè ôàéëà íà ñåðâåð');
  end;
end;

пишет отправлено) но файл не появляется) данные валидны можетее проверить)

[scroyler]

на другой хост все норм добавил))