VPF::Парсинг HTML страницы с авторизацией

kromol

Дата 10.4.2012, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 12.6.2011

Репутация: нет
Всего: нет

Здраствуйте!
Мне нужно получить некоторые данные с сайта. Но проблема в том, что часть информации доступна только авторизованным пользователям.
Я использую следующий код для парсинга страницы:

Код


function DownloadPage(Suorce, FileName: String): Boolean;
begin
  try
    Result := URLDownloadToFile(nil, PChar(Suorce), PChar(FileName), 0, nil) = 0;
  except
    Result := False;
  end;
end;
function Parser: Boolean;
var Doc: IHTMLDocument2;
      v, Attribute: OleVariant;
      AllTags, TagA: IHTMLElementCollection;
      AElement: IHTMLElement;
      URLList: TStringList;
begin
     URLList := TSTringList.Create;
     if DownloadPage(URL, FileName) then
         URLList.LoadFromFile(FileName);
      Doc := CoHTMLDocument.Create as IHTMLDocument2;
  if (Doc = nil) then
    begin
      MessageBoxA(0, PAnsiChar('Error while creating IHTML2 document'), PAnsiChar('Error'), MB_OK);
      Result := False;
      Exit;
    end;

  v := VarArrayCreate([0, 0], varVariant);
  v[0] := FURLList.Text;
  FURLList.Clear;
  Doc.write(PSafeArray(TVarData(v).VArray));

  AllTags := Doc.all;
  TagA := AllTags.tags('a') as IHTMLElementCollection;
.........
end;

Подскажите пожалуйста возможно ли залогиниться таким способом?
Спасибо!

Frees

Дата 6.5.2012, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: нет
Всего: 54

Код


    Doc.all.item('login').value := 'login';
    Doc.all.item('passwd').value := 'pass';
    Doc.forms.item('MainLogin').submit;

название формы и полей ввода смотри в коде страницы.

--------------------

Кольцов Виктор Владимирович

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »