delphi中间件

摘要： DELPHI能够兼容COM的数据类型，反之，则不成立。在此举个简单的例子：//DELPHIprocedure Tyn.save2(data: olevariant; out errcount: integer);begin dspunit.ApplyUpdates(data, 0, errcount);end;//COMprocedure Tyn.save(data: OleVariant; out errCount: SYSINT);begin save2(data, errcount);end;这个例子的价值：把以前的两层向多层移植的话，可以保留原来的业务类。但数据类型无疑要进行转换。 阅读全文

摘要： 1.HexToBin() 十六进制转换二进制所在单元：ClassesDelphi语法：function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer描述：调用HexToBin函数转换十六进制字符串到相应的二进制值。Text是一个表示十六进制值的字符串。Buffer返回转换后的二进制结果值。BufferSize表示Buffer的大小。Text需要指向至少2*BufSize的十六进制字符，因为每两个十六进制字符表现为一个字节。HexToBin返回在Buffer中因为Text没有包含有效的十六进制字符('0'..&# 阅读全文

摘要： //取十六进制字符串第n字节值 字节之间有个空格function AGetByteAt(HexValue:string; n:integer):string;begin Result:=Copy(HexValue,(n-1)*3+1,2);end;//取十六进制字符串从第n字节开始的连续m个字节 字节之间有个空格function AGetHexSubstr(HexValue:string; n, m : integer):string;var i: Integer; temp: string;begin temp:=''; for i:=n to n+m-1 do temp:= 阅读全文

摘要： Delphi 的按位运算符共有六个: not and or xor shr shl;unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; proce 阅读全文

摘要： 架构师的要害就是：架构师的领导力。这是一个与技术完全不同的方向，是一个人文的方向。我认识的一位资深HR经理和我的老经理都曾经告诉过我：从技术的思维转换到与人打交道的思维是非常难的；一旦一名技术员（程序员/测试员）同时也掌握了与人打交道的本领，那简直就是无敌的了。有谁还认为架构师只仅仅是一个技术高手？那你永远也成不了架构师！为什么？你可以把自己的架构写得天衣无缝——我相信，每个架构师都有这个本事——但接下来呢？你至少有两件事去做：你需要让开发人员理解它、接受它、认同它，甚至，让他们来一些赞美 你需要让开发人员尽可能舒服地实现你设计的框架 结果架构师同学发现，在他做第一件事情的时候，他迎来的是无数 阅读全文

摘要： IT之禅（一） 程序员：师傅啊，我工作已经好几年了，技术长进挺快，可为什么总感觉自己长不大呢？您给我指条路吧。大师：（沉默片刻）思成败。IT之禅（二）管理者：大师，为什么我的团队不团结？大师：那是因为你自己与自己不和谐。IT之禅（三）一天午饭后，程序员打开新闻网站看网页，大师走到程序员的背后站立片刻，然后问道：“你在干什么？”程序员：我在看网页。大师：有什么有意思的新闻吗？程序员：没有。不过，有一则新闻说，一个人因为一点小事就把他的同事杀了，真难以想象。大师把一只手按在程序员的肩膀上，而程序员看上去像是发起呆来。几分钟后，程序大叫一声：“我要杀了你全家！”IT之禅（四）大学生：大师啊！请教教我 阅读全文

摘要： 套接字（socket）是套接口描述字的简称。和文件句柄相似，SOCKET提供了一咱通讯机制，是WINDOWS的一种通讯方式。应用程序创建了一个套接字后，就能够获得这种机制提供的网络服务功能。对于服务器来说，它提供了监听网络的连接请求；对于客户机来说，它可以连接到一个给定的主计算机和特定的端口上。客户端和服务器端可以通过套接字对象来发送和接收数据。套接字提供了分别基于连接的协议（TCP）等和无连接的协议（UDP）等，以满足网络连接的可靠性、稳定性以及高速性的要求。WINSOCK是网络编程接口，它构成了WINDOWS平台下网络编程的基础。开放系统互连七层模型（OSI）应用层——表示层——会话层—— 阅读全文

摘要： 主要作为服务器端的套接字管理器使用。它封装了服务器端的套接字。在打开套接字后，服务器端就处于监听状态，在接收到其它机器的连接请求后，与客户端建立连接，创建一个新的套接字，用于和客户端互传数据，此时TSERVERSOCKET组件则继续监听客户端连接。属性：ACTIVE：设定TSERVERSOCKET是否处于打开，并处于监听状态SERVERTYPE：按阻塞还是非阻塞模式工作PORT：服务器端的端口SERVICE：服务器端提供的服务SOCKET：连接所使用的SOCKETTHREADCACHESIZE：允许客户连接的最大个数方法：CREATE：创建一个TSERVERSOCKET对象DESTROY：释放 阅读全文

摘要： TclientSocket组件主要作为客户端的套接字使用。它封装了客户端的套接字，在与服务器建立连接之后，就负责管理这个连接，在结束连接后关闭套接字。属性：active：设置CLIENTSOCKET是否打开CLIENTTYPE：设置CLIENTSOCKET使用阻塞式还是非阻塞式通讯ADDRESS：想要连接服务器的IP地址HOST：想要连接服务器的主机名PORT：想要连接服务器的端口号SERVICE：想要获得的服务SOCKET：TCLIENTWINSOCKET连接所使用的SOCKET，它负责数据的传输在实际的使用中，只要知道服务器的IP地址（或主机名）、端口号，将组件的ACTIVE属性设为TRU 阅读全文

摘要： {*******************************************************}{ }{ 操作TreeView }{ }{ 版权所有 (C) 2008 咏南工作室 }{ }{*******************************************************}//==============================================================================// 本单元实现了TreeView与数据的关联，各方法形参如下：//// AId：为自增字段，用于标识节点的编号。// 阅读全文