博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  Delphi

System.Rtti.TRttiObject.GetAttributes 简例

摘要：1 MAttribute = class(TCustomAttribute) 2 private 3 FName: string; 4 public 5 constructor Create(AName: string); 6 end; 7 TMyClass = class 8 private 9 FProp2: Integer;10 FProp1: string;11 procedure SetProp1(const Value: string);12 procedure SetProp2(const Value: Int... 阅读全文

posted @ 2014-03-26 23:15 对镜弹箜篌 阅读(382) 评论(0) 推荐(0)

FMX架构图

摘要： 阅读全文

posted @ 2014-01-02 23:20 对镜弹箜篌 阅读(197) 评论(0) 推荐(0)

delphi 单例模式实现

摘要：1 unit Unit2; 2 3 interface 4 5 uses System.SysUtils; 6 7 type 8 { TSingle } 9 TSingle = class(TObject)10 private11 FStr: string;12 protected13 public14 constructor Create;15 class function GetInstance(): TSingle;16 class function NewInstance: TObject; override;17 p... 阅读全文

posted @ 2013-08-01 22:13 对镜弹箜篌 阅读(1027) 评论(0) 推荐(0)

NotePad++ delphi/Pascal函数过程列表插件

摘要：从cnpack上爬下来的函数过程列表点击下载 阅读全文

posted @ 2013-07-29 22:28 对镜弹箜篌 阅读(698) 评论(1) 推荐(0)

delphi 调用 C# COM DLL 解析C#数据集

摘要：1 using System; 2 using System.Collections.Generic; 3 using System.Text; 4 using System.Runtime.InteropServices; 5 using System.Net.Sockets; 6 using System.Net; 7 using System.Data; 8 using System.IO; 9 using System.IO.Compression;10 using System.Runtime.Serialization.Formatters.Binary;11 12 namesp. 阅读全文

posted @ 2013-06-03 13:07 对镜弹箜篌 阅读(575) 评论(0) 推荐(0)

lcx - HTran 端口转发工具 c++ -> delphi

摘要：1 (* 2 ************************************************************************************ 3 * 4 * HTran.cpp - HUC Packet Transmit Tool. 5 * 6 * Copyright (C) 2000-2004 HUC All Rights Reserved. 7 * 8 * Author : lion 9 * : lion#cnhonker.net 10 * : [url]http:... 阅读全文

posted @ 2013-05-04 16:03 对镜弹箜篌 阅读(1349) 评论(0) 推荐(0)

LMD script import 注册表报错

摘要：在HKEY_CURRENT_USER\Software\LMD Innovative\LMD-Tools 2012\下新建项目ScriptPack，然后为ScriptPack项新建值VCLImportPath REG_SZ F:\...Import(LMD目录下存在这个的文件夹，也可以自定义，他会自动寻找对应Delphi版本的下级文件夹例如d16) 阅读全文

posted @ 2013-03-26 11:07 对镜弹箜篌 阅读(212) 评论(0) 推荐(0)

FastReport (4.13)中文菜单显示不全或者乱码解决方法(2010 XE2 )转

摘要：可以自己编译一个frcc.exe，替换Res目录下的，然后再recompile即可。 delphi 2010(update5)测试界面都正常。用delphi 2010 XE2建立一个console工程，名称为frcc，代码如下：program frcc;{$APPTYPE CONSOLE}uses SysUtils, Classes, StrUtils;var xml: string; list: TStringList; i: Integer; fileName : string; lineWidth: integer; line: st... 阅读全文

posted @ 2013-03-09 09:54 对镜弹箜篌 阅读(642) 评论(0) 推荐(0)

Delphi调用DLL中的接口（转）（一个FreeLibrary时 报错的解决方案）

摘要：最近很少上论坛，这几次发现好几个问题都是围绕如何使用DLL中的接口而展开的。问题描述：具体问题就是在隐式使用接口变量后，在FreeLibrary执行后，就会出现一个非法访址的错误。这个错误的原因就是在FreeLibrary后，DLL以的代码均为不可用状态，而在代码执行完整个过程后，VCL要对RTL类型的数据进行清理。而在清理过程中肯定要对接口进行减1并进行释放相关对象。而对象代码已从进程空间卸载，故报非法访址错误！解决方法：所以要想解决该问题，就应该把DLL调用过程放到一个单独的过程中，其目的就是让调用完毕后，让VCL来清理接口。清理完毕后返回后，再调用FreeLibrary来从进程空间中卸载 阅读全文

posted @ 2013-02-27 23:28 对镜弹箜篌 阅读(2804) 评论(1) 推荐(0)