名前
題名
▼ Mr.XRAYさん > [ FMX で TbitmaP からTbitmapSurface への変換方法は？ ] > http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+201809/18090002.txt > > > は TBitmap --> TBitmapSurface ですが，TBitmap をクリップボードへ...は > 例えば以下の感じでできるようです． > 動作確認は Windows 7 U64(SP1) + Delphi 10.2.3 Community FMX( 32 ビット Windows ) です． > uses に以下が必要です． > FMX.Platform > FMX.Clipboard > FMX.Surfaces > > procedure TForm1.Button3Click(Sender: TObject); > var > LClipbrdService : IFMXExtendedClipboardService; > LBitmap : TBitmap; > LBmpSurface : TBitmapSurface; > begin > if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, > LClipbrdService) then begin > LBitmap := TBitmap.Create; > LBmpSurface := TBitmapSurface.Create; > try > LBitmap.LoadFromFile('Image_01.bmp'); > LBmpSurface.Assign(LBitmap); > ImageControl1.Bitmap.Assign(LBmpSurface); > LClipbrdService.SetImage(LBmpSurface); > finally > FreeAndNil(LBitmap); > FreeAndNil(LBmpSurface); > end; > end; > end; > > > 直接 TBitmap をコピーするのであれば， > > procedure TForm1.Button4Click(Sender: TObject); > var > LClipbrdService : IFMXExtendedClipboardService; > LBitmap : TBitmap; > begin > if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, > LClipbrdService) then begin > LBitmap := TBitmap.Create; > try > LBitmap.LoadFromFile('Image_01.bmp'); > ImageControl1.Bitmap.Assign(LBitmap); > LClipbrdService.SetClipboard(LBitmap); > finally > FreeAndNil(LBitmap); > end; > end; > end; > > [参考] > [ クリップボード / ペーストボードを使用するには？ ] > https://ht-deko.com/techf018.html > [ Delphi XE8でFiremonkeyアプリケーションでクリップボードに文字列をコピーする – 山本隆の開発日誌 ] > https://www.gesource.jp/weblog/?p=6903 > > えっ !? > 上の記事とオンラインヘルプの丸写し ? > そういうことはですね．気にしないでくださいませ (^^;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link