Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

post из delphi [D6, D7]

integral9 © (2004-09-15 15:28:00)
Добрый день,
такая проблема: надо на опред. скрипт из delphi послать post и прочитать ответ...
подскажите, как сделать.

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

Saint_Byte (2004-10-30 20:15:00) [1]
http://www.yandex.ru/yandsearch
Это имя скрипта

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

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

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

KirGus (2004-10-28 18:53:00) [2]
А че здесь постить ?
<form name="web" method="get" action=" http://www.yandex.ru/yandsearch">

VMcL (2004-10-28 07:57:00) [3]
>> 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;

stashkov (2004-10-28 02:24:00) [4]
я бы это:
----------------------------------
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;
---------------------------------------------------
и именно так у меня работает.

asterian (2004-09-15 17:27:00) [5]
Gracias от имени integral9!

Луарвик (2004-09-15 17:11:00) [6]
Блин! Что ж ты делаешь? Во первых стринги так надо юзать:
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 - это имя компонента!!!

integral9 (2004-09-15 16:57:00) [7]
гм... тут исключения все время вылетают...
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 16:40:00) [8]
Ай! Извиняюсь:
idHTTP.Post(Url, Strings);
TidHTTP вкладка Indy Clients. Там такой компонент... на нем картинка земного шара :)

integral9 (2004-09-15 16:34:00) [9]
А что за объект такой HTTP? какого типа? что за модуль заюзать надо?

Луарвик (2004-09-15 16:12:00) [10]
Ок, хоть раз помогу кому-нить:
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 15:59:00) [11]
а поподробнее для чайника в данном вопросе?

VMcL (2004-09-15 15:48:00) [12]
>> integral9 © (15.09.04 15:28)

TIdHttp.Post()
?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »