Delphi ActiveX

Transition from Http.PostBinary to Http.HttpBinary

Provides instructions for replacing deprecated PostBinary 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 := 'POST';
url := 'https://example.com/';

contentType := 'application/octet-stream';

// ------------------------------------------------------------------------
// The PostBinary method is deprecated:

responseBody := http.PostBinary(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;