Autor Beitrag
uall@ogc
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 1826
Erhaltene Danke: 11

Win 2000 & VMware
Delphi 3 Prof, Delphi 7 Prof
BeitragVerfasst: Mo 05.09.05 13:49 
ausblenden 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

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit
mtin
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 177

Win XP SP2
BDS2006 Enterprise
BeitragVerfasst: 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:

www.esl-europe.net/d...om&password=test

wenn das klappt, dann musst du dich so connecten:
ausblenden 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...