Delphi IdHttp组件+IdHttpServer组件实现文件下载服务

 http://blog.csdn.net/xxkku521/article/details/16864759

Delphi IdHttp组件+IdHttpServer组件实现文件下载服务

2013-11-21 18:15 2624人阅读 评论(0) 收藏 举报

 分类：

 

DELPHI（10） 

版权声明：本文为博主原创文章，未经博主允许不得转载。

uses idhttp,IdHTTPServer;

//idhttp组件提交下载请求
procedure TVodService.Button3Click(Sender: TObject);
var
    h:TIdhttp;
    MyStream:TMemoryStream;
    url:string;
begin
    MyStream:=TMemoryStream.Create;
    h:=Tidhttp.Create(nil);
    url:='http://192.168.0.254:9003/GetIni';//请求地址
    try
        h.get(url,MyStream);//提交请求     except
        Application.Messagebox('网络出错，请检查网络连接','出错框',MB_OK+MB_ICONERROR) ;
        MyStream.Free;
        h.free;
        exit;
    end;
    MyStream.SaveToFile(extractfilepath(application.exename)+'System.ini');
    MyStream.Free;
    h.free;
end;

//IdHttpSever组件响应请求
procedure TVodService.DataModuleCreate(Sender: TObject);//初始化IdHttpServer组件
var
    hport:integer;
    Binding : TIdSocketHandle;
begin
    try
        VodHttpServer.Bindings.Clear;
        Binding := VodHttpServer.Bindings.Add;
        Binding.Port:=9003;
        binding.IP:='192.168.0.254';
        VodHttpServer.Active:=true;
    except
        on e:Exception do
            begin
                 FrmMain_VodSer.write_Logfile('加载APP设置error '+e.message);
            end;
    end;
end;


procedure TVodService.VodHttpServerCommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);//响应请求
var
    ByteSent: Cardinal;
    LocalDoc:string;
    tempstr,ips:string;
    len,sport:integer;
begin
    tempstr:=ARequestInfo.Document; //获取请求字符串
    ips:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP;//获取请求地址
    sport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerPort;//获取请求端口
    if fileexists(extractfilepath(application.exename)+'System.ini') then
    begin
        LocalDoc:=extractfilepath(application.exename)+'System.ini';
        ByteSent :=VodHttpServer.ServeFile(AThread, AResponseInfo, LocalDoc);
    end else
    begin
        Application.Messagebox('没有找到文件System.ini！','提示框',MB_OK+MB_ICONERROR) ;
    end;
end;