[sergeyrca]

Код:

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 способ:

Код:

Image2.Picture.Assign(Image1.Picture);

2 способ:

Код:

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]

Код:

Image2.Picture.Assign(Image1.Picture);

копирует jpeg.