[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.

[sergeyrca]

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

[icWasya]

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

[NumLock]

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

через стрим

Код:

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 работает на ура