J
jsbyl
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟在编写程序的工程中,遇到了以下问题:
我写了一段加密程序,并将数据加密后存放到了一个文件中(如:a.dat,数据中包括了很多怪
字符,如果用ultraedit看将自动转换到16进制),我的目标是把数据从a.txt中读出来,并存放
到pchar型的变量buff中
1、如果用以下代码,数据读不出来,buff中没内容,为什么,有什么办法解决没有:
var
buff1char;
ms1:TMemoryStream;
begin
ms1:=TMemoryStream.Create;
ms1.LoadFromFile('c:/a.dat');
buff1:=stralloc(ms1.size);
ms1.Readbuffer(buff1,ms1.Size);
end;
2、后来我自己想了一个方法,数据能读出来,但tmp中的是二进制,如何转换并将所有数据赋给buff1
var
tmp:array [1..1024] of byte;
ms1:TMemoryStream;
buff1char;
begin
ms1:=TMemoryStream.Create;
ms1.LoadFromFile('c:/a.dat');
ms1.Readbuffer(tmp,ms1.Size);
end;
我写了一段加密程序,并将数据加密后存放到了一个文件中(如:a.dat,数据中包括了很多怪
字符,如果用ultraedit看将自动转换到16进制),我的目标是把数据从a.txt中读出来,并存放
到pchar型的变量buff中
1、如果用以下代码,数据读不出来,buff中没内容,为什么,有什么办法解决没有:
var
buff1char;
ms1:TMemoryStream;
begin
ms1:=TMemoryStream.Create;
ms1.LoadFromFile('c:/a.dat');
buff1:=stralloc(ms1.size);
ms1.Readbuffer(buff1,ms1.Size);
end;
2、后来我自己想了一个方法,数据能读出来,但tmp中的是二进制,如何转换并将所有数据赋给buff1
var
tmp:array [1..1024] of byte;
ms1:TMemoryStream;
buff1char;
begin
ms1:=TMemoryStream.Create;
ms1.LoadFromFile('c:/a.dat');
ms1.Readbuffer(tmp,ms1.Size);
end;