SetHTTPUserAgent

Definition

procedure SetHTTPUserAgent(const iHttp: Integer; const Agent: AnsiString);

Availability

SCAR Divi 3.00 > Current

Description

Sets the user agent given by Agent for an open HTTP connection specified by iHttp.

Example

var
  i: Integer;

begin
  i := InitializeHTTPClient(True, True);
  try
    SetHTTPUserAgent(i, 'SCAR Divi');
    WriteLn(GetHTTPPage(i, 'http://www.google.com/'));
  finally
    FreeHTTPClient(i);
  end;
end.

See Also

• GetRawHeaders
• InitializeHTTPClient