Einzelnen Beitrag anzeigen

Benutzerbild von emsländer
emsländer

Registriert seit: 21. Aug 2004
Ort: Lengerich
658 Beiträge
 
RAD-Studio 2009 Ent
 
#1

Filetransfer via Webformpost und Webformpost mit Indy 10

  Alt 3. Nov 2005, 21:56
Da ich aus einer Applikation heraus eine Menge Daten posten muss, und man daher in verschiedensten Netzwerkkonstellationen Probleme hat, habe ich auf Webformpost zurückgegriffen. Das ist so, wie wenn man ein Webformular ausfüllt und dort eine Datei als Anhang hochlädt. Anbei das Beispeil dazu.

(Endlich kann ich auch mal meinen "schlauen" Senf hier posten )

Delphi-Quellcode:
procedure TForm1.WebformPost;
Const
CRLF = #13#10;
Var
httpresponse : TMemoryStream;
paramameters : Tstringstream;
Daten: String;
  var sstream : Tstringstream;
  var fs : Tfilestream;
  spdf : string;
  sfdd : string;
  size : integer;
begin
  httpresponse := TMemoryStream.create;
  fs := TFilestream.Create('C:\Programme\test\data\text.xml', fmopenread);
  sstream := TStringstream.Create('');
  try
    fs.position := 0;
    sStream.CopyFrom(fs,fs.size);
    sStream.Position := 0;
    sfdd := ssTream.DataString;
  finally
    freeandnil(fs);
    freeandnil(sStream);
  end;
  fs := TFilestream.Create('C:\Programme\test\pdf\text.pdf', fmopenread);
  sstream := TStringstream.Create('');
  try
    fs.position := 0;
    sStream.CopyFrom(fs,fs.size);
    sStream.Position := 0;
    spdf := ssTream.DataString;
  finally
    freeandnil(fs);
    freeandnil(sStream);
  end;

  try
    Daten :=
    '-----------------------------7cf87224d2020a' + CRLF +
    'Content-Disposition: form-data; name="username"'+CRLF+ CRLF+
    'Hier kann man einen Namen eingeben'+CRLF+

    '-----------------------------7cf87224d2020a' + CRLF +
    'Content-Disposition: form-data; name="XML-Datei";'+
    'filename="text.xml"'+ CRLF + 'Content-Type: text/plain' + CRLF+ CRLF
     + sfdd +CRLF+ // Datei
    '-----------------------------7cf87224d2020a'+crlf+
    'Content-Disposition: form-data; name="PDF-Datei";'+
    'filename="text.pdf"' + CRLF +
    'Content-Type: application/octet-stream' + CRLF + CRLF +
     spdf
     + CRLF + '-----------------------------7cf87224d2020a--';

    paramameters := Tstringstream.Create(Daten);
    HTTP.Request.ContentType := 'multipart/form-data; boundary=---------------------------7cf87224d2020a';
    HTTP.Request.ContentLength := length(Daten);

    with HTTP do begin
      try
        HTTP.Post( 'http://...../post.php', paramameters , httpresponse);
      except
        on E: Exception do
          showmessage('Post hat nicht funktioniert: ' + E.Message);
        end;
      end;
      httpresponse.WriteBuffer(#0' ', 1);
      showmessage(PChar(httpresponse.Memory));
  except
    //
  end;
  freeandnil(httpresponse);
  freeandnil(paramameters);
end;

Wichtig ist dabei, das die Webseite die Parameternamen: username, XML-Datei und PDF-Datei kennt.


Gruss

EL

PS.: Vielleicht bastelt ja jemand ne Komponente daraus.


Narben am Körper sind ein Zeichen dafür, das man gelebt hat.
Narben auf der Seele sind ein Zeichen dafür, das man geliebt hat.
  Mit Zitat antworten Zitat