Win32::Clipboard - Zugriff auf die Windows-Zwischenablage

| | Kommentare (0)

Win32::Clipboard von Jan Dubois ermöglicht den einfachen Zugriff auf die Windows-Zwischenablage.

Tipp: Unter Microsoft Windows kann der Inhalt der Zwischenablage über den Systemdienst Ablagemappe mit dem Programm %systemroot%\system32\clipbrd.exe eingesehen und auch verwaltet werden.

Text, Bitmaps und Dateilisten

In der Zwischenablage können sich Texte, Bitmaps oder Dateilisten befinden.

Diese drei Typen müssen unterschiedlich behandelt werden.

Win32::Clipboard kann alle drei Typen lesen; in der hier besprochenen Version 0.52 kann Win32::Clipboard nur Text in die Zwischenablage einfügen. Also keine Bitmaps oder Dateilisten.

Basics

 

Ein neues Objekt der Klasse Win32::Clipboard erzeugen

#!/usr/bin/perl
use warnings;
use strict;
use Win32::Clipboard;

my $clip = Win32::Clipboard();

und die installierte Version ausgeben:

    # installierte Version 
print 'Win32::Clipboard Version: ', $clip->Version() , "\n";

Zwischenablage leeren

$clip->Empty();

Text lesen und bearbeiten

 

Text zur Zwischenablage hinzufügen

$clip->Set('Testtext für Zwischenablage');

Feststellen, ob sich Text in der Zwischenablage befindet

if ( $clip->IsText() ) {
	print "In der Zwischenablage befindet sich Text\n";	
}

Textinhalt der Zwischenablage anzeigen

if ( $clip->IsText() ) {
    my $text = $clip->GetText();
    print "Text in der Zwischenablage: $text\n";
}

Bitmaps lesen

 

Feststellen, ob sich in der Zwischenablage ein Bitmap befindet

if ( $clip->IsBitmap() ) {
	print "In der Zwischenablage befindet sich ein Bitmap\n";	
}

Bitmap aus der Zwischenablage lesen und in eine Datei speichern

if ( $clip->IsBitmap() ) {
	my $image = $clip->GetBitmap();
	open    BITMAP,'>',"YouNameIt.bmp" or die $!;  
	binmode BITMAP;
	print   BITMAP $image;
	close   BITMAP or die $!;
}

Dateilisten lesen

 

Feststellen, ob sich in der Zwischenablage eine Dateiliste befindet

if ( $clip->IsFiles() ) {
	print "In der Zwischenablage befindet sich eine Dateiliste\n";	
}

Dateiliste aus der Zwischenablage lesen und ausgeben

if ( $clip->IsFiles() ) {
	my @files = $clip->GetFiles();
	foreach my $file (@files) {
		print "Datei: $file\n";
	}
}

Siehe auch

 

Jetzt kommentieren

Über diese Seite

Diese Seite enthält einen einen einzelnen Eintrag von Thomas Fahle vom 16.05.08 12:27.

CGI-Umgebungsvariablen ermitteln ist der vorherige Eintrag in diesem Blog.

Talk: Beginners Perl - Perl für Einsteiger ist der nächste Eintrag in diesem Blog.

Aktuelle Einträge finden Sie auf der Startseite, alle Einträge in den Archiven.

Blog Roll

Powered by

Powered by Movable Type 5.2.10

Creative Commons-Lizenz

Creative Commons License
Dieses Weblog steht unter einer Creative Commons-Lizenz.