Delphi中文件拷贝方法集合
一、使用文件流的方法进行拷贝，当然。同样的道理，你也可以使用内存流等方法进行文件的拷贝，原理是一样的。
procedure copyfile(sourcefilename,targetfilename : String);
var f1, f2: tfilestream;
begin
f1 := tfilestream.Create(sourcefilename, fmopenread);
try
f2 := tfilestream.Create(targetfilename, fmopenwrite or fmcreate);
try
f2.Copyfrom(f1, f1.Size);
finally
f2.Free;
end;
finally
f1.Free;
end;
end;
二、使用BLOCKREAD和BLOACKWRITE的方法进行文件的拷贝。
Procedure FileCopy(const fromfile, Tofile: string);
var
F1, F2: file;
NumRead, Numwritten: integer;
Buf: array[1..2048] of char;
begin
AssignFile(F1, fromfile);
reset(F1, 1);
AssignFile(F2, Tofile);
Rewrite(F2, 1);
repeat
BlockRead(F1, Buf, sizeof(Buf), NumRead);
BlockWrite(F2, Buf, NumRead, Numwritten);
until (NumRead = 0) or (Numwritten <> NumRead);
closefile(F1);
closefile(F2);
end;
三、使用API文件进行文件的复制
procedure CopyFile(fromFileName, ToFileName: string);
var
f1, f2: file;
begin
AssignFile(f1, fromFileName);
AssignFile(f2, ToFileName);
reset(f1);
try
Rewrite(f2);
try
if Lzcopy(TfileRec(f1).handle, TfileRec(f2).handle) < 0
then
raise EinoutError.Create('文件复制错误');
finally
closefile(f1);
end;
finally
closefile(f2);
end;
end;
四、Windows API函数 实现文件的拷贝
function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL; stdcall;
参数说明：
lpExistingFileName ： 原文件名称；
lpNewFileName ： 目标文件名称
bFailIfExists &nbs
相关文档：
三层架构指的是界面，业务逻辑和数据存储分离,不是指物理上是否分离。
这样做的好处是层次分明，维护好做，系统资源也好分布式处理。
数据库层哪就不说了，用MSSQL、Orcale随你了，就是数据服务层
业务逻辑的话要分析清楚，就是中间层
界面，也叫客户端。这里就是得到数据和显示数据的部分了，不做其它处理。但是数据有 ......
以下是test.htm页的内容
首先定义一个插件对象
<object id="Mapupload" name="Mapupload" width="0" height="0" classid="clsid:045FA9B9-B373-4D4C-AE76-128A19A4B6AE">
</object>
<script type="text/javascript">
//此函数打开activexform窗体并为activ ......
毕竟Win32程序的开发，Delphi还是有顽强的生命力的。
操作步骤如下：
1.建立 res 文件
建立一个文本文件，名字可以自己起，我这里叫：UAC.manifest，内容：
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
......
Delphi操作注册表步骤如下：
-------------------------------------
1）在Uses中添加Registry单元；
2）声明TRegistry对象；
3）创建TRegistry对象；
4）指定根键；
----------------try------------------
5）打开需要操作的主键；
6）读写操作；
7）保存并关闭主键；
--------------finally----------------
......
我们能看到以下代码
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确
看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Delphi
Object Pascal,所以，绝不能从函数� ......
