Delphi2010中DecodeStream输出结果为空

[thinkeasy]

var s1,s2,o: TStringStream;
s: TBytesStream;
b:string;
begin
s1:=TStringStream.Create;
s1.LoadFromFile('d:\1.jpg' );

o:= TStringStream.Create;
EncdDecd.EncodeStream(s1,o);
b:=o.DataString;

ShowMessage(b);
s2 :=TStringStream.Create;
EncdDecd.DecodeStream(o,s2);//S2为空，没有内容
s2.SaveToFile('d:\2.jpg');
s1.Free;
s2.Free;

[thinkeasy]

o.Position:=0;
EncdDecd.DecodeStream(o,s2);
自己搞定了，分给谁？

[iamduo]

抢分来的。

[Mit1208]

接分来了!

[thinkeasy]

来者有分