2009年12月_pmj888666

12月 10月

转载实现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的方法

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

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 286

原创 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 473

原创用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 611

转载改造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的技巧

2009-12-26 17:36:00 855

转载 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 2002

转载 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下载大文件的例子

DelphiXE10.2下的利用HTTPClient下载文件的例子，内网下载过2G的文件测试没问题。 Demo中会动态显示下载速度、下载进度，可随时停止和开始下载

2022-03-30

Delphi利用ADB指令实现电脑对手机操作

手机通过USB连接到电脑后，电脑中ADB环境正常的情况下，使用本Demo操作测试没问题要知道些常用ADB指令，本Demo只是把一些命令行下的ADB指令放在Delphi开发的程序中农实现了一下而已，也可以直接命令行下使用ADB指令。本程序是Delphi XE10下开发。注意：个别情况下安装adb会不成功，或者受360等软件影响。

2022-03-30

Delphi2007下有ssl的idhttp对https的url地址post一个json串Demo

idHttp带json然后post到某个url已经比较普遍，但是如果是https的post就会不太一样，常用的post会报错或不成功，这时需要用到IdSSLIOHandlerSocketOpenSSL控件，和3个关键dll（libeay32.dll，ssleay32.dll，libssl32.dll）放到exe同级目录或system32(64位exe放systemWOW64)。请注意：Delphi XE和Delphi2007及以下版本用到的两个dll虽同名但是不一样的！本程序是Delphi2007下开发，应该适用2007及以下版本！记得这3个dll带上，XE和2007都可以用了，时间久了有点忘记了，如果XE不行我也上传过XE的demo，我的下载资源里找下

2022-03-30

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

DelphiXE10开发Http下载大文件的例子

Delphi利用ADB指令实现电脑对手机操作

Delphi2007下有ssl的idhttp对https的url地址post一个json串Demo

DelphiXE10 有ssl的idhttp对https的url地址post一个json串Demo

DelphiXE下串口使用单元文件SPComm.pas

Delphi2007下使用SHA256源代码

精通C#数据库开发

《C#数据库编程实战经典》【清华大学出版社】

Delphi xe6 xe7 andriod 编程入门教程demo

JSP动态网站技术入门与提高.pdf

Oracle8i-9i精髓.pdf

Oracle 9i 初始化参数中文说明

oracle培训讲义

空空如也