- 博客(38)
- 资源 (14)
- 收藏
- 关注
转载 实现ADOConnection 控件 打开系统数据库配置页面
自定义函数实现 ADOConnection 控件 打开系统数据库配置页面 function TForm1.ConfigDBConn(IsNew: boolean; EditedConnStr: string): String;var DataSourceLocator : IDataSourceLocator; ADOConn : IDispatch; ADODbCon
2009-12-31 11:22:00 305
转载 插件管理框架 for Delphi
插件技术的出发点主要是为了使软件能够灵活地进行扩展功能,而不需要对主程序(框架程序)进行重新编译和发布。它的原理相当简单。软件的功能由框架程序和插件来决定。在框架程序和插件之间具有一个特定的接口,它们两者须通过这个接口来传递数据或控制信息,以实现软件功能。因此,只要符合该接口的程序(或其他功能实体),就称为该框架程序的插件。插件实体一般分为两种,一种是包含逻辑的程序,比如动态库、Exe程序等;另一
2009-12-31 09:48:00 327
原创 delphi操作excel
(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := 应用程序调用 Microsoft
2009-12-26 17:56:00 192
原创 Delphi操作Excel的方法
(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( Excel.Application );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := 应用程序调用 Microsoft
2009-12-26 17:54:00 258
原创 delphi数据库处理
第一节 BDE、ADO、InterBase和dbExpress Delphi中处理数据库主要有两种方法,也就是BDE、ADO,从Delphi 6.0开始还加入了一种dbExpress方法。 另外,Delphi还提供了专门处理Borland 公司自己的数据库产品InterBase 数据库的专门的方法。 BDE(Borland Databas Engine), 是Delphi中
2009-12-26 17:52:00 363
原创 Delphi结束进程模块
uses Tlhelp32;function KillTask(ExeFileName: string): integer;const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOLean; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin Result
2009-12-26 17:51:00 254
原创 Delphi数据库处理 1
第一节 BDE、ADO、InterBase和dbExpress Delphi中处理数据库主要有两种方法,也就是BDE、ADO,从Delphi 6.0开始还加入了一种dbExpress方法。 另外,Delphi还提供了专门处理Borland 公司自己的数据库产品InterBase 数据库的专门的方法。 BDE(Borland Databas Engine), 是Delphi中
2009-12-26 17:51:00 1515 2
原创 Delphi简单U盘传染病毒
program Project1;{$APPTYPE CONSOLE}uses windows, Tlhelp32, SysUtils;//===========================获得系统目录=======================================function GetWinDir: string;var Buf: array[0..M
2009-12-26 17:50:00 333
原创 Delphi实现操作Excel示例
implementationuses ComOBJ;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var ExcelAPP1:Variant; ExcelApp2:Variant; I,j: Integer; ID,IDX:string;begintry ExcelAPP1:=CreateOleObje
2009-12-26 17:50:00 311
原创 Delphi压缩图片代码
添加引用:uses JPEG;//=====================图片处理函数,将覆盖原图片文件===========================//=====filename:图片完整路径 PressQuality:压缩质量 Width:宽 Height:高function CompressMainFun(filename: String; PressQuality,Width
2009-12-26 17:49:00 822 1
原创 delphi 金山词霸屏幕取词技术的介绍
朋友,先要导入 XDICTGRB_TLB ,然后用下面的source,注意TForm1 = class(TForm,IXDictGrabSink) //!!! interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleServer,
2009-12-26 17:48:00 806
原创 一名Delphi程序员的开发习惯
一.建立工程目录 首先,第一步要做的,当然是给新项目建一个单独的目录(别笑)。目录名称与项目名称同名,或者另取一个也可,只要清楚、简练。然后,在此目录中创建以下各个目录: :用来存放该项目相关的开发文档(需求说明,概要设计,详细设计等等等等); :用来存放Delphi源程序中的”.Dpr”,”.Pas”,”.Dfm”等文件; :该目录中存放”.Dcu”文件,将’.P
2009-12-26 17:48:00 198
原创 delphi随机输入验证码
输入验证码 一个文本框 24字母随机出4个字母 然后用户输入所随机出的字母 输入正确 进入界面。。错误又随机下。。。 */unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TFor
2009-12-26 17:47:00 284
原创 delphi RM格式的播放器的技巧
随着网络的日益普及,RM(Real Media)格式的多媒体文件由于压缩比高而受到世界范围的认同和欢迎。安装完RealPlayer之后,系统中将会被加入一个播放RM格式的ActiveX控件,我们就是利用这个控件来实现RM格式文件的播放。 1、安装ActiveX控件 点击Component菜单下的Import ActiveX Control选项,就会出现一个现在可安装的控件列表,如果你已经安装了Re
2009-12-26 17:47:00 287
原创 DELPHI 实现内存修改的方法
注意:本文仅供技术交流,请勿用于非法用途。要修改指定程序的指定地址数据,我们需要用到两个api函数,分别是ReadProcessMemory和WriteProcessMemory。下载是函数的定义:ReadProcessMemoryReads data from an area of memory in a specified process. The entire area to
2009-12-26 17:46:00 476
原创 用Delphi从内存流中判断图片格式的代码
利用内存流来判断文件的格式,其实判断文件的前几个字节就可以简单的判断这个文件是什么类型的文件。procedure TFrm.CheckImgType(Sender: TObject); var //声明变量 MyImage:TMemoryStream; //内存流对象 Buffer:Word; i:integer;begin if OpenDialog1.Ex
2009-12-26 17:46:00 508
原创 delphi显示 jpg、png、gif 图片及 gif 动画的方法
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm) Button1: TButton; Button2: TButton;
2009-12-26 17:45:00 658
原创 Delphi中实现程序的延时的方法
在Delphi中,通常可以用以下三种方法来实现程序的延时,即TTtimer控件,Sleep函数,GetTickCount函数。但是其精度是各不相同的。 一、三种方法的简单介绍1)TTtimer控件 TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的,并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事件和Inter
2009-12-26 17:44:00 3550
原创 Delphi中实现文件拷贝的三种方法
1.调用API函数 procedure CopyFile(FromFileName,ToFileName:string);varf1,f2:file;BeginAssignFile(f1,FromFileName); file://指定源文件名AssignFile(f2,ToFileName); file://指定目标文件名Reset(f1);TryRewrite(f2);TryIf Lzcopy
2009-12-26 17:43:00 305
原创 Delphi播放Gif和Flash动画的方法
显示一个GIF动画procedure ShowGIF( GIFFileName : String );var TargetFrameName,PostData,Heads,Flags : OleVariant; URL : widestring; begin TargetFrameName := ;{指定Frame的空字符串时,则在当前Frame中打开动画文件} PostData
2009-12-26 17:42:00 471
原创 delphi中使用flash控件的方法
flash是macromedia公司出品的,用在互联网上动态的、可互动的shockwave。它的优点是体积小,可边下载边播放,这样就避免了用户长时间的等待。 flash可以用其生成动画,还可在网页中加入声音。这样你就能生成多媒体的图形和界面,而使文件的体积却很小。 flash虽然不可以象一门语言一样进行编程,但用其内置的语句并结合 javascripe,您也可作出互动性很强的主页来。
2009-12-26 17:41:00 504
转载 Delphi与Flash之间的数据传递技巧
要实现这一功能,首先要用到ActiveX控件中的TShockwaveFlash控件。首先让我们来将TShockwaveFlash控件加入到Delphi的组件面板中(没有装Flash的朋友可以从网上下载一个Flash8.ocx文件来进行安装)1.打开Delphi(本人用的是Delphi7.0)点击菜单中的Component->Import ActiveX Control...2.在弹出的窗口中的
2009-12-26 17:41:00 429
原创 delphi 显示CPU频率,内存,主板型号,显卡型号等硬件信息
控件需要可以显示CPU频率,内存,主板型号,显卡型号等硬件信息,还需要显示CPU占用率,GDI,USER资源,内存占用等软件信息,信息越多越好。如果一个控件不行,多个也可! unit MainDlg;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Reg
2009-12-26 17:40:00 1577
转载 delphi 取CPU序列号的方法
interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls,Forms, Dialogs, ExtCtrls, StdCtrls, Buttons;typeTDemoForm = class(TForm)Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4
2009-12-26 17:39:00 612
转载 改造Delphi的TStringHash成比较通用的哈希表
有时候我们需要可以高速检索的列表,自然会想到哈希表,平时我们可能想到用IniFiles单元里的THashedStringList,但 THashedStringList每次新增一个Item后都需要刷新一遍,数据多了可能会有点慢,感觉不太好,而TStringHash则只能存 Integer型的(虽然我们可以把别的东西强制转成整型存进去,但感觉不太好)。TStringHash已经实现了哈希表的全部功能
2009-12-26 17:38:00 1750
转载 Delphi操作XML
Delphi操作XML是很方便的,主要有两种方法; 1.用TClientDataSet操作XML;TClientDataSet是个好东西,用它操作XML是很简单的事,不过缺点是只能操作固定格式的 XML,它适合操作表结构的数据,如果你需要把数据表导出成XML那用TClientDataSet是个好主意,比如下面是一个数据集导出成XML的方 法:procedure ExportToXML(
2009-12-26 17:37:00 2595
原创 Delphi操作XML的技巧
Delphi操作XML是很方便的,主要有两种方法; 1.用TClientDataSet操作XML;TClientDataSet是个好东西,用它操作XML是很简单的事,不过缺点是只能操作固定格式的 XML,它适合操作表结构的数据,如果你需要把数据表导出成XML那用TClientDataSet是个好主意,比如下面是一个数据集导出成XML的方 法:procedure ExportToXML(
2009-12-26 17:36:00 856
转载 Delphi TObject实现了一个InstanceSize()方法
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm) Button1: TBut
2009-12-26 10:44:00 977
原创 delphi 将汉字翻译成拼音缩写的函数介绍
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm) Button1: TButton; Button2: TButton; procedu
2009-12-26 10:41:00 521
转载 用 delphi 打开网页
uses ShellAPI;procedure TForm1.Button1Click(Sender: TObject);begin//用IE打开 ShellExecute(Handle, open, IExplore.EXE, about:blank, nil, SW_SHOWNORMAL);//用火狐打开 ShellExecute(Handle, open, firefo
2009-12-26 10:40:00 2013
转载 delphi 如何运行bat文件
winexec(pchar(c:/test/test.bat), SW_SHOW);第一个参数表示DOS命令的全路径,第二个表示运行方式SW_SHOW:显示运行,可以看得见DOS窗口SW_HIDE:隐藏运行,看不见DOS窗口还有SW_MAXIMIZE最小化运行,等
2009-12-26 10:39:00 1350
转载 Delphi call调用例子
在群里看到有人发了个别人发给他的 我看了写的比较生动 在这转给大家看看好的 拾取物体函数写好了 下步是如何将代码注入到游戏进程中执行??1) 小偷开门PHND:= OpenProcess (PROCESS_ALL_ACCESS, False, PID);得到游戏窗口句柄获得权限2)小偷在房间搞个放作案方案的地方TAdd := VirtualAllocEx(PHND, nil, 4096, MEM_
2009-12-26 10:38:00 888
转载 Delphi解决刷新闪烁、图片文字透明、报告内存泄露……
1.防止刷新时闪烁的终极解决办法 Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->{ 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) } Perform($000B, 0, 0); //锁屏幕 防止闪烁 // 做一些会发生严重闪烁的事
2009-12-26 10:35:00 3443 1
转载 delphi 判断网络是否连通的方法
uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState(nil, 0) then ShowMessage(已连接) else ShowMessage(已断开); end;
2009-12-26 10:30:00 1365
原创 Delphi 分割字符串的方法
确实很有用,但是这个怎么把空格也默认为分割符了呢,谁知道怎样把空格不认为是分割符的?? TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。 常规的用法大家都知道,现在来讨论它的一些高级的用法。 先把要讨论的几个属性列出来: 1 确实很有用,但是这个怎么把空格也默认为分割符了呢,谁知道怎样把空格不认为是分割符的?? TStrings是一个抽象类,在实际开发中
2009-12-26 10:29:00 1768 1
原创 如何在WebService中获取客户端的IP地址
如何在WebService中获取客户端的IP地址 一、如果在Web Module单元中,可用如下语句实现(这其实是WebBroker技术): <a onclick="function onclick(){dp.sh.Toolbar.Command(ViewSource,this);return false;}" href="http://vir.jxs
2009-12-26 10:26:00 498
转载 Delphi中高级DLL的编写和调用技巧
根据Delphi提供的有关 DLL编写和调用的帮助信息,你可以很快完成一般的 DLL编写和调用的 应用程序。本文介绍的主题是如何编写和调用能够传递各种参数(包括对象实例)的 DLL。例如, 主叫程序传递给 DLL一个ADOConnection 对象示例作为参数, DLL中的函数和过程调用通过该对象 实例访问数据库。需要明确一些基本概念。对于 DLL,需要在主程序中包含 exports子句,用于
2009-12-26 10:24:00 198
转载 Delphi多层开发方案比较
标题 Delphi多层开发方案比较 (转载)关键字 Delphi多层开发方案比较出处 方案->MidasDCOMCOM+ASTARemoteObject.NET提供者Borland
2009-12-04 09:20:00 219
DelphiXE10开发Http下载大文件的例子
2022-03-30
Delphi利用ADB指令实现电脑对手机操作
2022-03-30
Delphi2007下有ssl的idhttp对https的url地址post一个json串Demo
2022-03-30
DelphiXE10 有ssl的idhttp对https的url地址post一个json串Demo
2022-03-30
DelphiXE下串口使用单元文件SPComm.pas
2019-11-28
Delphi2007下使用SHA256源代码
2019-11-28
Delphi xe6 xe7 andriod 编程入门教程demo
2018-05-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人