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

时间：2016-05-04 06:32:11 阅读：689 评论：0 收藏：0 [点我收藏+]

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

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

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

分类：

DELPHI（10）

[delphi] view plain copy

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;

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

原文：http://www.cnblogs.com/delphi-xe5/p/5457075.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年09月23日 (328)
2021年09月24日 (313)
2021年09月17日 (191)
2021年09月15日 (369)
2021年09月16日 (411)
2021年09月13日 (439)
2021年09月11日 (398)
2021年09月12日 (393)
2021年09月10日 (160)
2021年09月08日 (222)