Показать сообщение отдельно

  #32  
Старый 24.02.2009, 22:11
eLWAux
Постоянный
Регистрация: 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..
 
Ответить с цитированием