HTTP Post-Request mit Dateiupload

**DocBorn**

Das senden eines POST-Request, der auch eine Datei enthält kann man die Indy-Komponenten und die Klasse im Anhang verwenden.

MsMultiPartFormData.pas in den uses-Teil aufnehmen
eine Indy TIdHttp-Komponente mit dem Namen httpMain zur Verfügung stellen
den folgenden Code anpassen, also die URL mit der empfangenden Datei (beispielsweise eine PHP-Datei, könnte aber natürlich auch JSP, ASP oder sonst eine Datei, die mit solchen Requests was anfangen kann sein)
und noch den Dateinamen, der gesendet werden soll, die Klasse im Anhang kümmert sich um das Einlesen der Datei, es muss nur der Dateiname übergeben werden, das erste Argument ist der Name, mit dem die Variable übergeben wird, in PHP steht die Datei dann in $_FILES['meine_datei'] zur Verfügung, siehe dazu php.net/move_uploaded_file
auf Wunsch an der entsprechenden Stelle weitere Formularfelder übergeben (erster Argument ist der Name und zweites der Wert)
Fehler-Behandlung programmieren (sollte man )

zusammenfalten · markieren

Delphi-Quellcode:

			var 

  MultiPartFormDataStream: TMsMultiPartFormDataStream; 

  HttpServer, Response: String; 

begin 

  // Objekte instanzieren 

  MultiPartFormDataStream := TMsMultiPartFormDataStream.Create; 

  try 

      // Content-Type bestimmen 

      httpMain.Request.ContentType := MultiPartFormDataStream.RequestContentType; 

      // Formular-Felder setzen, die keine Dateien sein sollen

      MultiPartFormDataStream.AddFormField('EinAnderesFeld', 'dadum'); 

      // ...

      // Datei laden 

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

      // diese Methode muss _vor_ dem Senden augerufen werden

      MultiPartFormDataStream.PrepareStreamForDispatch; 

      MultiPartFormDataStream.Position := 0; 

      try 

        // Anfrage abschicken, hier halt z.B. "deine" PHP-Datei hinsetzen

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

      except 

        // Upload fehlgeschlagen, entsprechend reagieren

      end; 

    end; 

  finally 

    MultiPartFormDataStream.Free; 

  end; 

end;

Hoffe es hilft einigen weiter und viel Erfolg damit!

**DocBorn**

Hier noch eine Beispiel-PHP-Datei, die alle (Text-)Variablen, die übergeben wurden in einer Datei call.txt schreibt und alle Dateien, die hochgeladen wurden im aktuellen Verzeichnis mit file_<nummer> ablegt. Zu beachten ist

Existieren bereits Dateien, die nach dem System file_<nummer> benannt sind werden diese evtl. überschrieben
Die Berechtigung für das aktuelle Verzeichnis muss so sein, dass der Benutzer unter dem PHP auf dem Server läuft Zugriffsrechte hat, 777 sollte immer passen, ist allerdings nicht erste Wahl.
Diese Datei ist nur zu Demonstrationszwecken des Codes, eine Datei, die irgendetwas sinnvolles macht muss natürlich selbst geschrieben werden. Wenn ich dabei helfen kann gerne immer PM an mich.

markieren

Code:

			<?php

// POST-Variablen in Datei call.txt schreiben

$fp = fopen('call.txt', 'w+');

if ($fp) {

  foreach($_POST as $Var => $Val) fputs($fp, $Var.' = '.$Val."\n\r");

  fclose($fp);

}

// Alle hochgeladenen Dateien ablegen

$i = 1;

foreach($_FILES as $File) {

  if (!$File['error'] and move_uploaded_file($File['tmp_name'], 'file_'.$i)) 

    echo 'Datei-Upload erfolgreich ('.$i.')

'."\n\r";

  else

    echo 'Datei-Upload Fehler ('.$i.')

'."\n\r";

  $i++;

}

?>

HTTP Post-Request mit Dateiupload

HTTP Post-Request mit Dateiupload

Re: HTTP Post-Request mit Dateiupload

Forumregeln