Delphi2009的Indy全接触之HTTP篇

实现功能：启动一个Http服务。
如下图所示建立工程：

代码如下：

1. unit HttpUnit;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, IdBaseComponent, IdComponent, IdCustomTCPServer, IdCustomHTTPServer,
8.   IdHTTPServer, IdContext;
10. type
11.   TForm1 = class(TForm)
12.     IdHTTPServer1: TIdHTTPServer;
13.     procedure FormCreate(Sender: TObject);
14.     procedure IdHTTPServer1CommandGet(AContext: TIdContext;
15.       ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
16.   private
17.     { Private declarations }
18.   public
19.     { Public declarations }
20.   protected
21.     FData: string;
22.   end;
24. var
25.   Form1: TForm1;
27. implementation
29. {$R *.dfm}
31. type
32.   TSlowStream = class(TFileStream)
33.   public
34.     function Read(var Buffer; Count: Longint): Longint; override;
35.   end;
37. procedure TForm1.FormCreate(Sender: TObject);
38. var
39.   i: Integer;
40. begin
41.   IdHTTPServer1.DefaultPort := 6001;
42.   IdHTTPServer1.Active := True;
44.   SetLength(FData, 1024);
45.   for i := 1 to Length(FData) do begin
46.     FData[i] := Chr(i mod 256);
47.   end;
48. end;
50. function TSlowStream.Read(var Buffer; Count: Integer): Longint;
51. begin
52.   Result := inherited Read(Buffer, Count);
53.   Sleep(Count div 2);
54. end;
56. procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
57.   ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
58. begin
59.   AResponseInfo.ContentStream := TSlowStream.Create('C:/abc.txt', fmOpenRead);
60. end;
62. end.

在C盘下建立文本文件abc.txt，内容如下：

1. sdasdasd
3. <br>
4. asdasd
5. <br>
6. <input type="text" value="aaa">

启动Delphi程序，访问如下的地址即可：  http://localhost:6001/