[sergeyrca]

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); var   bm:TMemoryStream; begin   bm:=TMemoryStream.Create;   Image1.Picture.Bitmap.SaveToStream(bm);   Image2.Picture.Bitmap.LoadFromStream(bm);   bm.Free; end;

Админ: Пользуемся тегами для оформления кода!

использую такой вот код, но image1 очищается т.е. картинка пропадает и image2 не получает изображение

голову изломал ни где не могу найти как понять в чем дело

[NumLock]

1 способ:

Код:

1	Image2.Picture.Assign(Image1.Picture);

2 способ:

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var   MemoryStream: TMemoryStream; begin   MemoryStream:=TMemoryStream.Create;   try     Image1.Picture.Bitmap.SaveToStream(MemoryStream);     MemoryStream.Position:=0;     Image2.Picture.Bitmap.LoadFromStream(MemoryStream);   finally     MemoryStream.Free;   end; end;

[sergeyrca]

не помогает , уже пробовал. Картинка исчезает конкретно на savetostream

[NumLock]

http://zalil.ru/34105857

[sergeyrca]

хех разобрался проблема в вот что картинка JPG не копируется и image1 глючит, c bmp все работает ок. Теперь соображаю как победить jpg

[NumLock]

Код:

1	Image2.Picture.Assign(Image1.Picture);

копирует jpeg.

[sergeyrca]

задача как раз в том и заключается чтобы перенести картинку именно через стрим

[icWasya]

Image1.Picture.Bitmap.SaveToStream(bm);
Этот код будет работать, если в Image находится именно BitMap.
попробуйте
Image1.Picture.SaveToStream(bm);

[NumLock]

Сообщение от sergeyrca

через стрим

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var   MemoryStream: TMemoryStream;   jpg: TJPEGImage; begin   MemoryStream:=TMemoryStream.Create;   try     Image1.Picture.Graphic.SaveToStream(MemoryStream);     MemoryStream.Position:=0;     jpg:=TJPEGImage.Create;     try       jpg.LoadFromStream(MemoryStream);       Image2.Picture.Assign(jpg);     finally       jpg.Free;     end;   finally     MemoryStream.Free;   end; end;

[sergeyrca]

Спасибо большое, через Graphic работает на ура