Mit Delphi eine Datei über ein HTTP Post Formular hochladen?

[CRYSTALiZE]

Hi :)

Ich wollte 'n kleines Programm schreiben, bei welchem ich zB ne Datei auswähle, auf Upload klicke, und der mir die dann hochläd.
Aber nicht per FTP, sondern - wenn möglich - an eine PHP Seite als POST / FILE..
Das Ergebnis von dieser Seite sollte ich dann auch wieder auslesen können... :)

Geht das irgendwie? Oder muss ich die Datei per FTP hochladen?
Wenn das geht - kann ich irgendwie noch die Übertragungsgeschwindigkeit und die anderen "Sachen" (FileSize, % fertiggestellt und so) herausfinden? (Evtl. einfach berechnen? :D)


MfG.

PS: Ich weiß grad nicht ob das hierhin gehört oder irgendwo anders...

[mkinzler]

Benutze mal die Suche nach INDY+Post du wirst überrascht sein, wie oft das gefragt wird.

[CRYSTALiZE]

Zitat:

Zitat von mkinzler

Benutze mal die Suche nach IDY+Post du wirst überrascht sein, wie oft das gefragt wird.

Die Suche hat 2 Ergebnisse ergeben.

Habe nach "IDY post" gesucht, es kam ein Thread über MySQL und meiner. :)

[mkinzler]

Sollte Indy heißen
[dp]INDY+POST[/dp]

[CRYSTALiZE]

Ok ;)

Code:

  MultiPartFormDataStream: TMsMultiPartFormDataStream; 




  MultiPartFormDataStream := TMsMultiPartFormDataStream.Create;              
  httpMain.Request.ContentType := MultiPartFormDataStream.RequestContentType;
  MultiPartFormDataStream.AddFormField('EinAnderesFeld', 'dadum');

  MultiPartFormDataStream.AddFile('meine_datei', 'C:\autoexec.bat', '');

  MultiPartFormDataStream.PrepareStreamForDispatch;
  MultiPartFormDataStream.Position := 0; 
    Response := httpMain.Post('http://www.microsoft.com/test.php', MultiPartFormDataStream);
  MultiPartFormDataStream.Free;

Diese CodeSchnippsel hab ich mir aus nem Thread da gesucht, aber kann ich irgendwie auch die Geschwindigkeit und den Fortschritt protokollieren / anzeigen? :)

Hab dazu nix gefunden.

MfG.

[SirThornberry]

wie immer gibt es dafür das OnWork von TIdHttp. Alternativ kannst du dir auch eine eigene Streamklasse schreiben welche dir den Fortschritt genau liefert.