Ich lade per PHP eine Datei zu meine Delphi Programm hoch (per IDHTTPServer)

markieren

Code:

function uploadplotterfile($mode,$id,$filename) {
   global $localpath;
   define('MULTIPART_BOUNDARY', '--------------------------'.microtime(true));
   $header = 'Content-Type: multipart/form-data; boundary='.MULTIPART_BOUNDARY;
   define('FORM_FIELD', 'uploaded_file');
   
   if (!is_file($localpath. '/' .$filename)) {
      echo 'Error ' . $localpath. '/' .$filename;
   }
   
   $file_contents = file_get_contents($localpath. '/' .$filename);  
   
   $content = "--".MULTIPART_BOUNDARY."\r\n".
                     "Content-Disposition: form-data; name=\"".FORM_FIELD."\"; filename=\"".basename($filename)."\"\r\n".
                     "Content-Type: application/pdf\r\n\r\n".
                     $file_contents."\r\n".
   
   /*// add some POST fields to the request too: $_POST['foo'] = 'bar'
   $content .= "--".MULTIPART_BOUNDARY."\r\n".
                     "Content-Disposition: form-data; name=\"foo\"\r\n\r\n".
                     "bar\r\n".*/
   
   // signal end of request (note the trailing "--")
   $content .= "--".MULTIPART_BOUNDARY."--\r\n";
   $context = stream_context_create(array(
      'http' => array(
      'method' => 'POST',
      'header' => $header,
      'content' => $content,
      ),
   ));
   file_get_contents('http://192.168.11.40:4999/plotter?mode=' . $mode . '&id=' . $id,false,$context);
}

zusammenfalten · markieren

Delphi-Quellcode:

procedure TPlotterWebMain.OnPost(Request: TIdHTTPRequestInfo;
  Response: TIdHTTPResponseInfo);
Var
  Stream : TFileStream;
  Decoder : TIdMessageDecoder;
  MsgEnd : Boolean;
  Boundary: String;
  Buffer : String;
begin
  inherited;
  If Request.Params.Count>1 then
  Begin
    If Request.Params.Strings[0]='mode=upload' then
    Begin
      Buffer:=Request.Params.Strings[1];
      Delete(Buffer,1,Pos('=',Buffer));
      MsgEnd:=False;
      Stream:=TFileStream.Create(Buffer+'.pdf',fmCreate);
      Decoder:=TIdMessageDecoderMIME.Create(nil);
      Boundary := ExtractHeaderSubItem(Request.ContentType, 'boundary', QuoteHTTP);
      TIdMessageDecoderMIME(Decoder).MIMEBoundary := Boundary;
      Decoder.FreeSourceStream := False;
      Decoder.SourceStream := Request.PostStream;
      //Decoder.ReadLn();
      Decoder.ReadHeader;
      if Decoder.PartType=mcptAttachment then
        Decoder.ReadBody(Stream,MsgEnd);

      FreeAndNil(Stream);
    End;
  End;
  Response.ResponseNo:=200;
end;

Das Klappt auch aber in der Datei die ich auf dem Windows PC Speichere sind nach jeder Zeile ein HEX(0A) und ich weis nicht warum kann mir jemand helfen.

Du benützt Request.Params nicht richtig.
Besser:

markieren

Delphi-Quellcode:

If Request.Params.Values['mode'] = 'upload' then
begin
  filename := Request.Params.Values['id']; // oder heisst der Parameter 'Foo'?
  // vorsicht sicherheitslücke
  // Parameter id muss geprüft werden, ansonsten könnte ein Angreifer
  // Dateien in anderen Verzeichnissen auf dem Filesystem erzeugen
  Stream:=TFileStream.Create(filename+'.pdf',fmCreate);

Desweiteren ist es unnötig FreeAndNil(Stream) zu verwenden; Stream.Free reicht.
Objekt Decoder wird nicht freigegeben.

Dein eigentliches Problem hat wohl mit TIdMessageDecoderMIME zu tun.
Bist du sicher, dass du eine aktuelle Indy-Version verwendest?