用户登录
用户注册

Delphi 根据字符串找到函数并执行的实例

这篇文章主要介绍了Delphi根据字符串找到函数并执行的实例的相关资料,希望通过本能帮助到大家实现这样的功能,需要的朋友可以参考下
  Delphi根据字符串找到函数并执行的实例
   关键字:MethodAddress:取得方法的地址,这个方法需要是published的。
  实例代码:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTShowInfo=procedure(info:string)ofobject;//声明一个procedure类型,参数和ShowInf
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi 中内存映射对于大文件的使用

这篇文章主要介绍了Delphi中内存映射对于大文件的使用的相关资料,希望通过本文能帮助到大家,需要的朋友可以参考下
  Delphi中内存映射对于大文件的使用
  平时很少使用大文件的内存映射,碰巧遇到了这样的要求,所以把过程记录下来,当给各位一个引子吧,因为应用不算复杂,可能有考虑不到的地方,欢迎交流。
  对于一些小文件,用普通的文件流就可以很好的解决,可是对于超大文件,比如2G或者更多,文件流就不行了,所以要使用API的内存映射的相关方法,即使是内存映射,也不能一次映射全部文件的大小,所以必须采取分块映射,每次处理一小部分。
   先来看几个函数
  CreateFile:打开文件
  GetFileSize:获取文件尺寸
  
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现获取句柄并发送消息的方法

这篇文章主要介绍了Delphi实现获取句柄并发送消息的方法,需要的朋友可以参考下
  本文以实例形式详细说明了Delphi获取句柄并发送消息的方法,具体用法说明如下:
  查找另外一个窗口的句柄:
handle:=FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄
  查找子窗体:
childHandle:=FindWindowEx(handle,0,'子窗体类','子窗体标题');
  另外有个枚举子窗体的API,
EnumChildWindows(主创体句柄,@回调函数,用户参数);</
  • 0
  • 0
  • 0
  • 0
  • 0

ListView 百分比进度条(delphi版)

本文通过实例代码给大家介绍ListView百分比进度条,本文使用的是delphi语言实现的,代码比较简单实用,希望的朋友参考下
  在看代码之前先给大家附上效果图:
  废话不多说了,直接给大家贴代码了。
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComCtrls,ImgList;typeTForm1=class(TForm)btn1:TButton;lv1:TListV
  • 0
  • 0
  • 0
  • 0
  • 0

TImage组件实现保存图片到Stream

这篇文章主要介绍了TImage组件实现保存图片到Stream以及从stream中读取图片的方法,非常的实用,有需要的小伙伴可以参考下
  因为一个项目,不得不将图片保存到数据库中,需要的时候再从数据库中读取.初时,以为很简单,不就是一个Stream.事实上,也很简单.度娘一下,代码也很多,但,都是坑!
  看一下TImage的源,Picture.Graphic下有一个loadfromStream和SavetoStream.如果没有猜错,那么直接用这两个函数就可以了.于是,我做了一个demo测试
  demo里放了两个TImage.TImage1放一张图片,然后用代码将TImage1的图片保存到Stream.TImage2再从这个Stream中取出图片.自然水到渠成.
  这就是我的代码.
PicStream:=TMemoryStream.Create;Self.Image1.Picture.Grap
  • 0
  • 0
  • 0
  • 0
  • 0

delphi制作wav文件的方法

这篇文章主要介绍了delphi制作wav文件的方法,涉及Delphi操作多媒体文件的相关技巧,需要的朋友可以参考下
  本文实例讲述了delphi制作wav文件的方法。分享给大家供大家参考。具体如下:
  这里delphi用waveIn...函数制作wav文件
  具体代码如下:
//使用窗口接受音频设备发出的消息:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Button2:TButton;Button3:TButton;procedureFormCreate(
  • 0
  • 0
  • 0
  • 0
  • 0

Windows API GetLastError()函数返回值含义解释

这篇文章主要介绍了WindowsAPIGetLastError()函数返回值含义解释,本文罗列了所有错误代码及中文注释,需要的朋友可以参考下
  
〖0〗-操作成功完成。
〖1〗-功能错误。
〖2〗-系统找不到指定的文件。
〖3〗-系统找不到指定的路径。
〖4〗-系统无法打开文件。
〖5〗-拒绝访问。
〖6〗-句柄无效。
〖7〗-存储控制块被损坏。
〖8〗-存储空间不足,无法处理此命令。
〖9〗-存储控制块地址无效。
〖10〗-环境错误。
〖11〗-试图加载格式错误的程序。
〖12〗-访问码无效。
〖13〗-数据无效。
〖14〗-存储器不足,无法完成此操作。
〖15〗-系统找不到指定的驱动器。
〖16〗-无法删除目录。
〖17〗-系统无法将文件移到不同的驱动器。
〖18〗-没有更多文件。
〖19〗-介质受写入保护。
〖20〗-系统找不到指定的设备
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现木马文件传输代码实例

这篇文章主要介绍了Delphi实现木马文件传输的方法,对于了解木马的运行原理有一定的帮助,需要的朋友可以参考下
  本文以实例形式讲述了Delphi下木马的文件传输方法的实现过程,具体步骤如下:
  服务器端代码:
unitServerFrm;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,StdCtrls,ExtCtrls,WinSock;typeTfrmMain=class(TForm)Panel1:TPanel;Label1:TLabel;edtPort:TEdit;Panel2:TPanel;stabar:TStatusBar;
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现木马自我拷贝方法

这篇文章主要介绍了Delphi实现木马自我拷贝方法,对于研究木马的运行原理很有帮助,需要的朋友可以参考下
  木马实现自我拷贝的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,继而退出旧程序.
本例即以Delphi实现木马的自我拷贝。
首先打开Delphi,新建一个工程,在窗口的Create事件中写入如下代码:
procedureTForm1.FormCreate(Sender:TObject);varmyname:string;beginmyname:=ExtractFilename(Application.Exename);//获得文件名ifapplication.Exename<>GetWindir+mynamethen//如果文件不是在WindowsSystem那么..begincopy
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi之Pascal语言中的关键字及保留字汇总

这篇文章主要介绍了Delphi之Pascal语言中的关键字及保留字汇总,需要的朋友可以参考下
  本文汇总了Pascal语言中的关键字及保留字如下,供大家参考:
absolute//指令(变量)abstract//指令(方法)and//运算符(布尔)array//类型as//运算符(RTTI)asm//语句assembler//向后兼容(汇编)at//语句(异常处理)automated//访问类别符(类)begin//块标记case//语句cdecl//函数调用协定class//类型const//声明或指令(参数)constructor//特殊方法contains//运算符(集合)default//指令(属性)destructor//特殊方法dispid//dispinterface接口类别符dispinterface//类型div//运算符do//语句
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实例演示Rect、Bounds生成TRect的区别

这篇文章主要介绍了Delphi实例演示Rect、Bounds生成TRect的区别,需要的朋友可以参考下
  本文以实例演示Rect、Bounds生成TRect的区别,实例代码如下:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;typeTForm1=class(TForm)Button1:TButton;RadioGroup1:TRadioGroup;procedureRadioGroup1Click(Sender:TObject);procedureFormCreate(Sender:TObject);end;varForm1:TForm1;
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi控件ListView的属性及使用方法详解

这篇文章主要介绍了Delphi控件ListView的属性及使用方法详解,对于Delphi控件ListView做一复习总结,需要的朋友可以参考下
  Delphi的ListView组件位于组件板的Win32页,可使用4种图形方式(大图标、小图标、列表、详细列表)来描述选项内容,类似于Windows操作系统中的“我的电脑”,数据项图形保存在ImageList组件中。
  1.ListView主要属性
  (1)ViewStyle属性
ViewStyle属性用于选择数据项的4种显示方式,因此该属性有4个选项值:vsIcon大图标、vsSmallIcon小图标、vsList列表、vsReport详细列表。
  (2)Items属性
Items属性用于表示ListView组件的数据项,数据项可用Items属性编辑器输入。<spanstyl
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现窗口文字淡入淡出渐变效果的方法

这篇文章主要介绍了Delphi实现窗口文字淡入淡出渐变效果,需要的朋友可以参考下
  本文所述实例为Dlephi实现的窗口渐变文字效果,文字可以不停的变化,颜色由浅入深,由清淅变模糊,文字渐变的时间可在代码中自己调整。主要实现代码如下:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;typeTForm1=class(TForm)Timer1:TTimer;Label1:TLabel;procedureTimer1Timer(Sender:TObject);private{Privatedeclarations}public{Publicd
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现获取磁盘空间大小的方法

这篇文章主要介绍了Delphi实现获取磁盘空间大小的方法,是一个很实用的功能,需要的朋友可以参考下
  本文所述Delphi实例用以获取指定的磁盘空间容量大小,检测磁盘大小,从combox中选择磁盘代号等功能。点击“检测驱动器”容量信息的按钮,就可以在下边显示出该磁盘的总空间大小以及要用容量的大小。读者可根据需求添加对应的Button与label控件。
  主要程序代码如下所示:
unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Edit1:TEdit;Button1:TButton;Label1:TLabel;Label2:TLabel;pro
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi基本图像处理方法汇总

这篇文章主要介绍了Delphi基本图像处理方法,实例汇总了Delphi操作图像实现浮雕、反色、模糊、翻转等常用效果的方法,非常具有实用价值,需要的朋友可以参考下
  本文实例汇总了Delphi基本图像处理方法。分享给大家供大家参考。具体分析如下:
//浮雕procedureEmboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;vari,j,Gray,Azimuthvalue,R,G,B:integer;SrcRGB,SrcRGB1,SrcRGB2,DestRGB:pRGBTriple;beginfori:=0toSrcBmp.Height-1dobeginSrcRGB:=SrcBmp.ScanLine[i];DestRGB:=DestBmp.ScanLine[i];i
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现Listbox中的item根据内容显示不同颜色的方法

这篇文章主要介绍了Delphi实现Listbox中的item根据内容显示不同颜色的方法,需要的朋友可以参考下
  本文简述了Delphi实现Listbox中的item根据内容显示不同颜色的方法,实现步骤如下:
  ListBox1的Style属性改为lbOwnerDrawVariable
  在ListBox的OnDrawItem事件裡,根据item的值,改变Canvas属性
  示例代码如下:
procedureTForm1.ListBox1DrawItem(Control:TWinControl;Index:Integer;Rect:TRect;State:TOwnerDrawState);begin//字体用原来默认的颜色
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi实现截屏存盘的方法

这篇文章主要介绍了Delphi实现截屏存盘的方法,涉及Delphi图片操作的相关技巧,需要的朋友可以参考下
  本文实例讲述了Delphi实现截屏存盘的方法。分享给大家供大家参考。具体分析如下:
  该实例可实现截取屏幕,并保存为JPEG文件格式的功能。
procedureTForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);varRectWidth,RectHeight:integer;SourceDC,DestDC,Bhandle:integer;Bitmap:TBitmap;MyJpeg:TJpegImage;Stream:TMemoryStream;beginMyJpeg:=TJpegImage.Create;RectWidth:=RightPos-LeftPos;RectHeight:=Bott
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi解析FTP地址的方法

这篇文章主要介绍了Delphi解析FTP地址的方法,涉及Delphi解析FTP的相关技巧,需要的朋友可以参考下
  本文实例讲述了Delphi解析FTP地址的方法。分享给大家供大家参考。具体实现方法如下:
procedureTForm1.FTPAnalysis(S:string;varUserName,Password,IP,FileName:String;varDirList:TStringList);vari,j:integer;strAuthorization,strAddr,strDirFile:string;//授权信息beginUserName:='anonymous';Password:='test@test.com';IP:='';strAddr:=Copy(S,7,length(S)-6);//取得ftp://之后的部分//S格式必须是类似ft
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi用TActionList实现下载文件的方法

这篇文章主要介绍了Delphi用TActionList实现下载文件的方法,需要的朋友可以参考下
  Delphi中的TActionList有个标准动作TDownLoadURL,内部是使用的URLDownloadToFile,它下载文件时会定时产生OnDownloadProgress事件,这样就可以用进度条显示。
本文讲述了Delphi用TActionList实现下载文件的方法,实现代码如下所示:
usesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtActns,ActnList,StdCtrls,ComCtrls;typeTForm1=class(TForm)Button1:TButton;ActionList1:TActionList;
  • 0
  • 0
  • 0
  • 0
  • 0

Delphi7中Listview的常用功能汇总

这篇文章主要介绍了Delphi7中Listview的常用功能,需要的朋友可以参考下
  有些时候我们在使用Delphi7的Listview过程中总是要改一些默认的设置,现在把它们集中起来汇总如下。
  MultiSelect:=True;  使Listview可以同时选择多行
  GridLines:=True;  使Listview显示格线
  ViewStyle:=vsReport;显示数据项的详细列表
  HideSelection:=True; 使listview失去焦点时,选中行不高亮
//设置颜色procedureTForm1.ListView1CustomDrawItem(Sender:TCustomListView;Item:TListItem;State:TCu
  • 0
  • 0
  • 0
  • 0
  • 0
上一页  1  2  3  4  5  ...  下一页  

分享至

长按复制下方链接,去粘贴给好友吧:
软件
前端设计
程序设计
Java相关