Entwickler-Ecke

Internet / Netzwerk - Einloggen auf Internetseite mit post von idhttp


uall@ogc - Mo 05.09.05 13:49
Titel: Einloggen auf Internetseite mit post von idhttp

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
procedure TForm1.Button2Click(Sender: TObject);
var bla: TStringList;
    s: string;
begin
  bla := TStringList.Create;
  bla.Add('email=xxx');
  bla.add('password=yyy');
  s := idhttp1.Post('http://www.esl-europe.net/de/login/',bla);
  bla.Clear;
  bla.Add('gameaccount_type=steamid');
  bla.Add('gameaccount=123456');
  s := idhttp1.Post('http://www.esl-europe.net/de/database/players/search/',bla);
  bla.free;
  memo1.lines.text := s;
  memo1.lines.SaveToFile('C:\aha.html');
end;


ich weiß nicht wie man sich auf die page einloggen kann (ob das post überhaupt so stimmt)
und wo man eventl connectionalive setzen kann weil sonst funzt die suche auch nicht


mtin - Mo 05.09.05 15:55

also für das anmelden würd ich mal versuchen folgenden link mit deinen daten auszufüllen und aufzurufen:

http://www.esl-europe.net/de/login/save/?email=m@m.com&password=test

wenn das klappt, dann musst du dich so connecten:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
uses TIdMultiPartFormData;

var   Stream: TIdMultiPartFormDataStream;
 ...
 Stream := TIdMultiPartFormDataStream.Create;
 Stream.AddFormField('email','bla@bla.cbla");
 Stream.AddFormField('
password','bla');
 s := idhttp1.Post('
http://www.esl-europe.net/de/login/save/', Stream);


hab keinen account da also kanns jetzte nich testen...