memory流数据转换问题?(50分)

  • 主题发起人 主题发起人 浪翻云
  • 开始时间 开始时间

浪翻云

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及简体汉字字符的字符串。
谢谢!!
 
如果仅仅是为了看到文件中的文本,没必要这样做吗
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
552
import
I
后退
顶部