delphi中间件

摘要： Beep 其实是调用的 API 函数: MessageBeep(MB_OK); MessageBeep 有下面几种用法可以调用几种不同的声音文件: MessageBeep(MB_OK);MessageBeep(MB_ICONHAND);MessageBeep(MB_ICONQUESTION); {这个不响, 不知道为什么}MessageBeep(MB_ICONEXCLAMATION);MessageBeep(MB_ICONASTERISK);MessageBeep($FFFFFFFF); {同 MessageBeep(MB_OK);} 阅读全文

摘要： type TLoginUser = record //登陆用户结构 id: string; name: string; ruleid: string; rulename: string; pwd: string; end; PShareObjectRecord = ^TShareObjectRecord; TShareObjectRecord = record //共享对象结构 Connection: TADOConnection; LoginUser: TLoginUser;end; var G_PShareObjectRecord: PShareObjectRecord;//... 阅读全文

摘要： AdvAlertWindow1.AlertMessages.Add.Text.Text := s; AdvAlertWindow1.Last; AdvAlertWindow1.Show;tms套件中控件，做消息提示框效果非常好。 阅读全文

摘要： Delphi中使用ListView和TreeView的Item中的Data可能被忽略的内存泄漏问题，使用了Data作为指针的数据，在删除项目时，这些内存将不会释放，可以在OnDeletion事件中加入Dispose(Item.Data); 语句来实现释放。 Delphi中大家在使用 ListView和TreeView时，一般都会使用到Item的Data属性来保存大家自己的内部数据，这个Data的声明如下：property Data: Pointer;大家可以看到它就是一个指针，使用上一般类似如下代码（以ListView为）添加时PViewItemState = ^TViewItemState; 阅读全文

摘要： 发送结构体：TMyData = record id:Integer; Name:Array[0..20] of Char; Sex:Array[0..10] of Char; Age:Byte; Address:Array[0..256] of Char; UpdateTime:double; en 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declar... 阅读全文

摘要： {函数procedure pinghost(ip:string;var info:string);ip:目标ＩＰ地址；info:ping了以后产生的信息(1)或(2)；(1)成功信息ip 发送测试的字符数　返回时间(2)出错信息Can not find host!使用uses ping;procedure TForm1.Button1Click(Sender: TObject);varstr:string;ping:Tping;beginping:=Tping.create ;//一定要初试化哦ping.pinghost('127.0.0.1',str);memo1.Lines 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);var node: ttreenode; i: integer;begin i := 0; node := treeview1.Items.GetFirstNode; while node <> nil do begin inc(i); node := node.GetNext; end; caption := inttostr(i);end; 阅读全文

摘要： procedure THostForm.LoadLocalModules;var i, x : integer; parentnode: TTreeNode; controller : THYModuleController; plugindescriptor : THYPLuginDescriptor;begin TreeView.Items.BeginUpdate; with ModuleManager do begin LoadModules(GetAppPath + 'plugin/*.dll'); for i := 0 to (ModuleCount - 1) do 阅读全文

摘要： function blTree(const NodeCaption: string): TTreeNode; function GetNode(node: TTreeNode): TTreeNode; var I:integer; begin Result := nil; if node.Text = NodeCaption then begin Result := node; Exit; end; for I:=0 to node.Count-1 do begin GetNode(node.Item[i]); end; end;var I:integer;begin Result ... 阅读全文