Delphi ActiveX

Transition from Http.PutBinary to Http.HttpBinary

Provides instructions for replacing deprecated PutBinary method calls with HttpBinary. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
verb: WideString;
url: WideString;
byteData: Array of Byte;
contentType: WideString;
responseBody: WideString;
responseOut: TChilkatHttpResponse;

begin
success := 0;

http := TChilkatHttp.Create(Self);

verb := 'PUT';
url := 'https://example.com/';

contentType := 'application/octet-stream';

// ------------------------------------------------------------------------
// The PutBinary method is deprecated:

responseBody := http.PutBinary(url,byteData,contentType,0,0);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

// ...
// ...

// ------------------------------------------------------------------------
// Do the equivalent using HttpBinary.

responseOut := TChilkatHttpResponse.Create(Self);
success := http.HttpBinary(verb,url,byteData,contentType,responseOut.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

responseBody := responseOut.BodyStr;
end;