idhttp - gibt es ein gutes Tutorial?

[Evian]

Ich habe jetzt sowohl den Token ausgelesen, als auch die 2te Methode mit dem probiert... leider schaffe ich es immernoch nicht mich einzuloggen.

Delphi-Quellcode:

Function TForm1.getToken: String;
VAR
token : String;
BEGIN
     Token := idHTTP1.Get('http://www.myspace.com/');
     Token := copy(Token,pos('http://login.myspace.com/index.cfm?fuseaction=login.process&MyToken=',Token)+68,length(Token));
     result := copy(Token,1,pos('" method="post"',Token)-1);
END;

Procedure Tform1.Logintest1;
var
  ParamData : TStringStream;
  token : String;
begin
  idhttp1.HandleRedirects:=true;
  ParamData := TStringStream.Create('');
  try
     Token := getToken;
  finally
    try
      ParamData.WriteString('fuseaction=login.process');
      ParamData.WriteString('MyToken='+Token);
      ParamData.WriteString('email=XYZ');
      ParamData.WriteString('password=ZYX');

     Memo1.Text := IdHTTP1.Post('http://login.myspace.com/index.cfm',ParamData);
    finally
    ParamData.Free;
    end;
  end;
end;

Procedure Tform1.Logintest2;
var
  lData : TIdMultiPartFormDataStream;
  token : String;
begin
   idhttp1.HandleRedirects:=true;
   lData := TIdMultiPartFormDataStream.Create;//Struktur erzeugen
  try
     Token := getToken;
  finally
    try
      lData.AddFormField('fuseaction','login.process');
      lData.AddFormField('MyToken',Token);
      lData.AddFormField('email','XYZ');
      lData.AddFormField('password','ZYX');
      Memo1.Text := IdHTTP1.Post('http://login.myspace.com/index.cfm',lData);
    finally
    lData.free;
    end;
  end;
end;