webbroker从本地HTML文件导入

a01.rar

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  FileContent: TStringList;
begin
  FileContent := TStringList.Create;
    // 假设你的HTML文件位于Web服务器的根目录下，文件名为a01.html
    FileContent.LoadFromFile( ExtractFilePath (ParamStr (0))+ '\a01.html');
    Response.Content := FileContent.Text;
    Response.ContentType := 'text/html; charset="UTF-8"';
    Handled := True;
    FileContent.Free;end;