post Upload via Lazarus

[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;