delphi idhttpsever

转自: http://3699119.blog.163.com/blog/static/167075351201373024054586/
unit main;

interface

uses
  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;

implementation
var
  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.


你可能感兴趣的:(delphi idhttpsever)