delphi idhttpsever

来源：互联网发布：山人太极服淘宝编辑：程序博客网时间：2024/05/19 06:48
转自：http://3699119.blog.163.com/blog/static/167075351201373024054586/
unit main;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent,IdContext ,IdComponent, IdCustomTCPServer, IdCustomHTTPServer,  IdHTTPServer, StdCtrls;type  TForm_main = class(TForm)    IdHTTPServer1: TIdHTTPServer;    Button_StartServer: TButton;    Edit_Port: TEdit;    Label1: TLabel;    Label2: TLabel;    Edit_Ip: TEdit;    Button_stop: TButton;    Label3: TLabel;    Edit_RootDir: TEdit;    Edit_index: TEdit;    Label4: TLabel;    procedure Button_StartServerClick(Sender: TObject);    procedure Button_stopClick(Sender: TObject);    procedure IdHTTPServer1CommandGet(AContext: TIdContext;      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);  private    { Private declarations }  public    { Public declarations }  end;var  Form_main: TForm_main;implementationvar  RootDir:string;  URL:string;{$R *.dfm}procedure TForm_main.Button_StartServerClick(Sender: TObject);begin  try    IdHTTPServer1.Bindings.Clear;    //要绑定的端口，一定设置此项，这是真正要绑定的端口;    IdHTTPServer1.DefaultPort:=strtoint(trim(edit_port.Text));    IdHTTPServer1.Bindings.Add.IP := trim(edit_Ip.Text);    //启动服务器    IdHTTPServer1.Active := True;  except     showmessage('启动失败！');  end;  RootDir:=trim(edit_rootDir.Text);  URL:='http://'+trim(edit_Ip.Text)+trim(edit_port.Text)+'/';end;procedure TForm_main.Button_stopClick(Sender: TObject);begin  IdHTTPServer1.Active := false;end;procedure TForm_main.IdHTTPServer1CommandGet(AContext: TIdContext;  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);var  LFilename: string;  LPathname: string;  zhongwen:string;begin  //浏览器请求http://127.0.0.1:8008/index.html?a=1&b=2  //ARequestInfo.Document  返回    /index.html  //ARequestInfo.QueryParams 返回  a=1b=2  //ARequestInfo.Params.Values['name']   接收get,post过来的数据  ////webserver发文件    {LFilename := ARequestInfo.Document;  if LFilename = '/' then  begin    LFilename := '/'+trim(edit_index.Text);  end;  LPathname := RootDir + LFilename;  if FileExists(LPathname) then   begin    AResponseInfo.ContentStream := TFileStream.Create(LPathname, fmOpenRead + fmShareDenyWrite);//发文件  end  else begin      AResponseInfo.ResponseNo := 404;      AResponseInfo.ContentText := '找不到' + ARequestInfo.Document;  end;}  //发html文件  {AResponseInfo.ContentEncoding:='utf-8';  AResponseInfo.ContentType :='text/html';  AResponseInfo.ContentText:='<html><body>好</body></html>'; }  //发xml文件  {AResponseInfo.ContentType :='text/xml';  AResponseInfo.ContentText:='<?xml version="1.0" encoding="utf-8"?>'  +'<students>'  +'<student sex = "male"><name>'+AnsiToUtf8('陈')+'</name><age>14</age></student>'  +'<student sex = "female"><name>bb</name><age>16</age></student>'  +'</students>';}  //下载文件时，直接从网页打开而没有弹出保存对话框的问题解决  //AResponseInfo.CustomHeaders.Values['Content-Disposition'] :='attachment; filename="'+文件名+'"';  //替换 IIS  {AResponseInfo.Server:='IIS/6.0';  AResponseInfo.CacheControl:='no-cache';  AResponseInfo.Pragma:='no-cache';  AResponseInfo.Date:=Now;}end;end.
0 0