Fileupload via https und SSL

[erich.wanker]

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;