本文整理自网络,侵删。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ExtDlgs, StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
lbl1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
getStream,setStream: TFileStream; {声明一个文件流}
setPath,getPath:string;
begin
getPath := 'c:\get.jpg'; {需要这个文件存在}
setPath := 'c:\set.jpg'; {这个会自动建立} {*这里是文件路径*}
if not FileExists(getPath) then
// Exists 存在, not FileExists 如果 getpath这个文件没有存在那么
ShowMessage('没有查找到指定图片'+getpath);
getStream := TFileStream.Create(getPath, fmOpenRead or fmShareExclusive);
setStream :=TFileStream.Create(setpath,fmCreate); {*这里是打开模式*}
{建立文件流需要两个参数: 参数 1 是路径, 参数 2 是打开模式}
getStream.position:=0; {流指针移到开始, 复制时从这里开始}
setStream.CopyFrom(getStream,getStream.size); {Copy 流}
{CopyFrom 的参数 2 是要复制的内容大小; 如果为 0 , 不管指针在什么位置都会复制所有内容}
{CopyFrom 返回实际拷贝的字节数}
{这时硬盘上就有 set.jpg 文件, 与 get.jpg 一么一样}
{其实就是复制文件, 不过这里我们是用文件流实现的}
getStream.Free;
setStream.Free;
end;
end.
相关阅读 >>
Delphi xe安装 tclientsocket, tserversocket控件
Delphi 2009 之 tcategorypanelgroup[3]: color
Delphi 条件编译语法 $ifdef $else $endif
更多相关阅读请进入《Delphi》频道 >>