home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 23 / IOPROG_23.ISO / SOFT / AHTTP.ZIP / uOpenUrl.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-01-30  |  4.6 KB  |  192 lines
  1. unit uOpenUrl;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   uAdvHttp, StdCtrls;
  8.  
  9. type
  10.   TfrmOpenUrl = class(TForm)
  11.     wi: TAdvHttp;
  12.     bStart: TButton;
  13.     lbEvents: TListBox;
  14.     mBody: TMemo;
  15.     eUrl: TEdit;
  16.     mHeaders: TMemo;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     Label3: TLabel;
  20.     Label4: TLabel;
  21.     bStop: TButton;
  22.     procedure bStartClick(Sender: TObject);
  23.     procedure wiClosingConnection(Sender: TObject);
  24.     procedure wiConnectedToServer(Sender: TObject);
  25.     procedure wiConnectingToServer(Sender: TObject);
  26.     procedure wiConnectionClosed(Sender: TObject);
  27.     procedure wiDataAvailable(Sender: TObject);
  28.     procedure wiHandleClosing(Sender: TObject);
  29.     procedure wiHandleCreated(Sender: TObject);
  30.     procedure wiIntermediateResponse(Sender: TObject);
  31.     procedure wiNameResolved(Sender: TObject);
  32.     procedure wiReceivingResponse(Sender: TObject);
  33.     procedure wiRedirect(Sender: TObject);
  34.     procedure wiRequestComplete(Sender: TObject);
  35.     procedure wiRequestSent(Sender: TObject);
  36.     procedure wiResolvingName(Sender: TObject);
  37.     procedure wiResponseReceived(Sender: TObject);
  38.     procedure wiSendingRequest(Sender: TObject);
  39.     procedure wiStateChange(Sender: TObject);
  40.     procedure wiUnknownStatus(Sender: TObject);
  41.     procedure wiError(Sender: TObject);
  42.     procedure bStopClick(Sender: TObject);
  43.     procedure wiNeedAuth(Sender: TObject);
  44.     procedure wiNeedProxyAuth(Sender: TObject);
  45.   private
  46.     procedure Trace(s: string);
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.   end;
  51.  
  52. var
  53.   frmOpenUrl: TfrmOpenUrl;
  54.  
  55. implementation
  56.  
  57. {$R *.DFM}
  58.  
  59. procedure TfrmOpenUrl.Trace(s:string);
  60. begin
  61.   if csDestroying in ComponentState then exit;
  62.   lbEvents.Items.add(s);
  63. end;
  64.  
  65. procedure TfrmOpenUrl.bStartClick(Sender: TObject);
  66. begin
  67.   wi.URL:=eUrl.Text;
  68.   wi.Start;
  69.   bStart.Enabled:=False;
  70.   bStop.Enabled:=True;
  71.   mBody.Text:='';
  72.   mHeaders.Text:='';
  73. end;
  74.  
  75. procedure TfrmOpenUrl.wiClosingConnection(Sender: TObject);
  76. begin
  77.   Trace('Closing connection');
  78. end;
  79.  
  80. procedure TfrmOpenUrl.wiConnectedToServer(Sender: TObject);
  81. begin
  82.   Trace(Format('Connected to %s',[wi.HostAddress]));
  83. end;
  84.  
  85. procedure TfrmOpenUrl.wiConnectingToServer(Sender: TObject);
  86. begin
  87.   Trace(Format('Connecting to %s',[wi.HostAddress]));
  88. end;
  89.  
  90. procedure TfrmOpenUrl.wiConnectionClosed(Sender: TObject);
  91. begin
  92.   Trace('Connection closed');
  93. end;
  94.  
  95. procedure TfrmOpenUrl.wiDataAvailable(Sender: TObject);
  96. begin
  97.   Trace(format('Data available. Bytes: %d',[wi.BytesAvailable]));
  98. end;
  99.  
  100. procedure TfrmOpenUrl.wiHandleClosing(Sender: TObject);
  101. begin
  102. //  Trace('Handle closing');
  103. end;
  104.  
  105. procedure TfrmOpenUrl.wiHandleCreated(Sender: TObject);
  106. begin
  107. //  Trace('Handle created');
  108. end;
  109.  
  110. procedure TfrmOpenUrl.wiIntermediateResponse(Sender: TObject);
  111. begin
  112.   Trace('Intermediate response');
  113. end;
  114.  
  115. procedure TfrmOpenUrl.wiNameResolved(Sender: TObject);
  116. begin
  117.   Trace('Site found');
  118. end;
  119.  
  120. procedure TfrmOpenUrl.wiReceivingResponse(Sender: TObject);
  121. begin
  122.   Trace('Receiving response');
  123. end;
  124.  
  125. procedure TfrmOpenUrl.wiRedirect(Sender: TObject);
  126. begin
  127.   Trace(Format('Redirecting to %s',[wi.RedirectedUrl]));
  128. end;
  129.  
  130. procedure TfrmOpenUrl.wiRequestComplete(Sender: TObject);
  131. begin
  132.   bStart.Enabled:=True;
  133.   bStop.Enabled:=False;
  134.   Trace('Request complete');
  135.   mHeaders.lines.Assign(wi.ResponseHeaders);
  136.   mBody.Text:=wi.Text;
  137. end;
  138.  
  139. procedure TfrmOpenUrl.wiRequestSent(Sender: TObject);
  140. begin
  141.   Trace(Format('%d bytes sent.',[wi.BytesSent]));
  142. end;
  143.  
  144. procedure TfrmOpenUrl.wiResolvingName(Sender: TObject);
  145. begin
  146.   Trace(Format('Finding site: %s',[wi.HostName]));
  147. end;
  148.  
  149. procedure TfrmOpenUrl.wiResponseReceived(Sender: TObject);
  150. begin
  151.   Trace(Format('%d bytes received.',[wi.BytesReceived]));
  152. end;
  153.  
  154. procedure TfrmOpenUrl.wiSendingRequest(Sender: TObject);
  155. begin
  156.   Trace(Format('Openning page %s',[wi.URL]));
  157. end;
  158.  
  159. procedure TfrmOpenUrl.wiStateChange(Sender: TObject);
  160. begin
  161.   Trace('State Changed');
  162. end;
  163.  
  164. procedure TfrmOpenUrl.wiUnknownStatus(Sender: TObject);
  165. begin
  166.   Trace('Unknown Status');
  167. end;
  168.  
  169. procedure TfrmOpenUrl.wiError(Sender: TObject);
  170. begin
  171.   Trace(wi.FormatMessage(wi.LastError));
  172.   bStart.Enabled:=True;
  173.   bStop.Enabled:=False;
  174. end;
  175.  
  176. procedure TfrmOpenUrl.bStopClick(Sender: TObject);
  177. begin
  178.   wi.Stop;
  179. end;
  180.  
  181. procedure TfrmOpenUrl.wiNeedAuth(Sender: TObject);
  182. begin
  183.   Trace('Need server authentication');
  184. end;
  185.  
  186. procedure TfrmOpenUrl.wiNeedProxyAuth(Sender: TObject);
  187. begin
  188.   Trace('Need proxy authentication');
  189. end;
  190.  
  191. end.
  192.