post Upload via Lazarus

[1234567890987654321]

Hallo.

Ich habe eine Datei, welche ich in ein Onlineformular (php) hochladen will:
Normalerweise kann ich das in Firefoy ganz einfach bewerksteligen (Datei auswählen > Upload).

Gibt es irgendeine Function (z.B. in Synapse) mit der ich einen Post-Upload zu einem PHP-Script machen kann?

Ich hoffe ihr habt meine Frage verstanden.
Danke fürs Lesen.

P.S: das Programm soll für Linux werden.

[marcoX]

Delphi-Quellcode:

uses httpsend; //Synapse

function TForm1.UploadFile(Filename:string):TStrings;
var 
Data:TFileStream;
FormFields:TStrings;
res:TStrings;
begin

Data:=TFileStream.Create(FileName, fmOpenRead);

FormFields:=TStringList.Create;
FormFields.Add('user='+edit1.text); //<input> oder hidden Values
FormFields.Add('upload=1'); //<input> oder hidden Values

Res:=TStringList.Create;

HttpPostFileForm('http://www.example.com/upload.php',
  'FormName', //Name des <form> Feldes
  ExtractFileName(FileName),
  Data,
  FormFields,
  res);

result:=res;

Data.Free;
FormFields.free;

end;

[1234567890987654321]

Danke