Delphi ActiveX

Read the REST Response Body into a StringBuilder

Demonstrates Rest.ReadRespSb, which reads the response body as text into a StringBuilder, replacing its previous contents.

Background. The staged request model separates sending from reading: a SendReq method transmits the request, ReadResponseHeader reads the status line and headers, and a ReadResp method reads the body. This gives fine control over large or streamed messages compared with the single-call full-request methods.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
rest: TChilkatRest;
bTls: Integer;
bAutoReconnect: Integer;
statusCode: Integer;
sbResponse: TChilkatStringBuilder;
responseBody: WideString;

begin
success := 0;

rest := TChilkatRest.Create(Self);
bTls := 1;
bAutoReconnect := 1;
success := rest.Connect('example.com',443,bTls,bAutoReconnect);
if (success = 0) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

success := rest.SendReqNoBody('GET','/api/items/123');
if (success = 0) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

statusCode := rest.ReadResponseHeader();
if (statusCode < 0) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

//  Read the response body as text into a StringBuilder, replacing its previous contents.
sbResponse := TChilkatStringBuilder.Create(Self);
success := rest.ReadRespSb(sbResponse.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

responseBody := sbResponse.GetAsString();
if (sbResponse.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(sbResponse.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(responseBody);