delphi中间件

摘要： {*******************************************************}{ }{进制转换 }{ }{ cxg 2008-08-23 08:52:16 }{ }{*******************************************************}unit uStrUnit;interfaceuses SysUtils, StrUtils, Windows, Classes, WinSock, Forms, Controls, Dialogs;const cHexBinStrings: array[0..15] of strin 阅读全文

摘要： Delphi关于多线程同步的一些方法 线程是进程内一个相对独立的、可调度的执行单元。一个应用可以有一个主线程，一个主线程可以有多个子线程，子线程还可以有自己的子线程，这样就构成了多线程应用了。由于多个线程往往会同时访问同一块内存区域，频繁的访问这块区域，将会增加产生线程冲突的概率。一旦产生了冲突，将会造成不可预料的结果（该公用区域的值是不可预料的）可见处理线程同步的必要性。 注意：本文中出现的所有代码都是用DELPHI描述的，调试环境为Windows me ，Delphi 6。其中所涉及的Windows API函数可以从MSDN获得详细的文档。 首先引用一个实例来引出我们以下的讨论，... 阅读全文

摘要： ListView使用中的一些要点。以下以一个两列的ListView为例。 →增加一行：with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:='第一列内容'; ListItem.SubItems.Add('第二列内容'); end; →清空ListView1：ListView1.Items.Clear; →得到当前被选中行的行的行号以及删除当前行：For i:=0 to ListView1.Items.Count-1 Do If ListView1.Items[i].Selected then 阅读全文

摘要： 用idTCPServer，客户端接上来时，如何取得客户端的IP？ IP:=AThread.Connection.Binding.PeerIP;Port:=AThread.Connection.Binding.PeerPort; 尝试解答你的疑问：问题一：在Form1中放入IDTCPServer控件， 阅读全文

摘要： PChar 串是以 Null 结束的, 或者说是以 "空字节" 结束的;PChar 串见到 "空字节" 就认作结束了;"空字节" 在 Delphi 中可以用 #0 或 Chr(0) 来表示.--------------------------------------------------------------------------------//举例:var pc: PChar;begin pc := 'ABCD' + #0 + 'EFGHIJKLMNOPQRSTUVWXYZ'; ShowMess 阅读全文

摘要： 1、# 后面跟一个字符编码可以表示这个字符, 字符编码可以用十进制或十六进制表示;譬如字符 "A" 的编码是 65(十进制) 或 $41(十六进制).ANSII 编码表参见: http://www.cnblogs.com/del/archive/2007/12/07/987071.html--------------------------------------------------------------------------------var c: AnsiChar;begin c := #65; ShowMessage(c); {A} c := #$41; Sh 阅读全文

摘要： 一个全局变量可以初始化, 如果你不主动初始化, 也会被自动初始化;一个局部变量不能被初始化, 虽然你不能主动初始化, 但它会被赋予一个随机值.--------------------------------------------------------------------------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) proc 阅读全文

摘要： DupeString重复字串 与StringOfChar的区别 StringOfChar 是反复 "字符" 成 "字符串" 的函数;DupeString 是反复 "字符串" 成 "新字符串" 的函数;StringOfChar 来自 System 单元, 可以直接使用;DupeString 来自 StrUtils 单元, 使用时需要 uses StrUtils;如果仅仅是反复 "字符", 当然应该用 StringOfChar , 它是用汇编代码实现的, 速度会稍好一些.var p: PChar;b 阅读全文

摘要： SysUtils.StrCat //把源串添加到目标串后, 要求目标串必须有足够的空间StrCat( Dest: PChar; {目标串} const Source: PChar {源串}): PChar; {返回目标串}//测试 1:procedure TForm1.Button1Click(Sender: TObject);var p1,p2,p3: PChar;begin p1 := 'abc'; p2 := '123'; GetMem(p3, Length(p1) + Length(p2)); StrCat(p3,p1); //StrCopy(p3,p1 阅读全文

摘要： Delphi中开发的DLL如何被其它开发语言隐式调用 我曾经用Delphi中开发了《IAPWS-IF97/IFC67水和蒸汽性质计算软件包》。为了方便其它开发人 员进行进一步的热能动力分析软件的开发，我编制了动态链接库(DLL)。其它开发人员也非专业程 序设计人员，对于动态链接库的显式动态调用使用不好(觉得虽然灵活但烦琐)，为了帮助他们用好 我开发的“水和蒸汽性质计算动态链接库”，我开始对各种现代流行的程序设计语言(VC++、 C++Builder、VC#、C# Builder、VB、VB.NET、Delphi、Delphi.NET等)隐式调用我的动态链接库的方 法进行钻研，取得了一些进展.. 阅读全文