1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
IdMultipartFormData,
IdHTTP;
var
MultiPartFormDataStream: TIdMultiPartFormDataStream;
monhttp: TIdcustomHTTP;
begin
monhttp.Create(nil);
MultiPartFormDataStream := TIdMultiPartFormDataStream.Create;
try
MultiPartFormDataStream.AddFile('userfile', 'C:\Sites web\CubeSNMP\grid.css' , 'multipart/form-data');
MultiPartFormDataStream.Position := 0;
//Poste !
monhttp.Post('http://localhost/testFichier/upload.aspx', MultiPartFormDataStream);
finally
MultiPartFormDataStream.Free;
end;
end. |