home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / nastroje / d3456 / KBMWABD.ZIP / WABD_Response.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-07-09  |  1.4 KB  |  53 lines
  1. unit WABD_Response;
  2.  
  3. interface
  4.  
  5. uses Classes,WABD_Cookies;
  6.  
  7. type
  8.   TWABD_CustomResponse = class
  9.   protected
  10.      FStatus:integer;
  11.      FContentType:string;
  12.      FContentDesc:string;
  13.      FLocation:string;
  14.      FHeader:TStringList;
  15.      FResponse:TStringList;
  16.      FCookies:TWABD_Cookies;
  17.      FOverrideStandardResponse:boolean;
  18.  
  19.      function FormatResponse:string; virtual; abstract;
  20.   public
  21.      constructor Create;
  22.      destructor Destroy; override;
  23.  
  24.      property Status:integer read FStatus write FStatus;
  25.      property ContentType:string read FContentType write FContentType;
  26.      property ContentDesc:string read FContentDesc write FContentDesc;
  27.      property Location:string read FLocation write FLocation;
  28.      property Header:TStringList read FHeader write FHeader;
  29.      property OverrideStandardResponse:boolean read FOverrideStandardResponse write FOverrideStandardResponse;
  30.      property Response:TStringList read FResponse;
  31.      property Cookies:TWABD_Cookies read FCookies;
  32.   end;
  33.  
  34. implementation
  35.  
  36. constructor TWABD_CustomResponse.Create;
  37. begin
  38.      inherited;
  39.      FCookies:=TWABD_Cookies.Create(TWABD_Cookie);
  40.      FResponse:=TStringList.Create;
  41.      FHeader:=TStringList.Create;
  42. end;
  43.  
  44. destructor TWABD_CustomResponse.Destroy;
  45. begin
  46.      FCookies.Free;
  47.      FResponse.Free;
  48.      FHeader.Free;
  49.      inherited;
  50. end;
  51.  
  52. end.
  53.