Fileupload via https und SSL

[erich.wanker]

Hallo Leute,

gibt es zufällig irgendwo ein kleines Codeschnippserl, wo beschrieben wird, wie ich via https und ssl eine Datei auf einen Server bringe?

Alles, was ich bis dato dazu gefunden hab, ist mit ActiveX und CO..
Beispiel auf example-code

Indy hätte ich (Delphi 7) :wink: ...

Das Delphi-Programm sollte folgende html Geschichte "ersetzen":

Code:

<form method="post" action="https://ssl.domain.at/data/filetransfer/smb/herdamit.cgi?dir=" enctype="multipart/form-data"

Vielen Dank

Erich

[RWarnecke]

Indy TidHTTPClient

[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;