پرنت كردن فلیم در panel نویشون داده‌ میشه‌

[akar_program]

سلام دوستان من در برنامه‌ یو panel اوردم روی ان یك فیلم نیشون دادم میخواهم یك دكمه‌ داشته‌ باشم كه‌ روی ان كلیك كردم عكس فیلم كه‌ تو پانیل هست پرنت كنم میشه‌ یك رهنمای كنید ممنون

[akar_program]

كه‌ سی رای حلی برای مشكیلی من ندارد ؟

[Felony]

میشه همچین تابعی نوشت ، نوشتن بخش پرینتش با خودتون ، بیشتر از این وقت ندارم :

Procedure PrintPanel(Const aPanel: TPanel);
Var
Canvas: TCanvas;
Bmp: TBitmap;
SourceRect: TRect;
begin
SourceRect.Top:= aPanel.Top;
SourceRect.Left:= aPanel.Left;
SourceRect.Right:= aPanel.Left + APanel.Width;
SourceRect.Bottom:= aPanel.Top + APanel.Height;

Canvas := TCanvas.Create;
try
Canvas.Handle := GetDc(GetParentForm(aPanel, True).Handle);
Bmp := TBitmap.Create;
Bmp.Width := aPanel.Width;
Bmp.Height := aPanel.Height;
Bmp.PixelFormat := pf24bit;
Bmp.Canvas.CopyRect(aPanel.ClientRect, Canvas, SourceRect);
Bmp.SaveToFile('D:\Captrue.bmp');
finally
ReleaseDC(GetParentForm(aPanel, True).Handle, Canvas.Handle);
Bmp.Free;
Canvas.Free;
end;
end;

[سعید صابری]

یه راه دیگه اینه از کامپوننت visioforge_media_player_delphi که رایگان هستش و امکانات زیادی نیز دارا می باشد اینکار با یک خط کد انجام میده