Перенос из Image1 в Image2 через TBitmap. Вчём ошибка?

[Denutrror]

Здравствуйте. Прошу помочь:

Мне нужно перенести изображение из Image1 в Image2 через TBitmap.

Вот код:

type
 
    Button1: TButton;
    im1: TImage;
    im2: TImage;

var

  DC: HDC;
  bmp: Tbitmap;
  Canvas: TCanvas;
   rect1: Trect;

procedure TForm1.Button2Click(Sender: TObject);
begin

rect1:= im1.ClientRect;
Dc:= GETDC(im1.Picture.Bitmap.Canvas.Handle);

  Bmp := TBitmap.Create;
    Bmp.PixelFormat:=pf16bit;
    Bmp.Width := im1.Width;
    Bmp.Height := im1.Height;
   Canvas.Create;
     Canvas.Handle := DC;
 Bmp.Canvas.CopyRect(rect1, Canvas, rect1);
  im2.Picture.Assign(bmp)

end;

Вместо изображения из Image1, в Image2 попадает "кусок формы". Я думаю ошибка допущена здесь Dc:= GETDC(im1.Picture.Bitmap.Canvas.Han dle);
Подскажите в чём ошибка.

[Аватар]

А так не устраивает?

im2.Picture.Bitmap.Assign(im1.Picture.Bitmap);

[Denutrror]

А так не устраивает?

im2.Picture.Bitmap.Assign(im1.Picture.Bitmap);

Нет. Этот вариант не подходит. Я хочу передать изображение по сети из одного Image в другой, при этом сжав его по необходимости.

Проблема заключается том, что я не могу правильно "засунуть" изображение из Image в Tbitmap.

[SERG1980]

Вы бы поиском посмотрели темы "Передача файлов по сети" или "Передача картинки по сети" и найдёте много примеров. Если в двух словах то
сохраняете имидж1 в MemoryStream передаёте по сети а уж там приняв его загружаете картинку из потока в имидж2. Какие сетевые компоненты будете использовать?

[Anton911]

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

Проблема заключается том, что я не могу правильно "засунуть" изображение из Image в Tbitmap.

type
 
    Button1: TButton;
    im1: TImage;
    im2: TImage;
var
  bmp: Tbitmap;


bmp:=TBitMap.Create();
bmp.Width:=im1.Width;
bmp.Height:=im1.Height;
bmp.Canvas.Draw(0,0,im1.Picture.Bitmap);

в bmp загружается картинка из image, дальше думаю разберетесь