继续提问，这个问题怎么解决。

[hhnick]

还有一个问题，我想把MS中的东西保存到string中，然后作为参数进行传递，但是保存到string是保存不进去。
s:widestring;

SetLength(S, MS.Size);
MS.ReadBuffer(S[1], MS.Size);

procedure TForm1.strtojpg(str: widestring);
var
MS : TMemoryStream;
Bitmap : TBitmap;
begin
Ms := TMemoryStream.Create;
Bitmap := TBitmap.Create;
try
Ms.SetSize(Length(Str));
Ms.Position := 0;
Ms.WriteBuffer(Str, Ms.Size);
Bitmap.LoadFromStream(Ms);
Image1.Picture.Bitmap.Assign(Bitmap);
finally
Bitmap.Free;
Ms.Free;
end;
end;

然后用传递的参数还原此图片，但是总不成功。各位高手给个建议。

[nyf1220]

MS.ReadBuffer(S[1], MS.Size); //改成看看
MS.ReadBuffer(S,MS.Size);

[zwb666]

学习

[hhnick]

不行，出现异常了，

[hhnick]

s:widestring;
Ms:TMemoryStream;
Bitmap:TBitmap;

Image2.Picture.Bitmap := Bitmap;
Bitmap.SaveToStream(Ms);
Ms.Position := 0;
SetLength(S, MS.Size);
MS.ReadBuffer(S[1], MS.Size);
S就是要传递的参数。
这是将一副图片保存到MS中，没有问题。
然后用传递的参数还原此图片，但是总不成功。各位高手给个建议。
procedure TForm1.strtojpg(str: widestring);
var
MS : TMemoryStream;
Bitmap : TBitmap;
begin
Ms := TMemoryStream.Create;
Bitmap := TBitmap.Create;
try
Ms.SetSize(Length(Str));
Ms.Position := 0;
Ms.WriteBuffer(Str, Ms.Size);
Bitmap.LoadFromStream(Ms);
Image1.Picture.Bitmap.Assign(Bitmap);
finally
Bitmap.Free;
Ms.Free;
end;
end;

[hhnick]

Ms.Position := 0;
不好意思，上面这句话放错位置了。