HTTP := TccHTTP.Create;
try
HTTP.Request.LoadFromFile('c:\temp\example.pdf');
try
HTTP.Put('http://localhost:4520/defpool/putdoc');
ShowMessage(IntToStr(HTTP.Response.Code));
ShowMessage(HTTP.Response.ContentText);
ShowMessage(HTTP.Response.Header['Content-Type']);
except
ShowMessage('Error on request with code: ' +IntToStr(HTTP.Response.Code));
end;
finally
HTTP.Free;
end;