====================================类库==================================== 类库奇缺, 和python社区简直差十万八千里, 下面是我常用到的类库. RxLib(是并入JVCL前的版本): 有很多不错VCL组件, 另包含几个Util单元(RxShell/StrUtils/FileUtil/DateUtil) TurboPower 的几个类库: SysTools: 包括logging, 排序, 正则, math expression analyzer, bar codes(支持一维和二维), ShellShock: Shell的封装...
Pchar是非托管代码，要在.net中调用Delphi dll中的功能，请使用MarshalAs属性告知.net调用PInvoke去转换.net中标准的string类型。如果Delphi dll是Delphi2007以前的版本编译的，则Pchar是Ansi类型；如果Delphi dll是Delphi2009以后的版本编译的，则Pchar是Unicode类型。请看以下实例。Ansi类型：[DllImport("my.dll")] [return: MarshalAs(UnmanagedType.LPStr)] publicstaticextern String GetMyNickName( [MarshalAs Unmanaged...
DELPHI开发LINUX插件架构的程序DELPHI可以开发LINUX配置型插件架构的程序，并且这一套插件架构，同样适用于MSWINDOWS和MAC。配置插件：根据配置，动态加载插件：原文：https://www.cnblogs.com/hnxxcxg/p/11459188.html
这个程序可以用于解析任何合法的XML字符串。首先是看一下程序的运行效果： 以解析这样一个XML的字符串为例：<?xml version="1.0" encoding="UTF-8"?><BookInfo><Owner><OwnerName>张三</OwnerName><OwnerAge>1234</OwnerAge></Owner><BookMes><BookName>时间简史</BookName><ISDN>234343453534</ISDN><Writer>霍金</Writer></BookMes></BookInfo> 首先是打开应用程序 然后将上面所示的字符串复制...
DevExpress VCL套件是一套非常强大的界面控件，可惜关于Delphi开发方面的说明太少，有些控件使用起来一头雾水，不知从何下手。本节详细介绍在Delphi Xe10 Seattle中如何利用dxLayoutControl 控件来做界面布局。1、 首先从工具箱面板中将dxLayoutControl放在Form上，设置2个关键属性如下：属性属性值说明AlignalClient一般都要设置为alClient，因为需要它控制整个Form布局LayoutLookAndFeelCreate a new LookAndFeel in the new Li...
button 组件：CAPTION 属性 ：用于在按钮上显示文本内容Cancel 属性：是否设置成默认的取消按钮，当设置为真的时候（true） 按ESC触发改按钮的事件！Default 属性：是否设置成默认的确认按钮，当设置为真的时候 按ENTER键的时候触发事件Hint 属性：设置当鼠标在按钮上短暂停留是显示的提示内容。Showhint 属性： 是否显示提示内容默认为假！Bitbtn 组件Kind 属性： 他的值就是位图按钮组件上所显示的图标！GLYPH 属性： 用于在...
var Form : IHTMLFormElement ;D:IHTMLDocument2 ; beginwith WebBrowser1 do beginD := Document as IHTMLDocument2;Form := D.Forms.item( ‘form1 ‘,0) as IHTMLFormElement; //form1为表单名//title为表单中的文本框(form.item( ‘title ‘,0) as IHTMLElement).setAttribute( ‘value ‘,s_title,0); (form.item( ‘content ‘,0) as IHTMLElement).setAttribute( ‘value...
第一步：在要实现快捷键的窗体中更改属性“KeyPreview”为True；第二步：在要实现快捷键的窗体中的OnKeyPress事件中填入一个过程名称（在Object Inspector中），填写好后回车就可转入事件代码填写部分；第三步：填写事件处理过程，下面给出一个例子：procedure TFrmMain.KeyPress(Sender: TObject; var Key: Char);beginif key in [‘ ‘] then begin B_Play_Pause.Click; end;end;以上的例子实现了“在一个激活的窗体中，按下...
在网上查了许多资料去论述如何在dephi中去实现组件随窗口大小的变化而变化，然都不尽如人意。有人说用组件的align + anchors 这两个属性去控制，但是我用了之后，让我大惊失色。把anchors属性下面的四个值都变为true.如果用户用鼠标去拖动窗口，那么窗口上的组件像是中了夺命书生的面目全非脚一样，基本上就没有所谓的五官之态。下面就介绍我的方法，同样本人的方法也是看了网友们的资料才得以完成的。(1) 下载TFormResizer组件我用...
通过对消息函数（SendMessage、PostMessage、Perform）的一般应用，来说明sendmessage、postmessage函数和perform 方法调用方式和结果的区别。 一、程序界面 二、程序代码及注释unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Button1: TButton;Button2: TButton;Button3: TButton;procedure Button1Click(S...
MD5 与 SHA 在 Delphi 中函数实现。为了加密密码，必须使用一种算法，查询资料，比较好的方法是使用：MD5等算法，参考：Delphi XE8 支持MD5第一种方式是：引用 System.Hash 中的 THashMD5， （或者 THashSHA1，THashSHA2） 参考 官方文档。 http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Hash 简单用法： hashmd5 := THashMD5.Create.GetHashString(‘abc‘); ‘abc’ 是你想加...
Delphi 在很大程度上是一个被遗忘我的工具。 无论是在使用RapidSql , 我还没有收到Embarcadero 本公司发行参与邀请Delphi XE5该公告将。 可能有人会问，为什么Embarcadero （这个名字很拗口）代替Borland 开放Delphi 公布会， 这是由于Borland那几年撑不下去， 把IDE工具打包成立了CodeGear 公司，已经被Embarcadero 收购了。实际上十多年前以前參加过机械工业出版社主办的一个技术沙龙， 李维先生作为Borland 技术专家， 畅谈了“...
开始研究最重要的多线程读写全局数据了，结合书上的例子，我修改成下面的情况： unit Tst_Thread3U;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObjec...
手动添加数据到ComboBoxjcsqueryResult.First; whilenot jcsdqryvehiclebydriverid.Eof do //从TJsonClientDataSet中取出数据，存到ComboBox中beginv := Vehicle.Create();//这个类有vehicleno和id2个属性。v.vehicleno :=jcsqueryResult.FieldByName(‘vehicleno‘).AsString;v.id := jcsqueryResult.FieldByName(‘vehicleid‘).aslargeint; NovaVehicleNoComboBox.Items.AddObject(v.vehicleno, TObject(v)); //存到ComboBox...
zw版【转发·台湾nvp系列Delphi例程】HALCON SetComprise2procedure TForm1.Button1Click(Sender: TObject);var op : HOperatorSetX; image0, image1 : HUntypedObjectX; w, h : OleVariant;begin op := CoHOperatorSetX.Create; op.ReadImage(image0, ‘fabrik‘); op.GetImageSize(image0, w, h); HWindowXCtrl1.HalconWindow.SetPart(0, 0, h - 1, w - 1); op.DispObj(image0, HWindowXCtrl1.HalconWindow.HalconID); o...