delphi中间件

摘要： Blocking connections 当你使用的连接是Blocking时,你的Socket必须通过连接发起读或写操作,胜过被动的等待从socket连接发来的通知. 当你的连接末端的读和写操作发生改变时使用Blocking socket.对于客户端sockets,设置ClientType属性为ctBlocking 以便构成一个blocing connection.根据你的客户端应用想完成什么,你可能想建立一个执行线程去完成读或写操作,以便你的应用能够继续执行其他的线程,当它在等待通过连接读或写操作的完成. 对于服务器sockets,设置ServerType属性为stThreadBl... 阅读全文

摘要： Non-blocking连接,读和写是异步的, 所以在你的网络应用中不需要阻塞其他代码的执行.建立一个Non-blocking连接: 1.在客户socket中设置ClientType属性为ctNonBlocking. 2.在服务器socket中设置ServerType属性为stNonBlocking. 读和写操作事件 sockets想通过连接读或写时,它会产生一个读和写操作事件通知你的socket.在客户端sockets,你可以在OnRead或OnWrite事件句柄中对这些事件做出反应.在服务器端Scokets,可以在OnClientRead或OnClientWrite事件句柄中对这些... 阅读全文

摘要： 1引言Windows Sockets规范以U.C. Berkeley大学BSD UNIX中流行的Socket接口为范例定义了一套Microsoft Windows下网络编程接口。它不仅包含了人们所熟悉的Berkeley Socket风格的库函数；也包含了一组针对Windows的扩展库函数，以使程序员能充分地利用Windows消息驱动机制进行编程。Windows Sockets 规范本意在于提供给应用程序开发者一套简单的API，并让各家网络软件供应商共同遵守。此外，在一个特定版本Windows的基础上，Windows Sockets 也定义了一个二进制接口(ABI)，以此来保证应用Windows 阅读全文

摘要： procedure CreateVarArrayFromDataset(var varResultSet: OleVariant; ADataset : TDataset); var m : Integer; nRecords, nColumns, nCurRec : Integer; begin nRecords := -1; nColumns := -1; try { Create the array... } { Set size to 0..m-1 where m equals the number of columns. } nColumns := Max(0, A... 阅读全文

摘要： 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之禅（四）大学生：大师啊！请教教我 阅读全文