post из delphi

← →
integral9 © (2004-09-15 15:28) [0]

Добрый день,
такая проблема: надо на опред. скрипт из delphi послать post и прочитать ответ...
подскажите, как сделать.

Заранее спасибо.

← →
VMcL © (2004-09-15 15:48) [1]

>>integral9 © (15.09.04 15:28)

TIdHttp.Post()
?

← →
integral9 © (2004-09-15 15:59) [2]

а поподробнее для чайника в данном вопросе?

← →
Луарвик (2004-09-15 16:12) [3]

Ок, хоть раз помогу кому-нить:
HTTP.Post(Url, Strings); Url - полный аддрес к скрипту. Strings - список переменных вида: module=feedback id=15 ash//пустая переменная
Кстать так в memo1 появиться html код страници:
Memo1.text:=HTTP.Post(Url, Strings);
Гы
P.S. В хелп смотри чаще!!!

← →
integral9 © (2004-09-15 16:34) [4]

А что за объект такой HTTP? какого типа? что за модуль заюзать надо?

← →
Луарвик (2004-09-15 16:40) [5]

Ай! Извиняюсь:
idHTTP.Post(Url, Strings);
TidHTTP вкладка Indy Clients. Там такой компонент... на нем картинка земного шара :)

← →
integral9 © (2004-09-15 16:57) [6]

гм... тут исключения все время вылетают...
var s:TStrings;
http:TIdHttp;
begin
s.add("x=1");
s.Add("p=1");
s.Add("uuu");
Memo1.text:=HTTP.Post("http://ya.ru", s);
end;

← →
Луарвик (2004-09-15 17:11) [7]

Блин! Что ж ты делаешь? Во первых стринги так надо юзать:
var s:TStrings;
...
s:=TStringList.Create;
Не спрашивай почему :)
Во вторых компонент idHTTP поставь на форму и обращайся к ниму! Вот так:
var s:TStrings; begin s:=TStringList.Create; s.add("x=1"); s.Add("p=1"); s.Add("uuu"); Memo1.text:=idHTTP1.Post("http://ya.ru", s.items); end;
idHTTP1 - это имя компонента!!!

← →
asterian (2004-09-15 17:27) [8]

Gracias от имени integral9!

← →
stashkov (2004-10-28 02:24) [9]

я бы это:
----------------------------------
var s:TStrings;
begin
s:=TStringList.Create;
s.add("x=1");
s.Add("p=1");
s.Add("uuu");
Memo1.text:=idHTTP1.Post("http://ya.ru", s.items);
end;
-----------------------------------------------
переписал так

var s:TStrings; begin s:=TStringList.Create; s.add("x=1"); s.Add("p=1"); s.Add("uuu"); Memo1.lines.text:=idHTTP1.Post("http://ya.ru", s); end;
---------------------------------------------------
и именно так у меня работает.

>>stashkov (28.10.04 02:24) [9]

А я бы это переписал так:
var s: TStrings; begin s := TStringList.Create; try s.add("x=1"); s.Add("p=1"); s.Add("uuu"); Memo1.lines.text := idHTTP1.Post("http://ya.ru", s); finally s.Free; end; end;

А че здесь постить ?
<form name="web" method="get" action="http://www.yandex.ru/yandsearch">

← →
Saint_Byte (2004-10-30 20:15) [12]

http://www.yandex.ru/yandsearch
Это имя скрипта

Сморти дальше форму ...

Яндекс пользует кстати Гет запросы -)

Даже написано метод - Гет (в теги формы)

post из delphi Найти похожие ветки