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

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