Neues in der Zwischenablage?

[cruso]

Hi!

Ich möchte ein Programm schreiben, dass in einem bestimmten Intervall (dafür nehme ich einen Timer <-Was sonst->) alles neue aus der Zwischenablage in einem bestimmten verzeichnis abspeichert (also in Bitmaps und Textdateien). Nur möchte ich keine doppelten Dateien haben, da z.B. die Zwischenablage alle 5 Sekunden abgespeichert wird. Wie kann ich es nun hinbekommen, dass mir zwar keine Datei entgeht, nichts überschrieben werden muss (denn es soll ja alles verfügbar sein) und trotzdem nichts doppelt ist?

MfG
Cruso :dancer2:

[SubData]

Prüf einfach ob der letzte Eintrag mit dem Aktuellen identisch ist, dann hast du nix doppelt...

[cruso]

Un wie soll das funktionieren? Das dauert doch bis man ein ganzes Bitmap überprüft hat!

Ist es möglich immer wenn etwas hinzugefügt wird (dann ohne Timer) das sofort zu speichern, wenn das Proggi läuft?

[Union]

So funktioniert es:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  procedure WMDrawClipBoard(var Message : TMsg); Message WM_DRAWCLIPBOARD;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMDrawClipBoard(var Message: TMsg);
begin
   ShowMessage('Clipboard geändert');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   SetClipBoardViewer(handle);
end;

Wichtig ist der Aufruf von SetClipBoardViewer, damit das Fenster die Nachricht erhält.

[cruso]

Da muss dann ja auchnoch in die uses-Klausel clipbrd eingefügt werden oder?

[Union]

Nein, muss nicht rein. Nur Windows, Forms, Messages, Dialogs.

Ist übrigens Q&D programmiert. Wenn Du es ganz korrekt machen willst, dann musst Du die Messages auch weiterleiten WM_DRAWCLIPBOARD

[shmia]

Man kann sich über Änderungen im Clipboard benachrichtigen lassen.
Alle Beobachter zusammen bilden eine Kette.
Damit die Kette nicht zerreist, sind einige Dinge zu beachten.
Du kannst mal meinen Clipboard Explorer anschauen; dort wird das richtig behandelt.
http://www.delphipraxis.net/internal...ct.php?t=59549

[cruso]

Gut! Wenn jetzt etwas neues in der Zwischenablage ist, dann wird man benachrichtigt! Nur wie kann man unterscheiden, ob nun ein Bild oder ein Text in der Zwischenablage ist?

[shmia]

Zitat:

Zitat von cruso

Nur wie kann man unterscheiden, ob nun ein Bild oder ein Text in der Zwischenablage ist?

Es sind immer mehrere Formate gleichzeitig im Clipboard.
Der Clipboard Explorer zeigt diese an.
Du kannst nun in einer best. Rangfolge nachschauen, ob ein Format, dass dein Programm versteht, im Clipboard liegt.

Delphi-Quellcode:

if Clipboard.Hasformat(CF_BITMAP) then
   Clipboard.Assign(Bitmap1) // da ist ein Bild
else if Clipboard.Hasformat(CF_TEXT) then
   s := ClipBoard.AsText  // ein Text
else
   ; // da ist was, was ich nicht kenne :-(