Function SendBlobToWebService(FileName : String) : Boolean;
Begin
Try
If (FileExists(FileName) = True) and (FileInUse(FileName) = False) then
Begin
Data := LoadFileToString(FileName);
RawHeader := '';
Buffer := HttpPut(
'http://localhost:4420/ccblobupload',
Data,
'application/pdf',
RawHeader);
If Pos('200 (OK)',uppercase(RawHeader)) > 0
Then Result := True
Else Raise('WebService returned an error ('+RawHeader+')');
End else Raise('File '+FileName+' not found!');
Except
Result := False;
End;
End;
Begin
SendBlobToWebService('c:\example.pdf');
End;