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

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

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

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

  1. uses idhttp,IdHTTPServer;
  2. //idhttp组件提交下载请求
  3. procedure TVodService.Button3Click(Sender: TObject);
  4. var
  5. h:TIdhttp;
  6. MyStream:TMemoryStream;
  7. url:string;
  8. begin
  9. MyStream:=TMemoryStream.Create;
  10. h:=Tidhttp.Create(nil);
  11. url:='http://192.168.0.254:9003/GetIni';//请求地址
  12. try
  13. h.get(url,MyStream);//提交请求     except
  14. Application.Messagebox('网络出错,请检查网络连接','出错框',MB_OK+MB_ICONERROR) ;
  15. MyStream.Free;
  16. h.free;
  17. exit;
  18. end;
  19. MyStream.SaveToFile(extractfilepath(application.exename)+'System.ini');
  20. MyStream.Free;
  21. h.free;
  22. end;
  23. //IdHttpSever组件响应请求
  24. procedure TVodService.DataModuleCreate(Sender: TObject);//初始化IdHttpServer组件
  25. var
  26. hport:integer;
  27. Binding : TIdSocketHandle;
  28. begin
  29. try
  30. VodHttpServer.Bindings.Clear;
  31. Binding := VodHttpServer.Bindings.Add;
  32. Binding.Port:=9003;
  33. binding.IP:='192.168.0.254';
  34. VodHttpServer.Active:=true;
  35. except
  36. on e:Exception do
  37. begin
  38. FrmMain_VodSer.write_Logfile('加载APP设置error '+e.message);
  39. end;
  40. end;
  41. end;
  42. procedure TVodService.VodHttpServerCommandGet(AThread: TIdPeerThread;
  43. ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);//响应请求
  44. var
  45. ByteSent: Cardinal;
  46. LocalDoc:string;
  47. tempstr,ips:string;
  48. len,sport:integer;
  49. begin
  50. tempstr:=ARequestInfo.Document; //获取请求字符串
  51. ips:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP;//获取请求地址
  52. sport:=TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerPort;//获取请求端口
  53. if fileexists(extractfilepath(application.exename)+'System.ini') then
  54. begin
  55. LocalDoc:=extractfilepath(application.exename)+'System.ini';
  56. ByteSent :=VodHttpServer.ServeFile(AThread, AResponseInfo, LocalDoc);
  57. end else
  58. begin
  59. Application.Messagebox('没有找到文件System.ini!','提示框',MB_OK+MB_ICONERROR) ;
  60. end;
  61. end;

Delphi IdHttp组件+IdHttpServer组件实现文件下载服务的更多相关文章

  1. 构建简单的 C++ 服务组件,第 1 部分: 服务组件体系结构 C++ API 简介

    构建简单的 C++ 服务组件,第 1 部分: 服务组件体系结构 C++ API 简介 熟悉将用于 Apache Tuscany SCA for C++ 的 API.您将通过本文了解该 API 的主要组 ...

  2. 使用Topshelf组件构建简单的Windows服务

    很多时候都在讨论是否需要了解一个组件或者一个语言的底层原理这个问题,其实我个人觉得,对于这个问题,每个人都有自己的看法,个人情况不同,选择的方式也就会不同了.我个人觉得无论学习什么,都应该尝试着去了解 ...

  3. delphi中的idhttpserver如何才能收到idhttp发送来的exe\rar文件呢

    http://zhidao.baidu.com/link?url=-q2oXqYCKBZ9OgFDEHAcQwQEY_NroHcqGvVfKW67X5sF9LdjAAB_HPXQo04VxStFVS7 ...

  4. (十七)整合 Zookeeper组件,管理架构中服务协调

    整合 Zookeeper组件,管理架构中服务协调 1.Zookeeper基础简介 1.1 基本理论 1.2 应用场景 2.安全管理操作 2.1 操作权限 2.2 认证方式: 2.3 Digest授权流 ...

  5. django第13天(auth组件,forms组件,中间件,csrf)

    django第13天(auth组件,forms组件) auth组件 -auth组件 -auth是什么? -django内置的用户认证系统,可以快速的实现,登录,注销,修改密码.... -怎么用? -( ...

  6. K8s二进制部署单节点 master组件 node组件 ——头悬梁

    K8s二进制部署单节点   master组件 node组件   --头悬梁 1.master组件部署 2.node   组件部署 k8s集群搭建: etcd集群 flannel网络插件 搭建maste ...

  7. Vue.js学习 Item11 – 组件与组件间的通信

    什么是组件? 组件(Component)是 Vue.js 最强大的功能之一.组件可以扩展 HTML 元素,封装可重用的代码.在较高层面上,组件是自定义元素,Vue.js 的编译器为它添加特殊功能.在有 ...

  8. Vue中父子组件通讯——组件todolist

    一.todolist功能开发 <div id="root"> <div> <input type="text" v-model=& ...

  9. $Django Rest Framework-认证组件,权限组件 知识点回顾choices,on_delete

    一 小知识点回顾 #orm class UserInfo (models.Model): id = models.AutoField (primary_key=True) name = models. ...

随机推荐

  1. 本地SVN服务器的搭建(WINDOWS环境)

    1.下载安装 VISUALSVN SERVER 1.1下载地址:https://www.visualsvn.com/server/download/ 1.2下载完成后,双击安装. 2.下载安装 Tor ...

  2. [Vue warn]: You may have an infinite update loop in a component render function

    [Vue warn]: You may have an infinite update loop in a component render function 这个问题很奇怪,之前从来没有遇到过.如果 ...

  3. C# ASP.NET发送电子邮件System.Net.Mail

    1.补充知识 (1)POP3和SMTP服务器是什么? 简单点来说:POP3 用于接收电子邮件 ,SMTP 用于发送电子邮件. (1)POP3具体指什么? POP3(Post Office Protoc ...

  4. 如何在虚拟机VM安装windows 2008R2

    1.首先确保已经安装好VM软件后进行以下操作.首先点击"文件"->再点击新建虚拟机.如图 2.点击新建虚拟机后会弹出如图所示,可以点击"典型",这里建议选 ...

  5. Docker实战部署应用——MySQL5.7

    MySQL 部署 拉取MySQL镜像 拉取命令: docker pull mysql:5.7 查看镜像 docker images 创建 MySQL 容器 docker run -id --name= ...

  6. tmux 操作简版

    操作session: 操作window: 操作pane: 原文

  7. 一、Vs2019扩展多了 导航到反编译的源码中运行

    一.导航到反编译的源码中运行

  8. 【串线篇】spring boot全面接管springMvc

    一.Spring MVC auto-configuration Spring Boot 自动配置好了SpringMVC 以下是SpringBoot对SpringMVC的默认配置:(WebMvcAutoC ...

  9. CF1009F Dominant Indices 长链剖分

    题目传送门 https://codeforces.com/contest/1009/problem/F 题解 长链剖分的板子吧. 令 \(dp[x][i]\) 表示 \(x\) 的子树中的深度为 \( ...

  10. java8-Stream集合操作快速上手

    java8-Stream集合操作快速上手   目录 Stream简介 为什么要使用Stream 实例数据源 Filter Map FlatMap Reduce Collect Optional 并发 ...