HttpPut

Parameter

(Url, Stream, ContentType : String; var RawHeader : String; Const User : String = ''; Const Password : String = '') : String;

Beschreibung

Führt einen http PUT aus und übermittelt die in Stream übergebenen Daten als ContentType (z.B. „text/plain“) an die entsprechende Url. In RawHeaders werden die Rohdaten der Transaktion zurückgeliefert und können ausgewertet werden (z.B. ReturnCodes etc.).

Beispiel

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;