IT博客-学好delphi-随笔分类-delphi流的应用

动态创建控件并保存(2)

小叶子 — Sun, 01 Feb 2009 15:17:00 GMT

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
Procedure Click(Sender:TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
butt:tbitbtn;
p:string;

Procedure tform1.Click(Sender:TObject);
begin
winexec(pchar(p),1);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
showmessage('请写一个路径');
exit;
end;
p:=edit1.Text;
butt:=tbitbtn.Create(self);
butt.Width:=70;
butt.Left:=60;
butt.Height:=50;
butt.Top:=70;
butt.Parent:=form1;
butt.onClick:=Click;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
stream:tstream;
begin
stream:=tfilestream.Create('12.bb',fmcreate);
try
stream.WriteComponent(butt);
finally
stream.Free;
end;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var
stream:tstream;
begin
stream:=tfilestream.Create('12.bb',fmopenread);
try
    butt:=tbitbtn(stream.ReadComponent(nil));
    butt.Parent:=form1;
    butt.OnClick:=Click; //赋予butt的OnClick事件
    p:=edit1.Text;
finally
    stream.Free;
end;
end;
begin
registerclass(tbitbtn);

end.

小叶子 2009-02-01 23:17 发表评论

动态创建控件并保存(1)

小叶子 — Sat, 31 Jan 2009 16:57:00 GMT

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
ed:tedit;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.Caption:='创建';
button2.Caption:='保存';
button3.Caption:='载入';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//创建一个edit
ed:=tedit.Create(self);
ed.Height:=20;
ed.Width:=150;
ed.Top:=50;
ed.Left:=70;
ed.Parent:=form1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
stream:tstream;
begin
//保存在一个文件内
stream:=tfilestream.Create('123.bb',fmcreate);
try
stream.WriteComponent(ed);
finally
stream.Free;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
stream:tstream;
begin
//从文件内导入
stream:=tfilestream.Create('123.bb',fmopenread);
try
    ed:=tedit(stream.ReadComponent(nil));
    ed.Parent:=form1;

finally
    stream.Free;
end;
end;
begin
registerclass(tedit);
end.

小叶子 2009-02-01 00:57 发表评论

TFileStream- 文件流复制文件（4)

小叶子 — Fri, 23 Jan 2009 14:57:00 GMT

在(3)中我们会一块块的读取
那么,如果说我们在每块内加点东西,那么程序就不能运行,再减去你加的那些,程序又能以运行
由此你可以想到对自己的程序(加密),这里不是真正加密

我做的程序是在向文件写入时写入两次,这种方法你的程序会加大一倍,如果你有时间,那就用char类型加密,(别有数组4096)加密部分代码,其它不变就可以

代码如下
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var SouFile,DescFile:TFileStream;
    Buf:Array [1..4096] of Char;
    iLen:integer;
begin
if (edit1.Text='') or (edit2.Text='') then
begin
application.messagebox('请填写正确路径','提示',mb_ok);
exit;
end;
SouFile:=TfileStream.Create(edit1.Text,fmOpenRead or fmShareDenyWrite);
DescFile:=TFileStream.Create(edit2.Text,fmCreate);
SouFile.Position:=0;
While SouFile.Position <=SouFile.Size do
begin
If (SouFile.Size-SouFile.Position)>4096 Then
    Begin
    SouFile.ReadBuffer(Buf,sizeof(buf));
    DescFile.WriteBuffer(Buf,sizeof(buf));
     DescFile.WriteBuffer(Buf,sizeof(buf));
   end
else
begin
iLen:=SouFile.Size-SouFile.Position;
    SouFile.ReadBuffer(Buf,iLen);
    DescFile.WriteBuffer(Buf,iLen);
    Break;
    End;
end;
SouFile.Free();
DescFile.Free();
application.messagebox('加密成功','good',mb_ok);

end;

procedure TForm1.Button2Click(Sender: TObject);
Var SouFile,DescFile:TFileStream;
   buf1, Buf:Array [1..4096] of Char;
    iLen:integer;
begin
if (edit1.Text='') or (edit2.Text='') then
begin
application.messagebox('请填写正确路径','提示',mb_ok);
exit;
end;
SouFile:=TfileStream.Create(edit1.Text,fmOpenRead or fmShareDenyWrite);
SouFile.Position:=0;
SouFile.ReadBuffer(Buf,sizeof(buf));
SouFile.ReadBuffer(Buf1,sizeof(buf));
if buf<>buf1 then
begin
application.messagebox('些程序未加密','提示',mb_ok);
SouFile.Free();
exit;
end;
DescFile:=TFileStream.Create(edit2.Text,fmCreate);
SouFile.Position:=0;
While SouFile.Position <=SouFile.Size do
begin
If (SouFile.Size-SouFile.Position)>4096 Then
    Begin
    SouFile.ReadBuffer(Buf,sizeof(buf));
    DescFile.WriteBuffer(Buf,sizeof(buf));
    SouFile.Position:=SouFile.Position+4096;
   end
else
begin
iLen:=SouFile.Size-SouFile.Position;
    SouFile.ReadBuffer(Buf,iLen);
    DescFile.WriteBuffer(Buf,iLen);

Break;
End;
end;
SouFile.Free();
DescFile.Free();
application.messagebox('复原成功','good',mb_ok);

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if opendialog1.Execute then
edit1.Text:=opendialog1.FileName;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if savedialog1.Execute then
edit2.Text:=savedialog1.FileName;
end;

end.

如果自己做不好可以下载我的源码试着学
下载地址
http://www.cnitblog.com/Files/shuyezi122/加解.rar

小叶子 2009-01-23 22:57 发表评论

TFileStream- 文件流复制文件（3）

小叶子 — Fri, 23 Jan 2009 14:44:00 GMT

在上面两个中我们都是把一个文件做为整体进行复制

这一节我们要把文件分成块来一块块复制

procedure TForm1.Button1Click(Sender: TObject);
const
buffsize=4096;
var
instrm,outstrm:tfilestream;
i,biaoji:integer;
p:array [1..buffsize] of char;
begin
instrm:=tfilestream.Create('c:\my.exe',fmOpenRead);//流打开文件
outstrm:=tfilestream.Create('c:\ok.exe',fmCreate);//流保存的文件
i:=instrm.Size;
instrm.Position:=0;//把流指针放在开始位置,用时要从头读取
while instrm.Position <=i do
begin
if (i-instrm.Position)> buffsize then
begin
     instrm.ReadBuffer(p,buffsize);
     outstrm.WriteBuffer(p,buffsize);
end
else
begin
     biaoji:=i-instrm.Position;//如果没有这里中转，余下部分不能写入
     instrm.ReadBuffer(p,biaoji);
     outstrm.WriteBuffer(p,biaoji);
     break;
end;
end;
FreeAndNil(instrm);
FreeAndNil(outstrm);
application.MessageBox('复制成功','good',mb_ok);
end;

说明：
while 以4096个char为一块读一程序 do
begin
   if 4096正数倍then
一块块写入
else
不够4096的把余下的全部写入

结束

为什么是4096呢？
这里只能说方面机算机使用，也可是512 1024 2048 这样的数计算机使用快，内存全部同样
现样你也可以是1 2 3 ....更大的数
还能是
p:array [1..buffsize] of char;
改为:
p:char;
这样会一个字节一个字节的复制
对于大文件来说会慢些而已

小叶子 2009-01-23 22:44 发表评论

TFileStream- 文件流复制文件（2）

小叶子 — Fri, 23 Jan 2009 14:02:00 GMT

TFileStream- 文件流复制文件（1）
是直接用copyfrom(),方面易懂
在这里我们用一个变量来中转，然后再去保存
var
instrm,outstrm:tfilestream;
i:integer;
p:pchar;
begin
instrm:=tfilestream.Create('c:\my.exe',fmOpenRead);//流打开文件
outstrm:=tfilestream.Create('c:\ok.exe',fmCreate);//流保存的文件
i:=instrm.Size;
instrm.Position:=0;//把流指针放在开始位置,用时要从头读取
getmem(p,i);//分配内存
instrm.readbuffer(p^,i);//这里是P的指针,而不是P
outstrm.Write(p^,i);
freemem(p);
FreeAndNil(instrm);
FreeAndNil(outstrm);
application.MessageBox('复制成功','good',mb_ok);
end;

小叶子 2009-01-23 22:02 发表评论

TFileStream- 文件流复制文件（1）

小叶子 — Fri, 23 Jan 2009 13:17:00 GMT

TFileStream可实现对文件的复制
下面做个例子（我感觉例子是最好的记忆方法）
先放入C下一个文件：my.exe
新建工程，放一button组件
button.caption:=复制

procedure TForm1.Button1Click(Sender: TObject);
var
instrm,outstrm:tfilestream;
begin
instrm:=tfilestream.Create('c:\my.exe',fmOpenRead);//流打开文件
outstrm:=tfilestream.Create('c:\ok.exe',fmCreate);//流保存的文件
outstrm.CopyFrom(instrm,instrm.Size);
FreeAndNil(instrm);
FreeAndNil(outstrm);
application.MessageBox('复制成功','good',mb_ok);
end;

一次很简单的复制成功了

小叶子 2009-01-23 21:17 发表评论

delphi的流

小叶子 — Wed, 21 Jan 2009 09:32:00 GMT

TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类:
TFileStream: 文件流
TStringStream: 字符串流
TMemoryStream: 内存流
TResourceStream: 资源文件流
THandleStream: 是 TFileStream 的父类、TStream 的子类
TCustomMemoryStream: 是 TMemoryStream 和 TResourceStream 的父类、TStream 的子类

小叶子 2009-01-21 17:32 发表评论

IT博客-学好delphi-随笔分类-delphi流的应用

动态创建控件并保存(2)

动态创建控件并保存(1)

TFileStream- 文件流 复制文件（4)

TFileStream- 文件流 复制文件（3）

TFileStream- 文件流 复制文件（2）

TFileStream- 文件流 复制文件（1）

delphi的 流

TFileStream- 文件流复制文件（4)

TFileStream- 文件流复制文件（3）

TFileStream- 文件流复制文件（2）

TFileStream- 文件流复制文件（1）

delphi的流