delphi 对象序列化保存到文件中，反序列化后出现乱码

Posted 2023-05-16

贴上代码：
procedure TForm1.btnWriteClick(Sender: TObject);
var
my: TMyClass;
fs: TFileStream;
begin
my := TMyClass.Create(self);
my.name := 'rocky';
my.age := 20;
my.address := 'hangzhou';
fs := TFileStream.Create('c:\test.txt', fmCreate);
fs.WriteComponentRes(my.ClassName,my);
fs.free();
end;
procedure TForm1.btnReadClick(Sender: TObject);
var
my1: TMyClass;
ts: TStream;
begin
ts:= TFileStream.Create('c:\test.txt',fmOpenRead);
ts.ReadComponentRes(my1);
try
Form1.edtName.Text := my1.name;
finally
ts.Free();
end;
end;

参考技术A 首先，要确保你对象的成员写在published下。还有你读的代码少了创建TmyClass的实例了，所以会报错。我改了一下是可以的，代码如下：
//TmyClass定义
Type
TMyClass=Class(TComponent)
private
Fage: Integer;
Faddress: String;
FName: String;
published
property Name:String Read FName Write FName;
property age:Integer Read Fage Write Fage;
property address:String Read Faddress Write Faddress;
end;
//保存
procedure TForm4.Button1Click(Sender: TObject);
var
my: TMyClass;
fs: TFileStream;
begin
my := TMyClass.Create(self);
my.name := 'rocky';
my.age := 20;
my.address := 'hangzhou';
fs := TFileStream.Create('c:\test.txt', fmCreate);
fs.WriteComponentRes(my.ClassName,my);
fs.free();
end;
//读取
procedure TForm4.Button2Click(Sender: TObject);
var
my1: TMyClass;
ts: TStream;
begin
my1:=TMyClass.Create(self);//你少了这句...
ts:= TFileStream.Create('c:\test.txt',fmOpenRead);
ts.ReadComponentRes(my1);
try
showmessageFmt('名字：%s 年龄:%d 地址：%s',[my1.name,my1.age,my1.address]);
finally
ts.Free();
end;
end;本回答被提问者采纳

python pickle

python的pickle模块实现了基本的数据序列和反序列化。通过pickle模块的序列化操作我们能够将程序中运行的对象信息保存到文件中去，永久存储；通过pickle模块的反序列化操作，我们能够从文件中创建上一次程序保存的对象。

　　基本接口：

　　pickle.dump(obj, file, [,protocol])
　　注解：将对象obj保存到文件file中去。
　　　　　protocol为序列化使用的协议版本，0：ASCII协议，所序列化的对象使用可打印的ASCII码表示；1：老式的二进制协议；2：2.3版本引入的新二进制协议，较以前的更高效。其中协议0和1兼容老版本的python。protocol默认值为0。
　　　　　file：对象保存到的类文件对象。file必须有write()接口， file可以是一个以‘w‘方式打开的文件或者一个StringIO对象或者其他任何实现write()接口的对象。如果protocol>=1，文件对象需要是二进制模式打开的。

　　pickle.load(file)
　　注解：从file中读取一个字符串，并将它重构为原来的python对象。
　　file:类文件对象，有read()和readline()接口。

 

　A Simple Code

#使用pickle模块将数据对象保存到文件

import pickle

data1 = {‘a‘: [1, 2.0, 3, 4+6j],
         ‘b‘: (‘string‘, u‘Unicode string‘),
         ‘c‘: None}

selfref_list = [1, 2, 3]
selfref_list.append(selfref_list)

output = open(‘data.pkl‘, ‘wb‘)

# Pickle dictionary using protocol 0.
pickle.dump(data1, output)

# Pickle the list using the highest protocol available.
pickle.dump(selfref_list, output, -1)

output.close()

 

#使用pickle模块从文件中重构python对象

import pprint, pickle

pkl_file = open(‘data.pkl‘, ‘rb‘)

data1 = pickle.load(pkl_file)
pprint.pprint(data1)

data2 = pickle.load(pkl_file)
pprint.pprint(data2)

pkl_file.close()