Delphi 7如何连接MySql 5.5.15

2017年02月06日 54 阅读

Delphi 7如何连接MySql 5.5.152015-02-13系统环境：Windows XP SP3软件环境：Delphi 7 、mysql-installer-5.5.15.01.ODBC方式必须要先有MySql的ODBC驱动，我下载的是全安装版，包括MySql服务器、各种所支持的连接、工作台、示例数据库、文档，若是无ODBC驱动，可以到官网http://dev.mysql.com/downloads/connector/odbc/下载。①数据源方...

在Delphi实现在数据库中存取图像的图文演示无错

2017年02月06日 55 阅读

本实例演示如何在数据库中存取图像文件。 向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件，设计完成的主界面如图1所示。 图1 主界面 本系统中需要设计一个新的基于Paradox 7的数据库Image.db，图2为设计完成的Image.db数据库。 图2 设计完成的数据库 为了方便测试程序，Image.db数据库存储在实例程序所在的路径下。 设置TTable组件的TableName属性为Image.db，Active属性为...

delphi建立、读取、存贮INI文件的方法《三》

2017年02月06日 70 阅读

从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString（ ´windows´,//[]中标题的名字 ´NullPort´,//=号前的名字 ´NIL´,//如果没有找到字符串时，返回的默认值 strResult,//存放取得字符 100,//取得字符的允许最大长度 &acu...

delphi建立、读取、存贮INI文件的方法《二》

2017年02月06日 55 阅读

从.INI文件中获取字符串varstrResult:pchar;beginGetPrivateProfileString（´windows´,//[]中标题的名字´NullPort´,//=号前的名字´NIL´,//如果没有找到字符串时，返回的默认值strResult,//存放取得字符100,//取得字符的允许最大长度´c:forwin95win.ini´//调...

Delphi建立、读取、存贮INI文件的方法《一》

2017年02月06日 66 阅读

一、有必要了解INI文件的结构：;注释[小节名]关键字=值...INI文件允许有多个小节，每个小节又允许有多个关键字，“=”后面是该关键字的值。值的类型有三种：字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号，布尔真值用1表示，布尔假值用0表示。注释以分号“;”开头。二、定义1、在Interface的Uses节增加IniFiles；2、在Var变量定义部分增加一行：myinifile:Tinifile;然后，就可以对变量myinifile进...

插件管理框架 for Delphi（一）

2017年02月06日 103 阅读

插件技术的出发点主要是为了使软件能够灵活地进行扩展功能，而不需要对主程序（框架程序）进行重新编译和发布。它的原理相当简单。软件的功能由框架程序和插件来决定。在框架程序和插件之间具有一个特定的接口，它们两者须通过这个接口来传递数据或控制信息，以实现软件功能。因此，只要符合该接口的程序（或其他功能实体），就称为该框架程序的插件。插件实体一般分为两种，一种是包含逻辑的程序，比如动态库、Exe程序等；另一种则是一组配置信息。前一种方式多见于作图软件，媒体播放软件，...

插件管理框架 for Delphi（二）

2017年02月06日 56 阅读

unituntDllManager;interfaceusesWindows,Classes,SysUtils,Forms;typeEDllError=Class（Exception）;TDllClass=ClassofTDll;TDll=Class;TDllEvent=procedure（Sender:TObject;ADll:TDll）ofObject;{TDllManagero提供对Dll的管理功能；oAdd时自动创建TDll对象，但不尝试装载；oD...

delphi中一个值得大家来考虑的DLL问题

2017年02月06日 58 阅读

以下是我的原代码：==========================================================================================DPR单元代码programMdiform;usesForms,UMdiformin´UMdiform.pas´{Mainform},UDMin´UDM.pas´{GlobalDM:TDataModule},UFu...

Delphi Command模式

2017年02月06日 60 阅读

这个例子还是比较好理解的，所以只给出代码.unitpattern;interfaceusesDialogs;typeTAudioPlayer=class;TCommand=classpublicprocedureexecute;virtual;abstract;end;TPlayCommand=class（TCommand）privateAudioPlayer:TAudioPlayer;publicprocedureexecute;override;pro...

初探Delphi中的插件编程

2017年02月06日 64 阅读

插件结构的编程需要一个插件容器来控制各DLL的运行情况，将划分好的每个子系统安排到一个DLL库文件中。对每个DLL程序需要为容器预留接口函数，一般接口函数包括：启动调用DLL库的函数、关闭DLL库的函数。通过接口函数，插件容器可以向DLL模块传递参数实现动态控制。具体实现细节我将在下文说明并给出响应代码。 您可能需要先了解一下DELPHI中UNIT的结构，工程的结构。本文没有深入讨论DLL编程的理论细节，只是演示了一些实用的代码，我当时学习的是刘艺老师的...

delphi 正弦曲线图

2017年02月06日 76 阅读

本实例要在窗体上直接绘制正弦曲线，为了防止窗口切换的过程中会输出不完整的图形，因此绘制图形的关键代码都放在了窗体的OnPaint过程中，代码如下：procedureTForm1.FormPaint（Sender:TObject）;var x:Integer; y,a:Double;begin Canvas.Pen.Width:=3; Canvas.MoveTo（0,Trunc（self.ClientHeight/2））; forx:=0toself.Cli...

Delphi中判断文件是否为文本文件的函数

2017年02月06日 58 阅读

在自己编写文本文件读取函数的时候，你首先会遇到的第一个问题就是：对于给定的一个文件名，怎么知道它所代表磁盘文件的确是文本文件？这里有一个很简单的方法：把给定的那个文件看作是无类型的二进制文件，然后顺序地读出这个文件的每一个字节，如果文件里有一个字节的值等于0，那么这个文件就不是文本文件；反之，如果这个文件中没有一个字节的值是0的话，就可以判定这个文件是文本文件了。这是原理，下面看看在Delphi中怎样编程来实现它－－ 复制代码 代码如下:functionI...

c# 多线程编程 入门篇

2017年02月06日 57 阅读

开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先试试这个:procedure TForm1.Button1Click（Sender: TObject）;var i: Integer;begin for i := 0 to 500000 do beginCanvas.TextOut（10, 10, IntToStr（i））; end;end;上面程序运行时, 我们的窗体基本是 "死" 的, 可以在你在程序运行期间拖动窗体试试....

DELPHI7.0 获取硬盘、CPU、网卡序列号的代码

2017年02月06日 56 阅读

复制代码 代码如下://引用及TYPE变量申明 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,nb30; {重要引用} type PASTAT = ^TASTAT; TASTAT = record adapter : TAdapterStatus; name_buf : TNameBuffer; end; T...

Delphi修改操作注册表权限的代码

2017年02月06日 57 阅读

需要uses jclwin32, AccCtrl; 此文件需要安装JCL 复制代码 代码如下: function AllowRegKeyForEveryone（Key: HKEY; Path: string）: Boolean; var WidePath: PWideChar; Len: Integer; begin case Key of HKEY_LOCAL_MACHINE: Path := "MACHINE" + Path; HKEY_CURRENT...

Delphi书籍15本网盘下载地址整理

2017年02月06日 57 阅读

http://115.com/file/bh07akff#Delphi应用开发完全手册.rarhttp://115.com/file/e6rn2ett#Delphi信息系统开发实例精选.rarhttp://115.com/file/aqagbvdm#Delphi数据库系统开发完全手册.rarhttp://115.com/file/clohvfea#DELPHI数据库系统开发案例精选.rarhttp://115.com/file/clohv7gn#Delph...

wordpress主题支持自定义菜单及修改css样式实现方法

2017年02月06日 58 阅读

自己在制作wordpress主题的时候遇到这个问题，并且遇到了css样式错误，其实很简单，操作如下： 在主题中functions.php中加入： register_nav_menus（ array（ "menu" => __（ "menu", "" ）, ） ）; 在主题导航栏贴上导航代码： <？php wp_nav_menu（ "id=navbar" ）; ？> 但是出现了css样式错误： 原来这个函数输出的是下面的格式： 复制代码 代...

delphi xe 可用的MD5算法

2017年02月06日 55 阅读

复制代码 代码如下:unit MD5;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeMD5Count = array [0 .. 1] of DWORD;MD5State = array [0 .. 3] of DWORD;MD5Block = array [0 .. 15] of DW...

Delphi隐藏TPageControl的标签实例介绍

2017年02月06日 57 阅读

下面是个简单的例子： ..... 复制代码 代码如下: begin //先屏蔽掉所有标签 for i := 0 to PageControl.PageCount - 1 do PageControl.Pages[i].TabVisible := False;//隐藏 //再开启首先要显示的tab页，Tab_Page1:TTabSheet; PageControl.ActivePage := Tab_Page1; //这就是要控制跳转的页面 end; ...

delphi中exit,abort,break,continue的区别介绍

2017年02月06日 57 阅读

delphi中表示跳出的有break，continue, exit，abort, halt, runerror。 1、break 强制退出循环（只能放在循环中），用于从For语句，while语句或repeat语句中强制退出。 2、continue 用于从For语句，while语句或repeat语句强行结束本次称称循环，并开始下一次循环。 3、exit 用于从当前代码块中退出。若该代码为主程序，则终止该程序，若是函数或过程，则立即该过程或函数。 4、abor...