相关资料: http://blog.csdn.net/earbao/article/details/46514313 结果注意: 1.Use IdContext.IdGlobal 这两个单元2.不能使用string类型,在分存分配时会出错的.3.手机中不支持string[20]. 实例代码: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Varian…

IdTcpServer uses IdContext //需要引用 属性,方法: IdTCPServer.Active :=True; //开启服务器 IdTCPServer1.Bindings.Add.IP := '127.0.0.1';//绑定IP IdTCPServer1.Bindings.Add.Port := ;//绑定端口 事件: OnConnect : 客户端连接成功触发 OnDisConnect : 客户端断开触发 OnExeCute : 收到客户端数据触发 例子 //像所有客户…

indy 10终于随着Delphi2005发布了,不过indy套件在我的印象中总是复杂并且BUG不断,说实话,不是看在他一整套组件的面子上,我还是喜欢VCL原生的Socket组件,简洁,清晰.Indy9发展到了indy10几乎完全不兼容,可叹啊.言归正传.在使用IdTCPServer组件的时候发现了他的漏洞,他的OnConnec,OnExecute,OnDisconnect等事件是在其他线程中执行的,通常情况下这没有问题,但是在特殊的情况下会造成问题,如果其他部分的程序写得有问题就会出现漏洞.…

原文:http://blog.csdn.net/hnxxcxg/article/details/2798019 用idTCPServer,客户端接上来时,如何取得客户端的IP? IP:=AThread.Connection.Binding.PeerIP;Port:=AThread.Connection.Binding.PeerPort; 尝试解答你的疑问:问题一:在Form1中放入IDTCPServer控件,一旦有socket连接,IDTCPServer自动建立一个线程与之建立一个TCP/IP连…

https://blog.csdn.net/luojianfeng/article/details/53959175 2016年12月31日 23:40:15 阅读数:2295 Delphi     IdTCPClient 点对点传送文件 客户端向另一个客户端传送文件,不通过服务端中转那一个很重要的点是,这个客户端也要放一个IdTCPServer,也就是说这个客户端既是客户端,当接收文件的时候也是服务端,必须相应其它客户 端对它的连接,这个时候客户端相当与服务端,好了,明白这个道理就好办了 A客…

IdTCPServer1 Server本身就支持多线程,一个服务端连接多个客户端. IdTCPServer1.Bindings.Add.IP := '127.0.0.1';IdTCPServer1.Bindings.Add.Port := 153; void __fastcall TForm2::IdTCPServer1Execute( TIdContext * AContext ) { AContext->Binding->PeerIP; AContext->Binding->P…

短信猫 服务端: IdTCPServer1: TIdTCPServer; IdAntiFreeze1: TIdAntiFreeze; unit UnitSever; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdAntiFreezeBase, IdAntiF…

特别是有很多手机方面的独创源代码,先记下来,有空挨个看一遍: http://download.csdn.net/user/ozhy111 比如:idtcpserver文件传输xe7PC端及手机端 http://download.csdn.net/detail/ozhy111/8694539…

最近闲来无事,重新学习了Indy10,顺手写了一段即时通讯代码.与上次写的笔记有不同之处,但差别不大. 未研究过TCP打洞技术,所以下面的代码采用的是  客户端--服务器--客户端  模式,也就是服务器端转发消息的模式. 客户端模仿了QQ,可以在屏幕四周停靠自动隐藏 本文也演示了在线程中操作VCL的两张方法: 1:向主线程发送消息 2:在线程中使用临界区 program Server; uses Forms, UntMain in 'UntMain.pas' {Form2}, Unit2 in…

最近一个项目,最开始使用IdTcpServer,在大压力测试的时候,只连接了800个多一点的客户端(每个客户端连接上之后每秒钟发送一个几十字节的报文,服务器应答).但是持续的时间不会超过10分钟,服务器就会挂掉(经常是服务器突然关闭消失,任何提示都没有).后来优化了互斥量之后,可以连接到1000多个客户端.但是服务器消失的问题依然存在.    今天再一台双CPU,4G内存的服务器上试验了下,居然最也只能连接到2000多个客户端.然后换了Indy10.1.5服务器只做简单的连接和应答,客户端连接之…

转发地址:http://blog.csdn.net/cowcga/article/details/6198382 关于TIdTCPClient的几种方法 收藏 其实Indy比较简单,但是可以提供的方法太多了.我找了很久,才搞明白. 比方说这个读取缓冲区的数据,就有很多种方法.相对于TTcpClient的几种方法来说,TIdTCPClient确实提供了多种选择,不仔细研究真的容易糊涂(其实我比较喜欢用CurrentReadBuffer): 1.ReadFromStack 原型:function R…

由于本人天生愚钝,所以关于聊天工具的编程一直都没学会,尽管网上教程一大堆,但是关于IdTCPClient  IdTCPServer 的不多,今天终于学会一些,分享给像我一样纠结的小伙伴,下一步学习多线程的聊天工具! 界面如图:memo 2个  button 3个  labelEdit 3个 IdTCPClient  1个   IdTCPServer 1个 代码如下: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, Syste…

最简单的TTcpServer与TTcpClient通信实例-Delphi_海盗船长_新浪博客http://blog.sina.com.cn/s/blog_5383794d0100nt9u.html delphi TTcpClient TTcpServer分析 - 沧海一粟 - 博客频道 - CSDN.NEThttp://blog.csdn.net/andrew57/article/details/8767308 用TTcpClient和TTcpServer进行文件的传输 - 好记性不如烂笔头 -…

Indy 10.5.8 for Delphi and Lazarus 修改版(2011)    Internet Direct(Indy)是一组开放源代码的Internet组件,涵盖了几乎所有流行的Internet协议.是由Chad Z. Hower领导的一群开发者构建的,Delphi 7中所带的是Indy 9.在其的组件面板上,一共安装有100多个Indy组件.使用这些组件你可以开发基于各种协议的TCP客户和服务器应用程序,并处理相关的编码和安全问题.可以通过前缀Id来识别Indy组件. Id…

我们知道delphi很多源码,都是没有提供的,比如BDE,一旦有问题,我们也找不到办法解决,那么那些dcu对应的pas是没有公布的呢?笔者做了个统计. 下面是delphi7 的,如果你的程序有用到没有源码的部分,就要小心了. 模式: 全部   左侧文件是dcu 右侧文件: 是pas ,只是为了方便,修改成了dcu. AccCtrl.dcu = AccCtrl.dcu AclAPI.dcu   AclAPI.dcu ActivDbgLib.dcu   ActivDbgLib.dcu ActiveS…

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ScktComp, IdTCPServer, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient; type TForm1 = cla…

idhttpserver的使用方法 1)CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);事件 该事件和IDTCPSERVER的EXECUTE()事件一样,都是“线程方法”,即事件是在子线程里面执行的,在其内书写代码要注意“线程保护”. 该事件可以接受客户端HTTP GET.POST或其他HTTP方法请求. if SameText(ARequ…

我在前两篇文章中展示了“REST easy with kbmMW”文章,如何使用kbmMW制作REST服务器,以及如何使用该REST服务器轻松地从数据库返回和存储数据,所有这些都在不到30行的真实数据库中码. 此文章将围绕如何确保使用SSL(安全套接字层)保持与服务器的通信受到保护.换句话说,如何使REST服务器与HTTPS而不是HTTP进行通信. 有多种方法可以使用SSL保护基于kbmMW的应用程序服务器,但我将重点介绍使用OpenSSL执行此操作的一种简单方法. 首先,我们应该创建一个可以使…

在以前的文章里面介绍过kbmmw 做web server. 前几天红鱼儿非要我给他做一个支持https 的web server. 其实kbmmw 支持https 有好几种方法: 1. 使用isapi 部署到iis 或者是apache 上,使用iis 或apache 的https 功能: 2.通过代理方式,使用使用iis 或apache 的https 功能. 今天通过kbmmw 的原生indy 方式实现一下https 支持. 由于是测试,不可能使用真正的证书服务.要应用到商业使用,要申请商用证书.…

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls; type  TForm1 = class(TForm)    IdTCPServer1: TIdTCPServer;    Button1: TButton;    E…

TSimpleMsgPack的样例代码 unit uMain; interface uses SimpleMsgPack, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdThreadMgr, IdThreadMgrPool; const cmd_querysql = 1; type TF…

TIdHTTPServer制作REST中间件 使用DELPHI7+INDY9开发 // 陈新光 2017-2-21// LIS数据同步服务器// 浏览器输入:http://127.0.0.1:8000/test?t1=china&t2=cxg unit untMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs , IdBaseComponen…

以安装indy为例 1/下载组件包, http://www.indyproject.org/Sockets/fpc/indy-10.2.0.3.zip 2/爆开放于C:\lazarus\components\indy-10.2.0.3 3/打开C:\lazarus\components\indy-10.2.0.3\lazarus\indylaz.lpk安装包文件, 点击package里面的options选项 ->Compiler Options 在Other unit files项填上..\fp…

困扰已久的网络通信(IOCP:完成端口),今天终于揭开她的神秘面纱了,之前百度N久还是未能理解IOCP,网络上好多博文都没有贴出源码,初学者很难正在理解IOCP并自己写出通信例子 ,经过努力,今天自己终于做出了简单的测试程序,下面贴出源码,水平有限,难免有错,希望不要误人子弟. 1.Svr主窗体 ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36…

IdTCPClient属性1 : IOHandler 如果有相应的输入/输出操作,那么IOHandler相对应的组件或接口将提供一个虚拟/抽象的输入/输出接口给相应的网络连接2 : Intercept 如果有一个网络连接正在使用,那么Intercept 提供的组件或接口将可以拦截相应的网络数据流中的数据3 : BoundIP 指定使用IdTCPClient组件的计算机系统的IP地址,也就是说,其中是空白那么什么样的计算机都可以使用,但如果指定的IP地址为239.126.12.2,那么就只有IP地…

unit Main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ActnList, StdCtrls, IdComponent, IdTCPServer, IdHTTPServer, Buttons, ComCtrls, IdGlobal, IdBaseComponent, IdThreadMgr, IdThreadMgrDefault, syncobjs, I…

在Delphi 7开发下有强大的Indy控件,版本为9,要实现一个FTP服务器,参考自带的例子,发现还要写很多函数,而且不支持中文显示文件列表等等.于是,自己改进封装了下,形成一个TFTPServer类,源码如下: {*******************************************************} {                                                       } {       系统名称 FTP服务器类      …

主 题:   大家讨论一下什么水平算精通C++ Builder?(我这样算什么,马上要毕业了,不知道如何评价自己)         //C++ builder 使用时间3年 熟悉VCL源代码 开发过3-4个VCL组建 彻底研究过SynEdit source code 熟悉COM/DCOM开发 有3个共享软件开发经验 一个基于b/s大型数据应用开发经验(采用asp+websnap,其中自己写了asp com组建) 等一些必要OO编程知识   回复人: Aweay(绝食高手) ( ) 信誉:115…

不是第一次接触socket编程了,但以前都是看别人的依葫芦画瓢,也不知道具体的原理. 新的项目,有了新的开始,同时也需要有新的认识. Delphi 中带有两套TCP Socket组件: Indy Socket组件(IdTCPClient和IdTCPServer)和Delphi原生的TCP Socket组件(ClientSocket和ServerSocket), 分别是阻塞式和非阻塞式的方式: 还有一套开源的非阻塞式的组件ICS(Internet Component Suite) [网友说:不是特…

在Delphi 7开发下有强大的Indy控件,版本为9,要实现一个FTP服务器,参考自带的例子,发现还要写很多函数,而且不支持中文显示文件列表等等. 于是,自己改进封装了下,形成一个TFTPServer类. 源码如下: {*******************************************************} { } { 系统名称 FTP服务器类 } { 版权所有 (C) http://blog.csdn.net/akof1314 } { 单元名称 FTPServer.p…