var HTTP: THTTPSend;
Res : boolean;
d,f: TStringStream;
s:string;
begin
HTTP := THTTPSend.Create;
HTTP.MimeType:='application/x-www-form-urlencoded';
d:=TStringStream.Create('username='+edit1.Text+'&password='+edit2.Text+'&imageLogin');
f:= TStringStream.Create('');
HTTP.Document.LoadFromStream(d);
try
Res := HTTP.HTTPMethod('POST', 'https://steamcommunity.com/login/home');
HTTP.Document.SaveToStream(f);
memo1.Text:=f.DataString;
Memo1.Text:=Utf8ToAnsi(Memo1.Text);
Memo1.Text:=trim(Memo1.Text);
finally
HTTP.Free;
end;
if pos('hello',f.DataString)<>0 then
ShowMessage('Авторизовались')
else
ShowMessage('Не удалось');
end;
Кто сможет помочь ?
Проблема в том что после авторизации все ссылки на сайте идут через ID аккаунта,тоесть я не могу зделать гет запрос,что бы спарсить свой ID.