Здраствуйте!
Мне нужно получить некоторые данные с сайта. Но проблема в том, что часть информации доступна только авторизованным пользователям.
Я использую следующий код для парсинга страницы:
| Код |
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;
|
Подскажите пожалуйста возможно ли залогиниться таким способом?
Спасибо! |