Delphi ActiveX Requires Chilkat v11.0.0+

Transition from Http.GetHead to Http.HttpNoBody

Provides instructions for replacing deprecated GetHead method calls with HttpNoBody. Delphi ActiveX

var
success: Integer;
http: TChilkatHttp;
url: WideString;
resp1: IChilkatHttpResponse;
resp2: TChilkatHttpResponse;

begin
success := 0;

http := TChilkatHttp.Create(Self);
url := 'https://www.example.com/';

//  ------------------------------------------------------------------------
//  The GetHead method is deprecated:

resp1 := http.GetHead(url);
if (http.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(IntToStr(resp1.StatusCode));

//  ------------------------------------------------------------------------
//  Do the equivalent using HttpNoBody.
//  Your application creates a new, empty response object which is passed 
//  in the last argument and filled with the HTTP response upon success.

resp2 := TChilkatHttpResponse.Create(Self);
success := http.HttpNoBody('HEAD',url,resp2.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(IntToStr(resp2.StatusCode));