Вход на страницу защищенную паролем, и взятие данных.

[Vladimir K.]

Привет всем!
Придумал я себе новую головную боль!
Задача такая: подключиться к инету, взять данные (текст, цифры и т.д.) со страницы и вывести в окно программы.
Чтобы войти на страницу надо ввести логин и пароль.
Вот страница: http://www.angelsads.com/pages/enter.php
логин: w123
пароль: 12345
Привожу код проги, которая должна делать то что нужно, но не делает. Есть ошибка, но я ее найти не могу. Подскажите, как сделать правильно.

unit PExp_U;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdHttp, StdCtrls, ComCtrls, ActiveX, MsHtml, IdBaseComponent,
  IdCookieManager, IdComponent, IdTCPConnection, IdTCPClient;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    RichEdit1: TRichEdit;
    IdCookieManager1: TIdCookieManager;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;
    IdHTTP: TIdHttp;
    HTTP: TIdHttp;
    s: string;
    i:integer;

begin
  lData := TStringList.Create;
  try
    lData.Add('username=логин');
    lData.Add('password=пароль');
    IdHTTP.Post('http://www.angelsads.com/pages/enter.php', lData);
    ShowMessage(IdHTTP.Get('http://www.angelsads.com/pages/enter.php'));
  finally
    lData.Free;
  end;

  http:=TIdHTTP.Create(nil);
  try
    s:=http.Get('http://www.angelsads.com/pages/enter.php');
  except
    ShowMessage('No connect with server.');
    Exit;
  end;
  RichEdit1.Lines.Add(s);
  http.Free;

// Поиск слов Hello, Vlad на странице - если вход осуществлен, эти слова найдутся.

if s<>'' then
 begin
 i:=Pos(AnsiLowerCase('Hello, Vlad'),AnsiLowerCase(s));
  if i<=0 then
   begin
    Label1.Caption:='No';
    exit;
   end
   else
   begin
    Label1.Caption:='Yes';
    exit;
   end;
end;
end;
end.

[mihali4]

У спортсменов это называется - перетренировался...
Вот ваш код с поправками:

procedure TForm1.Button1Click(Sender: TObject);
var lData: TStringList;   
    //IdHTTP: TIdHttp;
    //HTTP: TIdHttp;
    s: string;   
    i:integer;   

begin   
  lData := TStringList.Create;
  try
    lData.Add('username=w123'); // или lData.Add('username='+login);
    lData.Add('password=12345'); // или lData.Add('password='+pass);
    IdHTTP1.Post('http://www.angelsads.com/pages/enter.php', lData);
    //ShowMessage(IdHTTP1.Get('http://www.angelsads.com/pages/enter.php')); 
// это чудо-юдо зачем? выводим в ричэдит, если нужно!
  finally   
    lData.Free;   
  end;   
  
  //http:=TIdHTTP.Create(nil); зачем? у вас уже есть компонент!
  try
  RichEdit1.Text:=IdHTTP1.Get('http://www.angelsads.com/pages/enter.php');
  except
    ShowMessage('No connect with server.');
    Exit;
  end;
  //RichEdit1.Lines.Add(s);
  //http.Free;   
  
// Поиск слов Hello, Vlad на странице - если вход осуществлен, эти слова найдутся.   
  
if RichEdit1.Text<>'' then
 begin
 RichEdit1.Lines.SaveToFile('c:\vhod.txt');
// ищем только имя, поскольку фраза может быть разбросана по строкам
// и бог его знает, сколько между ними пробелов и спецсимволов типа переноса
 i:=Pos(AnsiLowerCase('Vlad'),AnsiLowerCase(RichEdit1.Text));   
  if i<=0 then   
   begin   
    Label1.Caption:='No';   
    exit;   
   end   
   else   
   begin   
    Label1.Caption:='Yes';   
    exit;   
   end;   
end;   
end;

И еще вот сюда загляните, может что полезное почерпнете:
http://programmersforum.ru/showthread.php?t=6476

[Vladimir K.]

СПАСИБО!!!
Теперь заработало!

А как насчет безопасности (вот так доверять проге логины и пароли), не подскажете?

[Квэнди]

Уровень безопасности не отличается от уровня большинства WIn-броузеров

[Vladimir K.]

Попробовал зайти на один сайт: http://deep-c-links.com/pages/enter.php
Захожу нормально, но HTML код загрузить не получается... Поэтому поиск по странице не работает.
Как быть в этом случае?
Логин: 111
Пароль: 111

[Квэнди]

параметры с авторизацией в IdHttp в какие значения выставлены ?

[Vladimir K.]

В свойствах IdHttp1?
HTTPOptions - [hoForceEncodeParams]
Это?

[Квэнди]

нет, параметры, связанные с authentification сокращенно auth

[Vladimir K.]

Вот все, что нашел:

AuthRetries - 3

HTTPOptions:
hoInProcessAuth - False

ProxyParams:
BasicAuthentication - True

Request:
BasicAuthentication - False

[Квэнди]

hoInProcessAuth - true