TMemoryStream sıkışmış MyJPEG : TJPEGImage atamak

[a_self_lion]

private
JPEGOriginalBinary : TMemoryStream;
JPEGEncryptedBinary: TMemoryStream;


var
MyJPEG : TJPEGImage;
MyBMP : TBitmap;
begin
...
..
with MyJPEG do
begin
Assign(MyBMP);
CompressionQuality := 12;
Compress;
end;

IF Assigned(JPEGOriginalBinary)
THEN JPEGOriginalBinary.Free;
JPEGOriginalBinary := TMemoryStream.Create;
JPEGOriginalBinary.Memory := myjpeg;


burda arkadaşlar bir mybmp resmimi jpg dönüştürdüm ve
daha önce private de tanımlamış olduğum
JpegOriginalBinary Tmemorystream ıma nasıl mypeg imi atayabilirim denedim çeşitli
olmadı.

with MyJPEG do
begin
Assign(MyBMP);
CompressionQuality := 12;
Compress;
end;
burda sıkışıyor
ve
IF Assigned(JPEGOriginalBinary)
THEN JPEGOriginalBinary.Free;
JPEGOriginalBinary := TMemoryStream.Create;
JPEGOriginalBinary.Memory := myjpeg;
burda da atamalıyım ama yapamadım.
Yardımlarınızı bekliyorum

[sabanakman]

MyJPEG.SaveToStream(JPEGOriginalBinary); kodu ile bilgi JPEGOriginalBinary MemoryStream nesnesine aktarılacaktır.

[a_self_lion]

Sayın Şabah AKMAN Çok Teşekkür ederm.