TWebModule und Multipart

**Hobbycoder**

Danke für eure Hilfe.

ich habe jetzt noch mal eine ganz neues Projekt aufgesetzt (als Standalone), ReqMulti hinzugefügt, und der Fileupload funktioniert schon mal. Insofern muss ich wohl suchen, warum das in der eignetlichen Anwendung nicht der Fall ist.

Zwei Fragen habe ich aber noch.
1. Jetzt Frage ich ab, ob Request.Files.Count>0 , um festzustellen ob es eine Multipart-Response ist. Gibt es dafür noch einen eleganteren Weg, oder ist das schon die einige Methode?

2. Solange als Method="post" übertragen wird, kann ich zwar die Files abfragen, aber meine QueryFields sind immer leer (obwohl ich alle Parameter im Content finden kann). Erst wenn ich als Method Get verwende, wird QueryFields auch gefüllt.
Es wäre aber schon gut, wenn ich im Post auch die anderen Felder, die das Web-Formular mit überträgt (und sie sind doch im Content enthalten), auch auslesen könnte. Ich könnte mir zwar einen eigenen Parser schreiben, aber sollte das nicht
direkt funktionieren?

Hier mal die Action im Webmodule:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

var

  datatype: string;

  content: string;

begin

  Response.Content :=

    '<html>' +

    '<head><title>Webserver-Anwendung</title></head>' +

    '<body>Webserver-Anwendung</body>' +

    '</html>';

  if Request.Files.Count > 0 then

  begin

    with TFileStream.Create('C:\OrderApp\' + Request.Files[0].FileName, fmCreate) do

    try

      CopyFrom(Request.Files[0].Stream, Request.Files[0].Stream.Size);

    finally

      Free;

    end;

  end;

  with TStreamWriter.Create(TFileStream.Create('C:\OrderApp\Query.txt', fmCreate), TEncoding.UTF8) do

  try

    content:=Request.Content;

    datatype:=Request.QueryFields.Values['DataType'];

    Write(datatype);

    Write(content);

    Flush;

    Close;

  finally

    BaseStream.Free;

    Free();

  end;

end;

Und hier mal die html-seite mit der ich testweise den Upload mache:

markieren

Code:

			<html>

    <head>

        <meta charset="utf8">

        <meta name="viewport" content="width=device-width, initial-scale=1.0">

    </head>

    <body>

        <form id="myForm" action="http://localhost:8443/senddata.php" method="post" enctype="multipart/form-data"> 

            <input type="text" name="DataType" value="fileupload">

            <input type="file" size="120" name="myfile">

            <input type="text" size="20" name="mimetype" value="image/bmp">

            <input type="submit" value="upload">

        </form>

    </body>

</html>

**Rolf Frei**

Du kannst Request.ContentType abfragen aber brauchst du eigentlich nicht, da Files.Count in deinem Fall ausreicht.

Du hast aber in deinem Code noch eine grossen Fehler. Du nutzt das Request.QueryFields für den Zugriff der gesendeten Formaulardaten. In deinem Fall wirst du da nie etwas drin haben. QueryFields ist nur bei einem Formular mit der method="GET" oder einem Aufruf über eine URL abgefüllt. Bei einem Formular mit method="POST" sind die Formulardaten im Request.ContentFields abgefüllt. Der Unterschied von GET und POST ist der, dass beim GET die Daten per URL-Parameter übergeben werden und es somit Längenbeschränkungen gibt. Dieses sollte man in Formen eher nicht nutzen, insbesondere in deinem Fall wo Filedaten übertragen werden. Bei einem POST werden die Daten im Body (Content) der Anfrage übergeben und sind daher in der Grösse praktisch unbeschränkt. Bei GET Anfragen musst du QueryFields nutzen und bei POST ContentFields.

markieren

Delphi-Quellcode:

			    datatype:=Request.QueryFields.Values['DataType'];

müsste so sein:

    datatype:=Request.ContentFields.Values['DataType'];

Ausserdem scheinst du eine Eingabe auf der Form zu haben, die den Dateityp vom Anwender verlangt. Das solltest du nicht so machen, denn der notrmale Anwender wird das kaum richtig eingeben. Die nötige Info steht eigentlich bereits im Request.Files[x].ContentType.

**Hobbycoder**

Vielen Dank für die ausführliche Antwort. Das mit QueryFields und ContentFields wußte ich nicht.

Das mit dem Dateitype als Eingabe auf dem Forumlar war nur zum rumtesten.

TWebModule und Multipart

AW: TWebModule und Multipart

AW: TWebModule und Multipart

AW: TWebModule und Multipart

Forumregeln

Hobbycoder Registriert seit: 22. Feb 2017 1.017 Beiträge	#3 AW: TWebModule und Multipart 9. Dez 2020, 13:24 Vielen Dank für die ausführliche Antwort. Das mit QueryFields und ContentFields wußte ich nicht. Das mit dem Dateitype als Eingabe auf dem Forumlar war nur zum rumtesten. Gruß Hobbycoder Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.
	Zitat