打造自己的Web（HTTP）服务器

最新推荐文章于 2021-06-02 14:29:22 发布

Tunix126

最新推荐文章于 2021-06-02 14:29:22 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi&C++Builder 文章标签： web initialization string server interface 服务器

本文链接：https://blog.youkuaiyun.com/Tunix126/article/details/1695908

Delphi&C++Builder 专栏收录该内容

27 篇文章

订阅专栏

本文介绍如何利用Indy的IdHTTPServer组件创建一个简单的Web服务器。在Delphi应用程序中，通过设置服务器监听端口并处理GET请求，提供静态HTML文件的访问。当请求的文件不存在时，服务器返回404错误信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

使用indy的IdHTTPServer控件：（限于篇幅，部分内容省略）



unit Unit1;

interface

uses
......  ActiveX,IdBaseComponent, IdComponent, IdCustomTCPServer, IdCustomHTTPServer,IdHTTPServer,IdTCPServer,IdContext;

type
......
procedure Server1CommandGet(AContext: TIdContext;ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
procedure WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);

private
{ Private declarations }
protected
    FHTMLDir: string;
    FURL:string;
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  server1.Active:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FHTMLDir:= ExtractFilePath(Application.ExeName) + ’WEBROOT’;
  FURL:=’http://127.0.0.1:’+inttostr(server1.DefaultPort)+’/’;
end;

procedure TForm1.Server1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  LFilename: string;
  LPathname: string;
begin
  LFilename := ARequestInfo.Document;
  if LFilename = ’/’ then begin
      LFilename := ’/index.html’;
  end;
  LPathname := FHTMLDir + LFilename;
  if FileExists(LPathname) then begin
      AResponseInfo.ContentStream := TFileStream.Create(LPathname, fmOpenRead + fmShareDenyWrite);
  end else begin
      AResponseInfo.ResponseNo := 404;
      AResponseInfo.ContentText := ’The requested URL ’ + ARequestInfo.Document+ ’ was not found on this server.’;
  end;
  end;

initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;

end.