Hallo,
ich steuere mit meien Programm ein anderes und sende die Daten an das Programm indem ich einen Tastendruck simuliere. Nun habe ich auch eine größeres Textfeld welche ich gern übertragen möchte. Dieses machen ich dadurch, indem ich den Text in die Wischenablege kopiere und dann mit CRTL V einfüge. Das ganze geht auch ganz gut. Jedoch ab und zu erhalte ich die Fehlermeldung Zwischenablage kann nicht geöffnet werden. Die Fehlermelung kommt so lange bis ich mein Programm schließe und neu starte. Dann geht es ohne Probleme. Manchmal geht es Tage gut manchmal kommt die Fehlermeldung schon beim 2. Übertragen der Daten. Muß man für die Zwischenablage vorher Speicher reservieren und dann nachher freigenen ? Oder wss könnt sonst sein ?

Tanja

Zitat von Dumpfbacke:

Dieses machen ich dadurch, indem ich den Text in die Wischenablege kopiere und dann mit CRTL V einfüge.

Ich hoffe, du sicherst den Inhalt der Zwischenablage und stellst ihn wieder her?

Und was spricht gegen WM_SETTEXT?

Zitat von Luckie:

Zitat von Dumpfbacke:

Dieses machen ich dadurch, indem ich den Text in die Wischenablege kopiere und dann mit CRTL V einfüge.

Ich hoffe, du sicherst den Inhalt der Zwischenablage und stellst ihn wieder her?

Und was spricht gegen WM_SETTEXT?

Ich mache das in meinen Programm so:

markieren

Delphi-Quellcode:

Clipboard.Clear;
Clipboard.AsText := memo.Text //Im MeMo steht mein Text
//Ab wird wird dann der Text in das benötigte Feld eingefügt
//Hierzu simuliere ich ein STRG V

Gibt es noch einen Möglichkeit ? Wie kann ich den denn Inhalt sichern ?


Tanja

Hallo,

gibt du denn die Clipboard-Variable auch wieder frei ?


Heiko

Zitat von hoika:

Hallo,

gibt du denn die Clipboard-Variable auch wieder frei ?


Heiko

Nein. Wie kann ich es denn machen ?

Tanja

Zitat von Luckie:

Und was spricht gegen WM_SETTEXT?

Wenn gar nicht anders, mit WM_SETTEXT kannst du doch auch fremde Felder ausfüllen.SendMessage({handle}, WM_SETTEXT, 0, LPARAM(@Memo.Text[1]));

Hallo,

zum Clipboard freigeben:

markieren

Delphi-Quellcode:

ClipBoard:= TClipBoard.Create(?);
try
  DoSomeClipBorad stuff ...
finally
  ClipBoard.Free:
end;

Heiko