神马软件站
首页 > 软件编程 > Delphi教程
c# 多线程编程 入门篇
c# 多线程编程 入门篇
开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先试试这个: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to 500000 do begin Canvas.TextOut(10, 10, IntToStr(i)); end; end; 上面程序...

11-11

DELPHI7.0 获取硬盘、CPU、网卡序列号的代码
DELPHI7.0 获取硬盘、CPU、网卡序列号的代码
复制代码 代码如下: //引用及TYPE变量申明 uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,nb30; {重要引用} type PASTAT = ^TASTAT; TASTAT = record adapter : TAdapterStatus; name_buf : TNameBuf...

11-11

插件管理框架 for Delphi(二)
插件管理框架 for Delphi(二)
unituntDllManager; interface uses Windows,Classes,SysUtils,Forms; type EDllError=Class(Exception); TDllClass=ClassofTDll; TDll=Class; TDllEvent=procedure(Sender:TObject;ADll:TDll)ofObject; {TDllManager o提供对Dll的管理功能; oAdd时自动创建T...

11-11

delphi中一个值得大家来考虑的DLL问题
delphi中一个值得大家来考虑的DLL问题
以下是我的原代码: ========================================================================================== DPR单元代码 programMdiform; uses Forms, UMdiforminUMdiform.pas{Mainform}, UDMinUDM.pas{GlobalDM:TDataModule}, UFuninUFun.pas; {$R...

11-11

Delphi Command模式
Delphi Command模式
这个例子还是比较好理解的,所以只给出代码. unitpattern; interface usesDialogs; type TAudioPlayer=class; TCommand=class public procedureexecute;virtual;abstract; end; TPlayCommand=class(TCommand) private AudioPlayer:TAudioPlayer; public proc...

11-11

Delphi中判断文件是否为文本文件的函数
Delphi中判断文件是否为文本文件的函数
在自己编写文本文件读取函数的时候,你首先会遇到的第一个问题就是:对于给定的一个文件名,怎么知道它所代表磁盘文件的确是文本文件?这里有一个很简单的方法:把给定的那个文件看作是无类型的二进制文件,然后顺序地读出这个文件的每一个字节,如果文件里有...

11-11

delphi 正弦曲线图
delphi 正弦曲线图
本实例要在窗体上直接绘制正弦曲线,为了防止窗口切换的过程中会输出不完整的图形,因此绘制图形的关键代码都放在了窗体的OnPaint过程中,代码如下: procedureTForm1.FormPaint(Sender:TObject); var x:Integer; y,a:Double; begin Canvas.Pen.Width:=3; Can...

11-11

初探Delphi中的插件编程
初探Delphi中的插件编程
插件结构的编程需要一个插件容器来控制各DLL的运行情况,将划分好的每个子系统安排到一个DLL库文件中。对每个DLL程序需要为容器预留接口函数,一般接口函数包括:启动调用DLL库的函数、关闭DLL库的函数。通过接口函数,插件容器可以向DLL模块传递参数实现动态...

11-11

delphi建立、读取、存贮INI文件的方法《二》
delphi建立、读取、存贮INI文件的方法《二》
从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( windows,//[]中标题的名字 NullPort,//=号前的名字 NIL,//如果没有找到字符串时,返回的默认值 strResult,//存放取得字符 100,//取得字符的允许最大长度 c:\forwin95\win.ini//...

11-11

Delphi建立、读取、存贮INI文件的方法《一》
Delphi建立、读取、存贮INI文件的方法《一》
一、有必要了解INI文件的结构: ;注释 [小节名] 关键字=值 ... INI文件允许有多个小节,每个小节又允许有多个关键字,“=”后面是该关键字的值。 值的类型有三种:字符串、整型数值和布尔值。其中字符串存贮在INI文件中时没有引号,布尔真值用1表示,布尔假值...

11-11

插件管理框架 for Delphi(一)
插件管理框架 for Delphi(一)
插件技术的出发点主要是为了使软件能够灵活地进行扩展功能,而不需要对主程序(框架程序)进行重新编译和发布。它的原理相当简单。软件的功能由框架程序和插件来决定。在框架程序和插件之间具有一个特定的接口,它们两者须通过这个接口来传递数据或控制信息...

11-11

delphi建立、读取、存贮INI文件的方法《三》
delphi建立、读取、存贮INI文件的方法《三》
从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( windows,//[]中标题的名字 NullPort,//=号前的名字 NIL,//如果没有找到字符串时,返回的默认值 strResult,//存放取得字符 100,//取得字符的允许最大长度 c:\forwin95\win.ini//...

11-11

在Delphi实现在数据库中存取图像的图文演示无错
在Delphi实现在数据库中存取图像的图文演示无错
本实例演示如何在数据库中存取图像文件。 向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件,设计完成的主界面如图1所示。 图1 主界面 本系统中需要设计一个新的基于Paradox 7的数据库Image.db,图2为设计完成的Image.db数据库。 图2 设计完成...

11-11

Delphi XE5 为Android应用制作签名的方法(图文)
Delphi XE5 为Android应用制作签名的方法(图文)
要发布android应用,必须做签名的。看一下具体的操作步骤: 1.进入Project-Options: 2.打开Options窗口,选择Provisioning,在这里,可以为目标平台选择签名文件,也可生成新的签名文件。 2.1 选择目标平台,可以为dubug或release设置签名,默认情况下,debug...

11-11

ListView 百分比进度条(delphi版)
ListView 百分比进度条(delphi版)
在看代码之前先给大家附上效果图: 废话不多说了,直接给大家贴代码了。 unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls, ImgList;typeTForm1 = class(TForm)btn1: TButt...

11-11

Delphi基本图像处理方法汇总
Delphi基本图像处理方法汇总
本文实例汇总了Delphi基本图像处理方法。分享给大家供大家参考。具体分析如下: //浮雕procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var i, j, Gray, Azimuthvalue, R, G, B: integer; SrcRGB, SrcRGB1, SrcRGB2, DestRGB: pRG...

11-11

delphi制作wav文件的方法
delphi制作wav文件的方法
本文实例讲述了delphi制作wav文件的方法。分享给大家供大家参考。具体如下: 这里delphi用waveIn...函数制作wav文件 具体代码如下: //使用窗口接受音频设备发出的消息:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphic...

11-11

Windows API GetLastError()函数返回值含义解释
Windows API GetLastError()函数返回值含义解释
〖0〗-操作成功完成。 〖1〗-功能错误。 〖2〗-系统找不到指定的文件。 〖3〗-系统找不到指定的路径。 〖4〗-系统无法打开文件。 〖5〗-拒绝访问。 〖6〗-句柄无效。 〖7〗-存储控制块被损坏。 〖8〗-存储空间不足,无法处理此命令。 〖9〗-存储控制块地址无...

11-11

delphi字符串分隔函数用法实例
delphi字符串分隔函数用法实例
本文实例讲述了delphi字符串分隔函数用法。分享给大家供大家参考。具体实现方法如下: 该实例可实现根据字符串Separator的表示将字符串s分隔为若干个字符串,存入rs字符串列表中,具体代码如下: 复制代码 代码如下:procedure SeparateTerms2(s:string;Separ...

11-11

delphi实现将BMP格式图形转化为JPG格式图形的方法
delphi实现将BMP格式图形转化为JPG格式图形的方法
本文实例讲述了delphi实现将BMP格式图形转化为JPG格式图形的方法。分享给大家供大家参考。具体实现方法如下: 复制代码 代码如下: procedure ConvertBMPtoJPG(SFileName,DFileName:string); Var J:TJpegImage; I:TBitmap; S,D:String; begin s:=SFileName; d...

11-11

Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
本文实例讲述了Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法。分享给大家供大家参考。具体实现方法如下: const WM_MouseEnter = $B013; WM_MouseLeave = $B014;type TfrmMain = class(TForm) . . Timer1: TTimer; procedure Timer1Timer(Sender:...

11-11

Delphi解析FTP地址的方法
Delphi解析FTP地址的方法
本文实例讲述了Delphi解析FTP地址的方法。分享给大家供大家参考。具体实现方法如下: procedure TForm1.FTPAnalysis(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList);var i,j:integer; strAuthorization,strAddr,strDirFile:st...

11-11

Delphi实现截屏存盘的方法
Delphi实现截屏存盘的方法
本文实例讲述了Delphi实现截屏存盘的方法。分享给大家供大家参考。具体分析如下: 该实例可实现截取屏幕,并保存为JPEG文件格式的功能。 procedure TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer; SourceD...

11-11

Delphi创建开机启动项的方法示例
Delphi创建开机启动项的方法示例
Delphi可以通过创建开机启动项键值的方法,将程序添加到开机启动项中。通过本实例代码就可以为您的程序添加到快速启动中,随着Windows一起启动,开机即运行的程序。该实例代码简单,主要是通过添加注册表键值来实现。 具体的功能代码如下所示: unit dy97;in...

11-11

Delphi实现检测并枚举系统安装的打印机的方法
Delphi实现检测并枚举系统安装的打印机的方法
本文以实例说明Delphi打印程序的实现方法。该实例可以检测系统中安装的所有打印机,枚举出这些打印机,主要功能代码非常简单,便于大家阅读与理解。 主要功能代码如下: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics...

11-11

 1 2 3>
返回顶部