Image from Form has no value

[Yaron 53]

I am trying to upload an image from an html form (see below) to a MARS server.

Previously, I was able to get this working when the client was written in Delphi, but now the client is a standard browser and the code fails (LParam.isFile returns false).

 

HTML form:

<form method="post">
<input type="text" name="ImageName" required><br>
<input type="file" accept="image/jpeg" name="ImageFile" required>
</form>

 

The code I used to get the image that doesn't seem to work in this case :

var
  lParam  : TFormParam;
  mStream : TMemoryStream;
begin
    For lParam in aParams do
    Begin
      If (SameText(lParam.FieldName, 'ImageFile')) then
      Begin
        If (LParam.isFile) then
        Begin
          mStream := TMemoryStream.Create;
          mStream.Write(lParam.AsFile.Bytes,Length(lParam.AsFile.Bytes));
          mStream.Position := 0;

          Try
            mStream.SaveToFile('d:\test.jpg');
          Finally
            mStream.Free;
          End;
      End;
    End;
end;

Any ideas?

[Yaron 53]

I believe that I solved this issue, I was missing enctype="multipart/form-data" in the form's statement.

Edited June 16, 2019 by Yaron

[Andrea Magni 75]

Hi, yes the HTML form should be a multipart/form-data one...

Glad you solved 😉

 

Sincerely,

Andrea