
24.02.2009, 22:11
|
|
Постоянный
Регистрация: 15.06.2008
Сообщений: 941
С нами:
9423746
Репутация:
2399
|
|
добавляеш IdHTTP из вкладки "Indy Clients".
вот тебе два примера:
1) загрузки страници "Антибоян" - " http://constant1ne.by.ru/sqls.html"
в listbox с помощью IdHTTP, GET методом (каждий сайт в отдельний item):
Код:
var i:integer ;
begin
GET метод (для http)
// загружаем страницу в listbox
listbox1.Items.Text:= IdHttp1.Get('http://constant1ne.by.ru/sqls.html');
// пример проверки сайта по Антибоян'у
if (listbox1.Items.IndexOf('http://numi.is')>0) then
showmessage('[боян] http://numi.is') else
showmessage('http://numi.is нету в списке Антибоян!');
2) пример POST метода,
для логина на ачат (по https):
Код:
var i:integer ;
IdHandler: TIdSSLIOHandlerSocket;
CookMan: TidCookieManager;
Params: TStringList;
username,password,md5_password:string;
begin
POST метод (для https)
// ето нужно для роботи с https
IdHandler:=TIdSSLIOHandlerSocket.Create(nil);
IdHandler.SSLOptions.Method:=sslvTLSv1;
IdHTTP1.IOHandler:=IdHandler;
// сookie хранитель
IdHTTP1.AllowCookies:=true;
CookMan:=TidCookieManager.Create(idHTTP1);
idHttp1.CookieManager := CookMan;
username := 'eLWAux';
password := 'твой_пароль';
md5_password := 'или_md5_твоего_пароля';
// данние, которие передаютса в POST запросе
Params:=TStringList.Create;
Params.add('vb_login_username='+username);
Params.add('vb_login_password='+password);
Params.add('cookieuser=1');
Params.add('s=');
Params.add('do=login');
Params.add('forceredirect=1');
Params.add('vb_login_md5password='+md5_password);
try
IdHTTP1.Port:=443; // https
// необязательно - юзер агент
IDHttp1.Request.UserAgent:='Mozila';
// рефферер
IdHTTP1.Request.Referer:='https://forum.antichat.ru/index.php?';
// а вот и он, POST запрос на login.php )
memo1.Lines.Text:=
IdHttp1.Post('http://forum.antichat.ru/login.php?',params);
finally
IdHTTP1.Free;
IdHandler.Free;
Params.Free;
end;
вот и все..
думаю поймеш, как отправлять сообщения на форум..
)
Последний раз редактировалось eLWAux; 24.02.2009 в 22:13..
|
|
|