图像流中的 ass.DataString怎么是 BM傰 ( 积分: 10 )

procedure TForm1.BitBtn1Click(Sender: TObject);
var
jimg:tjpegimage;
ass:tstringstream;
ams:tmemorystream;
begin
ams:=tmemorystream.Create;
ass:=tstringstream.Create('');
jimg:=tjpegimage.Create;
jimg.LoadFromFile(ExtractFilePath(ParamStr(0))+'YellowPages.jpg');

image1.Picture.Bitmap.Assign(jimg);
image1.Picture.Bitmap.SaveToStream(ams);
ams.Position:=0;
ams.SaveToFile('c:/aa');
//en
ams.SaveToStream(ass);
ass.Position:=0;
memo1.Lines.Text:=ass.DataString;

ams.Free;
ass.Free;
jimg.Free;

end;


问这ass.DataString怎么是 BM傰

应该跟c;/aa中内容一样吧...

help...

ass.datastring中的内容怎么还能正确啊.?(与aa中的一样)

procedure TForm1.BitBtn1Click(Sender: TObject);
var
jimg:tjpegimage;
ass:tstringstream;
ams:tmemorystream;
begin
ams:=tmemorystream.Create;
ass:=tstringstream.Create('');
jimg:=tjpegimage.Create;
jimg.LoadFromFile(ExtractFilePath(ParamStr(0))+'YellowPages.jpg');

image1.Picture.Bitmap.Assign(jimg);
image1.Picture.Bitmap.SaveToStream(ams);
ams.Position:=0;
ams.SaveToFile('c:/aa');
//en
ams.SaveToStream(ass);
ass.Position:=0;
memo1.Lines.Text:=ass.DataString;

ams.Free;
ass.Free;
jimg.Free;

end;


问这ass.DataString怎么是 BM傰

应该跟c;/aa中内容一样吧...

help...

ass.datastring中的内容怎么还能正确啊.?(与aa中的一样)