Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Zwischenablage Bild (https://www.delphipraxis.net/60808-zwischenablage-bild.html)

Skullschildi 12. Jan 2006 14:06


Zwischenablage Bild
 
Also Hallöchen, ich hab ma ne Frage: Ich will ein Programm machen, mit dem man Screenshots automatisch abspeichern kann. ich hab auch schon eine Lösung dafür gefunden, wie ich das automatisch mache (Borland Delphi 5 Grundlagen und Profiwissen) , da steht allerdings nur, wie ich text aus dem Clipboard in ein Memofeld bringe, ämlich mit memo1.astext . Aber wie gelingt mir das mit Bildern? In der Hilfe hab ich auch nichts gefunden, was meiner Vorstellung nach "aspicture" odr "asimage" heissen könnte. wie nennt sich der Befehl, mit dem man ein Bild aus der Zwischenablage in ein Imagefeld bringt?
Danke für Antworten.

Khabarakh 12. Jan 2006 14:24

Re: Zwischenablage Bild
 
Eine Idee wäre, in den Methoden von Delphi-Referenz durchsuchenTBitmap zu suchen :zwinker: .

[OT]Wie kommt man auf die Idee, Fragen in diese Sparte zu posten :roll: ? [/OT]

Gollum 12. Jan 2006 14:30

Re: Zwischenablage Bild
 
Hallo,

in der Delphi-Hilfe gibt es zu TBitmap.LoadFromClipboardFormat ein Beispiel.

DevilsCamp 29. Jan 2006 08:04

Re: Zwischenablage Bild
 
hmm

Kann jemand das Beispiel mal posten für die Delphi 2005/2006 Fraktion?

Khabarakh 29. Jan 2006 11:45

Re: Zwischenablage Bild
 
Zitat:

Im folgenden Beispiel wird beim Klicken auf eine Schaltfläche eine Grafik aus der Zwischenablage ausgegeben.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

var
  Bitmap : TBitmap;
begin
 Bitmap := TBitMap.create;
 try
   Bitmap.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
   Canvas.draw(0,0,Bitmap);
 finally
   Bitmap.free;
 end;
end;


DevilsCamp 29. Jan 2006 11:46

Re: Zwischenablage Bild
 
danke :)

gleich mal ausprobieren


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:05 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz