AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen FreePascal Bild-Inhalt der Zwischenablage abspeichern?
Thema durchsuchen
Ansicht
Themen-Optionen

Bild-Inhalt der Zwischenablage abspeichern?

Ein Thema von Pascal95 · begonnen am 23. Mär 2010 · letzter Beitrag vom 29. Mär 2010
 
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#4

Re: Bild-Inhalt der Zwischenablage abspeichern?

  Alt 23. Mär 2010, 20:32
Zitat von Pascal95:

Liegt es daran, dass cih mit Lazarus arbeite?
Wahrscheinlich ja. Guck mal hier:

Zitat:
Ein Bildschirmfoto erstellen

Seit Lazarus 0.9.16 können sie die LCL verwenden um plattformunabhängig Bildschirmfotos aufzunehmen. Der folgende Beispielcode zeigt es (funktioniert unter GTK2 und Win32, aber gegenwärtig nicht unter GTK1):
Delphi-Quellcode:
  uses LCLIntf, LCLType;

  ...

var
  MyBitmap: TBitmap
  ScreenDC: HDC;
begin
  MyBitmap := TBitmap.Create;
  ScreenDC := GetDC(0);
  MyBitmap.LoadFromDevice(ScreenDC);
  ReleaseDC(ScreenDC);

  ...
aus: http://wiki.lazarus.freepascal.org/D...foto_erstellen

In deinem Fall würde ich es so umändern: Du hast ein Image1 auf dem Forumlar, und dann:

Delphi-Quellcode:
var ScreenDC:HDC;
begin
 ScreenDC:= GetDC(0);
 Image1.bitmap.loadFromDevice(ScreenDC);
 ReleaseDC(ScreenDC);
...
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz