我自己作了一个例子
var
s : string;
i : integer;
d : double; myms : TMemoryStream;
begin
myms := TMemoryStream.Create;
try
s := '中国';
myms.Write(s,Length(s));
s := 'mrlong';
myms.Write(s,Length(s));
i:= 90;
myms.Write(i,sizeof(i));
d := 9.897;
myms.Write(d,sizeof(d));
myms.SaveToFile('abc.test');
finally
myms.Free;
end;end;再用winhex 打开 abc.test 的文件
如下
data: array[0..21] of byte = (
$68, $42, $45, $00, $78, $42, $45, $00, $8C, $F7, $5A, $00, $00, $00, $25, $06,
$81, $95, $43, $CB, $23, $40
);反过来,如我不知写入格式, 怎么用 winhex 打开abc.test 反算出 delphi 代码来
var
s : string;
i : integer;
d : double; myms : TMemoryStream;
begin
myms := TMemoryStream.Create;
try
s := '中国';
myms.Write(s,Length(s));
s := 'mrlong';
myms.Write(s,Length(s));
i:= 90;
myms.Write(i,sizeof(i));
d := 9.897;
myms.Write(d,sizeof(d));
myms.SaveToFile('abc.test');
finally
myms.Free;
end;end;再用winhex 打开 abc.test 的文件
如下
data: array[0..21] of byte = (
$68, $42, $45, $00, $78, $42, $45, $00, $8C, $F7, $5A, $00, $00, $00, $25, $06,
$81, $95, $43, $CB, $23, $40
);反过来,如我不知写入格式, 怎么用 winhex 打开abc.test 反算出 delphi 代码来
解决方案 »
- fastreport直接打印出错 请教高手 提示 fastreport undeclared identifier ‘frall’
- 请高手指点(数据库应用程序)
- 如何用Socket传接收文件
- Fastreport的控件使用的问题
- oracle字段类型char(1000),在dbgrid中显示不了,对应字段的列全都显示 (memo),有没有解决良策???
- 查询问题
- 我想截获所有的键盘消息,不管是送往哪个应用程序的键盘消息,可以吗?给他100分
- 吐血经验!!!delphi用BDE+ODBC的体制开发oralce先天性的缺陷!
- 求救:cds文件用TClientDataSet控件如何打开?
- Borland首席设计师去了微软,会不会象当年乔丹离开公牛?不知Borland的结局会不会象现在的公牛?Delphi程序员们有何看法?
- 三层结构中,服务器数据模块中连接组件可以设置登陆密码,如何在客户端获取用户名密码传给服务器连接组件。
- 远程连接问题
那不是很简单吗?
只要区分了asc码和中文,就行了。
Why?