浪
浪翻云
Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下
procedure TForm1.Button1Click(Sender: TObject);
var
BinStream1:TMemoryStream;
StrStream1: TStringStream;
s1,s2: string;
begin
OpenDialog1.Execute;
if (OpenDialog1.FileName='') then exit;
BinStream1:=TMemorystream.Create;
StrStream1:=Tstringstream.Create(s1);
try
BinStream1.LoadFromFile(OpenDialog1.FileName);
BinStream1.SaveToStream(StrStream1);
showmessage(StrStream1.DataString);
finally
BinStream1.Free;
StrStream1.Free;
end;
end;
但是StrStream1.DataString的值中有许多不可辨认的字符,有没有办法把TMemorystream中的数据转换成只含Ascll及简体汉字字符的字符串。
谢谢!!
procedure TForm1.Button1Click(Sender: TObject);
var
BinStream1:TMemoryStream;
StrStream1: TStringStream;
s1,s2: string;
begin
OpenDialog1.Execute;
if (OpenDialog1.FileName='') then exit;
BinStream1:=TMemorystream.Create;
StrStream1:=Tstringstream.Create(s1);
try
BinStream1.LoadFromFile(OpenDialog1.FileName);
BinStream1.SaveToStream(StrStream1);
showmessage(StrStream1.DataString);
finally
BinStream1.Free;
StrStream1.Free;
end;
end;
但是StrStream1.DataString的值中有许多不可辨认的字符,有没有办法把TMemorystream中的数据转换成只含Ascll及简体汉字字符的字符串。
谢谢!!