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

<span style="font-family:Arial,Helvetica,sans-serif;"><span style="white-space: normal;">
</span></span>