HTTP + Delphi = авторизация

[extrimportal]

Трабл. Нужно с помощью делфи авторизоваться на одном сайте, после чего взять с него некоторые даные которые будут на странице после авторизации. Лазил по форумах но глухо. Помогите плиз как замутить?

 

[tonsils]

Если известны названия контролов, то поле ввода заполняется например так:

var 
controls: olevariant; 
i: integer; 
begin
controls := webbrowser1.oleobject.document.forms.item(0).elements;

for i := 0 to controls.length - 1 do 
   if controls.item(i).tagname = 'input' then
      controls.item(i).value := 'инфа';
end.

Кликнуть потом можно так:

controls.item(i).click;

 

[Ratko]

- HTTP-снифером проверьте, какие параметры передаются;
- создайте процедуру:

uses IdMultipartFormData;

{ .... }

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
    data.AddFormField('param1', 'value1');
    data.AddFormField('param2', 'value2');
    data.AddFormField('param3', 'value3');

    Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php', data);
  finally
    data.Free;
  end;
end;

- передайте необходимые параметры;
- построчно проверьте Memo1 (в Memo1 вернется HTML код полученной страницы)