利用DLL在程序是实现文件拷贝_Delphi

  • 内容
  • 评论
  • 相关

作者:未名码头  
  
在所开以的应用软件中,有时我们对某些文件进行拷贝(如对数据库进行备份、制作
安装程序),但是常用的一些语言却没有提供可直接进行文件拷贝的过程或函数。为此
,我曾利用Delphi编制了可提供文件拷贝过程的动态连接库Copy.dll,其输出过程为
CopyFile。由于DLL具有简化编程、运行速度快等诸多优点,且不受编程语言的限制,
用Delphi编写的Copf.dll同样被VB、VC等面向对象语言进行静态或动态调用,人而方便
地在程序中实现文件拷贝。

附源程序如下:

http://www.gaodaima.com/65589.html利用DLL在程序是实现文件拷贝_Delphi

library copf;
uses
SysUntils,Classes;
procedure copyfile(Sfname.Dfname:string):far;export;//带路径的文件名;
Var  
Sourcef,Destinef:file;
NumRead,NumWritten:Integer;
Buf:array[1..4096] of char;//定义缓冲区;
Begin
AssignFile(Sourcef,dfname);
Reset(Sourcef,1);
AssignFile(Destinef,1);
Rewrite(Destinef,1);
Repeat
BlockRead(Sourcef,Buf,SizeOf(Buf),Numread);//读源文件
BlockWrite(destinef,buf,NumRead,NumWritten);//写目标文件;
Until (Numread=0) or (Numwritten<>numread);
closeFile(soucef);
Closefile(destinef);
end;
Esports
copyfile;//输出过程;
end;
以上源程序编译后便生成Copf.dll
现就静态调用举例:
unit Name;
interface
uses
Windows...;
Type
Tzcform=class(Tform)
...
end;
var
Form1:Tform1;
implementation
Procedure copyfile(Sfname,dfname:string);far;external'c:/copf';//DLL路径名;
{$R *.DFM}
Procedure Tform1.CopyButtonclick(sender:tobject);
Begin
...
if fileesist(sfname)//如果源文件;
then copyfile(sfname,dfname);
...
end;

欢迎大家阅读《利用DLL在程序是实现文件拷贝_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 利用DLL在程序是实现文件拷贝_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注