danke .... Hab jetzt Version 10.5.7 installiert und die passenden
DLL´s
Jetzt hab ich leider noch eine Frage:
Ich hab auf Form1
- IdHTTP1
- IdSSLIOHandlerSocketOpenSSL1
- IdCookieManager1
- einen Speedbutton
- ein Memo
Wenn ich speedbutton1Click ausführe kommt kein Fehler, aber im Memo1 seh ich immer nur den
HTML Text von der "welcome.cgi-Seite" (wo Username und Passwort abgefragt werden). Da ich aber username und Passwort sende, sollte ich doch die "Übersichtsseite", die nach dem Login kommt - sehen ?
(Alle "form methode post"-felder (auch input type "hidden")hab ich in "data.AddFormField" definiert)
Wo ist da mein Denkfehler ?
Vielen Dank
Erich
Delphi-Quellcode:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
begin
IdHTTP1.Request.UserAgent := '
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
IdHTTP1.HandleRedirects := True;
IdHTTP1.RedirectMaximum := 15;
// Seite aufrufen und Cookies bekommen
memo1.Lines.Append('
Seite das erste mal aufrufen:');
memo1.Lines.Append(IdHttp1.get('
https://ssl.domain.at/daten/welcome.cgi'));
memo1.Lines.Append('
#########################################################################');
// Login auf https ssl Seite
try
data := TIdMultiPartFormDataStream.Create;
data.AddFormField('
wert1', '
');
data.AddFormField('
username', '
username');
data.AddFormField('
password', '
password');
data.AddFormField('
realname', '
realname');
memo1.Lines.Append(IdHttp1.Post('
https://ssl.domain.at/daten/welcome.cgi', data));
memo1.Lines.Append('
#########################################################################');
data.Free;
except
on E:
Exception do
ShowMessage('
Fehler: ' + E.
Message);
end;