- 博客(32)
- 资源 (12)
- 收藏
- 关注
RSS订阅原创 Delphi的热键转化函数
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if ShortCut(Key,shift)=TextToShortCut('F2') then ...;end；
2021-08-12 13:02:57
179
原创 delphi中，char数组、string和Pchar的相互转换
delphi char数组、string和Pchar的相互转换原创kunlun122 最后发布于2013-10-31 17:42:31 阅读数 18702 收藏1.string转换成pchar可以使用pchar进行强制类型转换，也可以使用StrPCopy函数var s:string; p,p1:PChar;begin s:='Hello Delphi';...
2020-03-07 12:34:25
1695
原创 运行dos命令，并查看返回结果
方法一： //1，声明变量var CreateOk: Boolean; hReadPipe, hWritePipe, hWriteFile, hReadFile: THandle; processinfo: PROCESS_INFORMATION; function SendCmdToShell(const C
2012-03-06 16:25:20
3942
转载 MySQL用变量的方法添加伪序号列,MySql自增序列,序号列
用两个语句来实现 set @rownum=0;SELECT @rownum:=@rownum+1 AS rownum , id FROM table; 用一个sql语句来实现SELECT @rownum:=@rownum+1 AS rownum, table_name.* FROM(SELECT @rownum:=0) r, table_name ;把row
2011-12-13 21:04:30
12096
1
转载 多线程编程(5) - CreateThread - 入口函数的指针
多线程编程(5) - 从 CreateThread 说起[续三]function CreateThread( lpThreadAttributes: Pointer; dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; {入口函数的指针} lpParameter: Pointer; d
2011-10-28 13:25:49
1122
转载 多线程编程(4) - CreateThread - 入口函数的参数
多线程编程(4) - 从 CreateThread 说起[续二]function CreateThread( lpThreadAttributes: Pointer; dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer; {入口函数的参数} d
2011-10-28 13:24:37
1087
转载 多线程 - CreateThread - 启动选项
多线程编程(3) - 从 CreateThread 说起[续]function CreateThread( lpThreadAttributes: Pointer; dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer; dwCreationFlags
2011-10-28 13:23:06
970
转载 多线程 - CreateThread - 参数
多线程编程(2) - 从 CreateThread 说起function CreateThread( lpThreadAttributes: Pointer; {安全设置} dwStackSize: DWORD; {堆栈大小} lpStartAddress: TFNThreadStartRoutine; {入口
2011-10-28 13:21:41
556
转载 多线程 入门
多线程编程(1) - 先入门再说多线程应该是编程工作者的基础技能, 但这个基础对我来讲的确有点难(起码昨天以前是这样).开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解.先试试这个:procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin
2011-10-28 11:49:04
416
转载 缩放 移动控件
//缩放 移动控件//任意摆布一个控件 ( 拖动、放大、缩小 ) (2008-07-24 23:42:11) [编辑][删除]//标签：杂谈 分类：编程// 第一步, 先写出下面的函数//==============================================================================proced
2011-10-28 09:33:32
621
原创 edexpress + mysql
<br />还有个小问题：我最后才发现dbExpress是需要发行的……最后发行的方法如下（对于MySql而言）:<br />把dbexpmysql.dll、dbxconnections.ini、dbxdrivers.ini和libmysql.dll放在主程序目录，然后设置好两个ini中的Mysql服务器地址，就搞定了……当初花了我两个小时，直到抓狂，还是受大富翁一个帖子的提醒才搞定……<br />UPDATE: 发现，如果需要从dbxconnections.ini读取数据源信息，需要加上一句：<br />
2011-05-23 15:51:00
766
原创 delphi 获取本机IP地址和MAC地址
<br />unit NetFunc;interfaceuses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; //错误信息常量 const C_Err_GetLocalIp = '获取本地ip失败'; C_Err_GetNameByIpAddr = '获取主机名失败'; C_Err_GetSQLServerList = '获取SQLServer服务器失败';
2011-05-18 07:47:00
4686
1
原创 Delphi+DBGrid导出Excel文件代码 (适合没有安装excel的机器)
<br />说明<br /> <br />delphi DBGrid导出Excel文件最快速的代码<br /> <br />使用方法：<br />xls.pas为导出核心代码。<br /><br />myclass.pas为独立建立的一个类，用于引用核心代码建立一个DBGrid导出Excel文件的函数，该函数为DataSetToExcel(MydataSet:tdataset)<br /><br />StatHw.pas为引用该函数的一个示例：<br /><br />uses myclass;<br />
2011-05-16 19:10:00
5364
2
原创 delphi 使用把数据集导出为excel文件 (适合安装Excel的机器)
<br />use ComObj ;//====================================//delphi导出Excel表procedure saveToExcel(adoquery1 : tdataset);var E, workbook :variant; i,n:integer;begin //检查数据完整性 if not adoquery1.Active then exit; if adoquery1.Rec
2011-05-16 19:00:00
2898
原创 开钱箱通用指令
<br />// 支持开钱箱的打印机有EPSON 210PD/220、STAR POS58、DIY-POS POS58Nfunction openmoneybox:boolean; // 开钱箱 Epson210D+D7+Win2k测试通过VarF:TextFile;pdStr:string;pport:string; // 打印机端口,开钱箱端口prin:string; // 打印机类型cd:string;begincd:=trim(sini.ReadString('P
2011-05-15 19:05:00
46428
1
原创 delphi调用并口开钱箱
<br />//开钱葙Function OpenMoneyBox(sMoneyBoxPort:String):Boolean;Var PrnFileName: TextFile;Begin Result:=False; Try Try Assignfile(PrnFileName,sMoneyBoxPort); Rewrite(PrnFileName); // Write( PR
2011-05-15 18:51:00
3387
原创 海宏原创：给USB口的打印机发ESC转义指令开钱箱
海宏原创：给USB口的打印机发ESC转义指令开钱箱海宏原创：给USB口的打印机发ESC转义指令开钱箱var sMoneyBoxOpenCommand='海宏软件，不同的打印机，指令不同';TOutBufPassThrough = record //调用windows.extEscape可以直接用extEscape(handle, PASSTHROUGH, sizeOf(outBuf), @outBuf, 0, nil)向设备发送esc命令 nDataLen:word; sEs
2011-05-15 18:42:00
11723
3
原创 如何解决Combobox下拉列表框用Backspace删除字符时出现乱码的问题
我用DELPHI2007做了一个软件，用到了ComboBox1控件，发现有个乱码问题。解决方法：将属性AutoComplete 设为 False就可以了.我做了个测试程序：下载地址：截图：
2011-05-06 10:14:00
2965
2
原创 windowsXP + delphi2007 安装FastReport 4的方法
以前曾经安装过FastReport数据报表控件，觉得功能不错。现在发现网上已经有4以上的版本下载使用。于是从CCRUN上下载了FastReport V4.7.9进行安装，在下载后发现安装复杂了些，比FastReprot 2.41的版本比较没有自动安装，需要手动编译各部件。于是将安装心得记录给有需要的朋友参考。一、 卸载旧版本 如果以前未安装过FastReport可以直接跳到下一步。 如果安装过以前版本的FastReport在工具栏上会看到FastReport和FR Tools两个选
2011-01-13 14:37:00
2110
原创 copyFile函数
<br />1. CopyFile函數詳解<br />━━━━━━━━━━━━━━━━━━━━━━━━━━<br />CopyFile函數，文件拷贝函数.其基本結構如下:<br />copyfile( <br /> lpcstr lpexistingfilename， // 源文件路径 <br /> lpcstr lpnewfilename， //新文件路径 <br />
2011-01-13 14:33:00
3943
原创 delphi中有关磁盘文件管理/处理的函数
<br />1. CopyFile函數詳解<br />━━━━━━━━━━━━━━━━━━━━━━━━━━<br />CopyFile函數，文件拷贝函数.其基本結構如下:<br />copyfile( <br /> lpcstr lpexistingfilename， // 源文件路径 <br /> lpcstr lpnewfilename， //新文件路径 <br />
2010-10-12 14:24:00
923
原创 植物连连看
软件大小：3.63MB 软件语言：简体中文 软件类别：国产软件/智力游戏 软件授权：免费版 联 系 人：ijong@qq.com 开发商 :IjongSoft运行环境：Winxp/vista/win7/2000/2003下载： 华军 中关村软件介绍：经典的连连看游戏，内置《植物大战僵尸》中的植物经典图标。 还可以自己修改图标，让你体验参与游戏的乐趣。 3个级别含30个关卡，让您享受休闲的快乐。 免费！绿色！无毒！无马
2010-09-17 11:25:00
353
原创 图片缩放算法
图片缩放算法最邻近插值（近邻取样法）： 最临近插值的的思想很简单。对于通过反向变换得到的的一个浮点坐标，对其进行简单的取整，得到一个整数型坐标，这个整数型坐标对应的像素值就是目的像素的像素值，也就是说，取浮点坐标最邻近的左上角点（对于DIB是右上角，因为它的扫描行是逆序存储的）对应的像素值。可见，最邻近插值简单且直观，但得到的图像质量不高。双线性内插值： 对于一个目的像素，设置坐标通过反向变换得到的浮点坐标为(i+u,j+v)，其中i、j均为非负整数，u、v为[0,1)区间的浮点数，则这个像素得值
2010-06-16 14:01:00
2463
原创 有关颜色的几个函数
<br />内容：将TColor换算成RGB，主要是用API函数GetRValue、GetGValue和GetBValue将TColor分解成RGB中的R、G、B三色。GetRValue函数可将TColor分解为RGB中R的值。语法：function GetRValue(rgb: DWORD): Byte;DWORD：RGB颜色的值。例如，获取RGB颜色中的红色（R）值，代码如下：Caption := IntToStr(GetRValue(clRed));结果：255说明
2010-06-15 17:28:00
3908
1
原创 graphics单元的几个图像函数
function GraphicFilter(GraphicClass: TGraphicClass): string;function GraphicExtension(GraphicClass: TGraphicClass): string;function GraphicFileMask(GraphicClass: TGraphicClass): string;function ColorToRGB(Color: TColor): Longint;function ColorToS
2010-06-15 16:59:00
1280
原创 Delphi代码的双线性插值算法
下面这段代码是VC的旋转双线性插值算法，先来看这段代码：/************************************************************************* * 函数名称： * RotateDIB2() * 参数: * LPSTR lpDIB - 指向源DIB的指针 * int iRotateAngle - 旋转的角度（0-360度） * 返回值: * HGLOBAL - 旋
2010-06-15 09:12:00
2480
原创 delphi 2007安装 Invalid Serial Number 问题
delphi 2007安装 Invalid Serial Number 问题<br />内容摘要：Delphi 2007安装程序根据不同的序列号(许可文件)来判断安装版本，一般ISO中自带的许可文件是专业版的。 <br /> 安装前提是你已经下载了Delphi 2007 for Win32的ISO。<br /> Delphi 2007安装程序根据不同的序列号(许可文件)来判断安装版本，一般ISO中自带的许可文件是专业版的。<br /> 企业版和专业版的许可文件下载：delphi2007_slip.zi
2010-06-08 20:22:00
5411
1
原创 Delphi FastReport4.5安装说明
<br />一、环境<br />1、Delphi 2006 （Version10.0.2151.25345）<br />2、FastReport4.5 full source，下载地址(www.ccrun.com)<br /> 这个版本支持Delphi 4~7, 2005, C++Builder 4~6, BDS2006, RAD Studio 2007<br />3、目录结构D:/FastReport4.5，解压后目录结构如下：<br />/Demos<br />/Extra<br />/FastQ
2010-06-08 20:20:00
5518
2
原创 读取目录下的文件列表
unit MyFileMeneger;interfaceuses Windows,classes,sysutils;function Slash(const Path: string ): String; //路径的末尾如果没有反斜杠，则加上反斜杠。slash：英文指反斜杠function GetDiskList():tstringlist ; //读取驱动器列表//读取目录下的文件列表(包括文件夹)function ReadFiles(const Par
2010-06-08 20:10:00
1255
原创 有关右键菜单添加菜单项的操作
<br />var //m:tmenuitem ;//使用变量只能添加一个菜单项 p: tpoint ;begin self.PopupMenu1.Items.Clear;//添加子菜单 self.PopupMenu1.Items.Add(tMenuItem.Create(self)); self.PopupMenu1.Items[self.PopupMenu1.Items.Count-1].Caption := '123' ; self.PopupMenu1.Item
2010-06-08 20:06:00
478
Delphi7 Microsoft Speech SDK5.4语音处理
2022-11-07
delphi_sql_parser.zip
2020-02-23
FastReport.V4.9.FullSource.For.Delphi2010.安装版
2012-12-02
Delphi 函数：双线性插值缩放图像
2010-06-16
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人