TInternetAccess

type TInternetAccess = class

protected

  fconfig: TInternetConfig;

  procedure setConfig(); virtual;

  function getConfig;

  lastTransfer: TTransfer;

  procedure doTransferUnchecked(); virtual; abstract;

  procedure doTransferChecked();

  function getLastErrorDetails;

  function getLastHTTPHeaders;

  function getLastHTTPResultCode;

  function getLastUrl;

  procedure enumerateAdditionalHeaders();

public

  class function parseHeaderLineKind();

protected

  class function parseHeaderLineValue();

  class function parseHeaderLineName();

  class function makeHeaderLine();

  class function makeHeaderName();

public

  additionalHeaders: THTTPHeaderList;

  ContentTypeForData: string;

  multipartFormData: TMIMEMultipartData;

  function getFinalMultipartFormData;

  property lastHTTPResultCode: LongInt; [r]

  property lastUrl: string; [rw]

  property lastHTTPHeaders: THTTPHeaderList; [r]

  function getLastContentType;

  cookies: TCookieManager;

  property config: PInternetConfig; [rw]

  constructor create();

  destructor Destroy; override;

  function post();

  procedure get();

  function request();

  function existsConnection; virtual; deprecated ;

  function needConnection; virtual; deprecated ;

  procedure closeOpenedConnections; virtual; deprecated ;

  class function urlEncodeData();

  class function reactFromCodeString();

  function internalHandle; virtual; abstract;

published

  property OnTransferStart: TTransferStartEvent; [rw]

  property OnTransferReact: TTransferReactEvent; [rw]

  property OnTransferEnd: TTransferEndEvent; [rw]

  property OnProgress: TProgressEvent; [rw]

end;

TInternetAccess

TObject