文件加密这样的软件delphi不能开发出来(50分)

我爱PASCAL · 2006-09-17

怎样把一个任意类型的文件读入一个string中
我用stringlist.loadfrom(filename);
只能读文本，网页等可视文件，读音乐和其它二进制文件只能读到头几个，
是何原因，请高人点拨。
50分不成敬意。

bjaman · 2006-09-17

不妨换一种思路，用流来操作吧

我爱PASCAL · 2006-09-17

请问流如何读，有简要的代码吗？
关键几句就行，我自已去完成。

bjaman · 2006-09-17

var
MyStream : TMemoryStream;
.........
MyStream.LoadFromFile(YourFileName);

我爱PASCAL · 2006-09-17

试了，效果一样。

zqw0117 · 2006-09-17

TStringStream

白河愁 · 2006-09-17

var
ff: TMemoryStream;
aa: TStringList;
tmp: string;
begin
ff:= TMemoryStream.Create;
ff.LoadFromFile('1.dat');
ff.position:= 0;
SetLength(tmp, ff.size);
ff.ReadBuffer(@tmp[1], ff.size);
ff.free;

aa:= TStringList.Create;
aa.Text:= tmp;
aa.free;
end;

godelphi2004 · 2006-09-17

不是delphi不能开发出来，是象楼主这样打不着鱼怪鱼篓的人才开发不出来

我爱PASCAL · 2006-09-17

我知道一定可以，只是想吸引一下高手来答，用白愁河的方法成功了，只不过将
ff.ReadBuffer(@tmp[1], ff.size);
中的@去掉后才编译成功，不然报object不能作为变参。

我爱PASCAL · 2006-09-17

其本上搞成了，可加密任意文件，通过优化算法，加密解密速度奇快，加密100M文件只要几秒，包括读写文件的时间。

QSmile · 2006-09-18

是的,不行.

我爱PASCAL · 2006-09-22

谢谢

文件加密这样的软件delphi不能开发出来(50分)

我爱PASCAL

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

bjaman

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

zqw0117

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

godelphi2004

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

QSmile

Unregistered / Unconfirmed

我爱PASCAL

Unregistered / Unconfirmed

Similar threads