TPanel에 표시된 그림을 TImage로 복사

Question

MPlayer 비디오 결과를 TPanel에 성공적으로 임베드했지만 TImage에 TPanel 결과를 복사 할 수 없습니다.

은 TPanel 정상적인 사진 TImage로 복사된다

임베딩 배관 MPlayer는 WID 및 커맨드 라인 파라미터를 사용하여 수행된다. MPlayer는 TPanel 핸들을 사용하여 결과를 표시합니다. TImage에

다음 미리 테스트,하지만 단지 정상 TPanel 사진 복사 :

Image1.Picture.Bitmap.Canvas.CopyRect(
    Rect(0, 0, Image1.Width-1, Image1.Height-1), 
    TMyPanel(Panel1).Canvas,  //TMyPanel is an empty class to access canvas property 
    Rect(0, 0, Panel1.Width-1, Panel1.Height-1) 
); 

이 :

Function PanelToBmp (Panel:TPanel):TBitmap; 
VAR 
    bmp : tBitmap; 
    DC : HDC; 
Begin 
    bmp := tBitmap.Create; 
    bmp.width := Panel.Width; 
    bmp.Height := Panel.Height; 
    DC := GetDc (Panel.Handle); 
    Bitblt(bmp.canvas.handle, 0, 0, Panel.Width, Panel.Height, Dc, 0, 0, NOTSRCCOPY); 
    Releasedc (Panel.handle,dc); 
    result := bmp; 
End; 

Answer 1

또한 클립 보드를 통해 복사 할 수 있습니다, 이것을 시도를 :

uses ClipBrd;

procedure TForm1.Button1Click(Sender: TObject); 
var 
    lBmp: TBitmap; 
begin 
    lBmp := TBitmap.Create; 
    try 
    lBmp.SetSize(Panel1.ClientWidth, Panel1.ClientHeight); 
    BitBlt(lBmp.Canvas.Handle, 0, 0, Panel1.ClientWidth, Panel1.ClientHeight, TMyPanel(Panel1).Canvas.Handle, 0, 0, SRCCOPY); 
    Clipboard.Assign(lBmp); 

    Image1.Picture.Bitmap.Assign(lBmp); 
    finally 
    lBmp.Free; 
    end; 
end; 

도움이 되었기를 바랍니다.