Clipbrd wird nicht gefunden/Führt zu Access Error

[Midykm]

Das kleine "Progrämmchen"

{$mode objfpc}{$H+}

uses
Clipbrd;

begin
ClipBoard.AsText := 'Test Clipboard';
end.

führt in der Lazarus IDE (Version 3.6-FPC 3.2.2, x64,Windows11, x64) zu einer
"External Access Violation reading from address $0000000000000000"
In der Datei LCLINTF.INC, Zeile 96.
Auf der Kommandozeile mit FPC bekomme ich
"project1.lpr(4,3) Fatal: Can't find unit Clipbrd used by Program
Fatal: Compilation aborted
Error: C:\lazarus\fpc\3.2.2\bin\x86_64-win64\ppcx64.exe returned an error exitcode"
Ein anderes Programm von mir, eine GUI-Anwendung, hat u.a. auch Clipbrd in der Uses-Klausel.
Hier tritt obiges Problem nicht auf.
Hilfe, bitte!

[theo]

Konsolenanwendungen haben kein Clipboard.
Clipboard ist eine GUI Angelegenheit. Unter Linux ist X11 dafür verantwortlich (Oder ggf Wayland).

Ich weiss nicht, ob es da irgendwelche Tricks gibt, das zu umgehen.

[Mathias]

Dies scheint nur in der LCL zu gehen.
Ich habe es mit Linux probiert, auch da knallt es.

Aber du kannst auch die WinAPI benutzen.

Code: Alles auswählen

program project1;

uses
  Windows;

  // https://stackoverflow.com/questions/73322716/setclipboarddata-and-new-operator-for-handle

const
  hello: string = 'Hello World !';
var
  h: HGLOBAL;
  pmem: pchar;
begin
  h := GlobalAlloc(GMEM_MOVEABLE, Length(hello)+1);
  if h <> 0 then begin
    pmem := PChar(GlobalLock(h));
    move(hello[1], pmem[0], Length(hello));
    GlobalUnlock(h);
    if OpenClipboard(0) then begin
      EmptyClipboard;
      if SetClipboardData(CF_TEXT, h) <> 0 then begin
        h := 0;
      end;
      CloseClipboard;
    end;
    if h <> 0 then begin
      GlobalFree(h);
    end;
  end;
end.

[Mathias]

Ich weiss nicht, ob es da irgendwelche Tricks gibt, das zu umgehen.

Die gibt es. Da bei Windows immer die GUI bei Konsolenanwendungen läuft, kann man sich der WinAPI bedienen.

Bei Linux ist es ähnlich, aber da muss ein XServer im Hintergrund laufen. Das das ganze mit den XAtomen gesteuert wird.

[Midykm]

Dies scheint nur in der LCL zu gehen.
Ich habe es mit Linux probiert, auch da knallt es.

Aber du kannst auch die WinAPI benutzen.

Code: Alles auswählen

program project1;

uses
  Windows;

  // https://stackoverflow.com/questions/73322716/setclipboarddata-and-new-operator-for-handle

const
  hello: string = 'Hello World !';
var
  h: HGLOBAL;
  pmem: pchar;
begin
  h := GlobalAlloc(GMEM_MOVEABLE, Length(hello)+1);
  if h <> 0 then begin
    pmem := PChar(GlobalLock(h));
    move(hello[1], pmem[0], Length(hello));
    GlobalUnlock(h);
    if OpenClipboard(0) then begin
      EmptyClipboard;
      if SetClipboardData(CF_TEXT, h) <> 0 then begin
        h := 0;
      end;
      CloseClipboard;
    end;
    if h <> 0 then begin
      GlobalFree(h);
    end;
  end;
end.

Danke für den Tipp und den Code! So klappt es auch auf der Konsole mit der Zwischenablage unter Windows.

[Mathias]

So klappt es auch auf der Konsole mit der Zwischenablage unter Windows.

Das Gegenstück um Daten zu holen sollte jetzt mit diesem Anhaltspunkt kein Problem mehr sein.

[wp_xyz]

Die Unit "clipbrd" liegt im Ordner "lcl" der Lazarus-Installation. Daher kannst du sie in einem Kommandozeilen-Programm nur verwenden, wenn du das Package LCL zu den Anforderungen des Projekts hinzufügst (Rechtsklick auf "Benötigte Packages" > "Hinzufügen", dann den Eintrag "LCL" aus der Liste auswählen). Nachdem das geschehen ist, geht es ganz einfach:

Code: Alles auswählen

program Project1;
uses
  Interfaces, ClipBrd;
begin
  Clipboard.AsText := 'Das ist ein Test für die Zwischenablage.';
end. 

Die Unit "interfaces" wird noch benötigt, um das Widgetset zu initialisieren.

[Midykm]

Klasse! Dann braucht man die Windows API nicht. Ich werde es morgen ausprobieren.
Einstweilen Danke!

[theo]

Am Ende hast du doch den ganzen GUI Zauber eingebunden.
Ich weiss nicht, ob ich das noch Konsolenanwendung nennen würde.
Aber ja, geht.

[Niesi]

Am Ende hast du doch den ganzen GUI Zauber eingebunden.
Ich weiss nicht, ob ich das noch Konsolenanwendung nennen würde.
Aber ja, geht.

Tja, das ist dann die virtuelle Klickiklicki-Emulation für die, die mit Klickibunti nicht klarkommen.

Schöne neue Welt ...

[Midykm]

Ja, es geht - in der IDE. Auf der Konsolenebene meckert FPC über die nicht gefundene Unit "Interfaces".
Außerdem, das so kompilierte Programm ist mit über 20MB wesentlich größer als die ein paar Dutzend Kilobyte großen Konsolenanwendungen. Klar, der Debugger...
Ich denke, ich bleibe bei der API.

[Niesi]

Ja, es geht - in der IDE. Auf der Konsolenebene meckert FPC über die nicht gefundene Unit "Interfaces".
Außerdem, das so kompilierte Programm ist mit über 20MB wesentlich größer als die ein paar Dutzend Kilobyte großen Konsolenanwendungen. Klar, der Debugger...
Ich denke, ich bleibe bei der API.

Dir ist bekannt, dass Du die vielen Megabyte für den Debugger weglassen kannst?

Dann hast Du ein sehr kleines Programm, welches trotzdem funktioniert, sofern Du alles richtig gemacht hast ...

[Midykm]

Ja, ich weiß. Wie auch immer, ich arbeite lieber auf der Kommandozeile, sofern ich keine GUI-Anwendung mache. Und da motzt FPC über die fehlende Interfaces-Unit.
Egal. Das Problem "ClipBoard" ist so oder so gelöst, dank Eurer Hilfe!