как поместить изображение в буфер

[leonw]

Здравствуйте! не могу сообразить как поместить из image1 или jpg в stream

MS := TMemoryStream.Create;
ms:=Image1.picture;
ms.free;

как правельно сделать?
Спасибо!

[maxionans]

Image.Picture.Graphic.SaveToStream( Stream );

[leonw]

т.е тогда по идеи должно получится вот так

MS := TMemoryStream.Create; 
image1.Picture.Graphic.SaveToStream(ms);
MS.Position := 0;
ServerSocket1.Socket.Connections[0].SendBuf(ms, 0);
MS.Free;

и клиент

MS := TMemoryStream.Create;
ClientSocket1.Socket.ReceiveBuf(ms,0);
MS.Position := 0;
image1.Picture.Graphic.LoadFromStream(ms);
MS.Free;

но выдает ошибку

[Пепел Феникса]

MS := TMemoryStream.Create; 
image1.Picture.Graphic.SaveToStream(ms);
MS.Position := 0;
ServerSocket1.Socket.Connections[0].SendBuf(ms,MS.size);
MS.Free;

MS := TMemoryStream.Create;
MS.size:=ClientSocket1.Socket.RecieveLen;
ClientSocket1.Socket.RecieveBuf(ms,MS.Size);
MS.Position := 0;
image1.Picture.Graphic.LoadFromStream(ms);
MS.Free;