VPF::Отправка данных на сервер - Форум программистов

aktuba

Дата 24.5.2006, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 9
Всего: 38

Вот так реализовано на сайте:

Код


<form method='post' name='form_add_new_std' accept-charset="windows-1251">
    <tr><td valign=top align=right style='padding-top:0;'><small>Текст новости: </td><td align=left style='padding-top:0;padding-left:15px;'><textarea name=n_text rows=15 id='inp'>Test</textarea></td></tr>
    <tr><td align=right><small>URL источника: </td><td align=left style='padding-left:15px;'><input name=n_ist type=text id='inp' value=''></td></tr>
    </table>
<br>        <br>
        <center><input type=submit id='sb' value='Запостить новость' name=postn></center></form>

А как отправить этому сайту новость из моей программы?

--------------------

_hunter

Дата 24.5.2006, 12:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98

ищи на форуме TIdHTTP POST

--------------------

Tempora mutantur, et nos mutamur in illis...

Sunr1se

Дата 24.5.2006, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 1.5.2006

Репутация: нет
Всего: 13

Код


procedure TForm1.Button1Click(Sender: TObject);
var PostRequest: TStrings;
begin
IdHTTP1.Host := 'http://...';  //хост
IdHTTP1.Request.URL := 'http://...';  //точный адрес
IdHTTP1.Request.Method := hmPost;
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';  //а может и другой тип, надо уточнить
PostRequest := TStringList.Create;
PostRequest.Add('a=1&b=2');   //тело запроса, вместо a=1&b=2 вставляешь свои данные
IdHTTP1.Request.ContentLength := Length(PostRequest.Strings[0]);
Edit4.Text := IdHTTP1.Post('http://..', PostRequest); //здесь пишется точный адрес
end;

Это сообщение отредактировал(а) Sunr1se - 24.5.2006, 12:45

--------------------

IRC-канал Винграда

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »