GET/POST запросы - Работа с сетью в Delphi

SsdD · 08.09.2010, 20:07

Добрый вечер. Помогите составить правильно GET запрос, допустим при нажатии Буттон1 создался файл get.html и сохранился в этой файле.

Код:

GET /vote/6205/ HTTP/1.1
Host	l2top.ru
User-Agent	Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8 WebMoney Advisor
Accept	text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language	ru,en-us;q=0.7,en;q=0.3
Accept-Encoding	gzip,deflate
Accept-Charset	windows-1251,utf-8;q=0.7,*;q=0.7
Keep-Alive	115
Cookie	e6db0=071d8cb03c94dc9c01f3691def845546; __utma=173254270.382587418.1263296927.1283955401.1283961657.242; __utmz=173254270.1275292973.225.49.utmcsr=l2name.ru|utmccn=(referral)|utmcmd=referral|utmcct=/index.php; l2top_cookie=MTI4MzgwNzEzMzAxMTcwNjA5OTQyMjA1MDA4OTU1MzA4NDcwMTE0ODgxODg4MTE4MTIzMzBjZWM1MWU5ODczZTRkZTIyNWUzYmIwNzAyMzBkYjY4N2Q4ZDM%3D; 87152fb14200e1ebe9f79f814114d5c1=; amm=1; l2x=723e11f56c6bc9766f594d0709435caf13572c56; __utmb=173254270.3.10.1283961657; __utmc=173254270; test_cookie=1
Cache-Control	max-age=0

SsdD · 08.09.2010, 20:24

Вот если написать так, то выдает ошибку 302

PHP код:


			
procedure TForm1.Button1Click(Sender: TObject);

var

Http: TidHttp;

res: string;

begin

//GET /vote/6205/ HTTP/1.1



HTTP.Request.Host:='www.l2top.ru';

HTTP.Request.Connection:='keep-alive';

HTTP.Request.Referer:='http://l2top.ru/vote/6205/';

HTTP.Request.Accept:='application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5';

HTTP.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.6 (KHTML, like Gecko) Chrome/7.0.503.0 Safari/534.6';

HTTP.Request.AcceptEncoding:='gzip,deflate,sdch';

HTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';

HTTP.Request.AcceptCharset:='windows-1251,utf-8;q=0.7,*;q=0.3';



res:=IdHTTP1.get('http://l2top.ru/vote/6205/');

Memo1.lines.add(res);

Memo1.lines.SaveTofile('get.html');

end;

end.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Post запросы	Скарам	Общие вопросы .NET	9	08.08.2010 19:46
Post/Get запросы черех прокси..	indigon	Общие вопросы по Java, Java SE, Kotlin	0	10.06.2010 17:25
Post запросы	ElectroMyStyle	Фриланс	1	17.12.2009 17:23
Проверка прокси на POST запросы (php скрипт)	artem81	PHP	0	04.06.2009 09:31
idHTTP GET и POST запросы	FAiver	Работа с сетью в Delphi	64	15.05.2008 13:22

08.09.2010, 20:24	#2
SsdD Пользователь Регистрация: 06.05.2009 Сообщений: 17	Вот если написать так, то выдает ошибку 302 PHP код: procedure TForm1.Button1Click(Sender: TObject); var Http: TidHttp; res: string; begin //GET /vote/6205/ HTTP/1.1 HTTP.Request.Host:='www.l2top.ru'; HTTP.Request.Connection:='keep-alive'; HTTP.Request.Referer:='http://l2top.ru/vote/6205/'; HTTP.Request.Accept:='application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,/;q=0.5'; HTTP.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.6 (KHTML, like Gecko) Chrome/7.0.503.0 Safari/534.6'; HTTP.Request.AcceptEncoding:='gzip,deflate,sdch'; HTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4'; HTTP.Request.AcceptCharset:='windows-1251,utf-8;q=0.7,*;q=0.3'; res:=IdHTTP1.get('http://l2top.ru/vote/6205/'); Memo1.lines.add(res); Memo1.lines.SaveTofile('get.html'); end; end.