Clipboard funktioniert nicht immer

[Metallicwar]

Hi,
wir verwenden ein einfaches Clipboard.AsText und weisen diesem Werte aus einer Query zu. (Adressdaten)
Was uns wundert, manchmal funktioniert es, dann aufeinmal wieder nicht. Haben nichts am System verändert, getestet wurde es auf einem Win 2008 Server, XP und W7. In allen Versuchen, funktionierte es, dann aufeinmal wieder nicht.
Hat jemand auch schonmal solche Probleme gehabt oder hat eine Idee, an was das liegen kann?

[ULIK]

Wann geht es denn nicht? Nur wenn Unicodezeichen auftauchen? Prüft mal auf CF_UNICODETEXT ab.

[Luckie]

Oder kann es sein, das Steuerzeichen in der Zeichenkette enthalten sind?

[ConnorMcLeod]

Was funkt nicht? Zuweisen oder aus dem Clipboard wieder abholen?
Was steht in den Formats?

[Metallicwar]

Zitat:

Heute, 12:45 by Luckie
[Zitat]
vor 23 Minuten
Oder kann es sein, das Steuerzeichen in der Zeichenkette enthalten sind?

ja Steuerzeichen sind enthalten:
hier mal der Code:

Delphi-Quellcode:

 ClipBoard.AsText := edAdressName.EditValue
                      + #$D#$A
                      + cxDBTextEdit4.EditingValue
                      + #$D#$A
                      + 'z.Hd. '
                      + cxDBLookupComboBox13.Text
                      + ' '
                      + cxDBTextEdit13.EditValue + ' ' + cxDBTextEdit14.EditValue
                      + #$D#$A
                      + cxDBTextEdit5.EditValue
                      + #$D#$A
                      + cxDBTextEdit2.EditValue + ' ' + edAdressOrt.EditValue
                      + #$D#$A
                      + cxDBLookupComboBox5.Text;

Zitat:

Heute, 12:54 by ConnorMcLeod
[Zitat]
vor 14 Minuten
Was funkt nicht? Zuweisen oder aus dem Clipboard wieder abholen?

In der Zwischenablage scheint leer zu sein, da wenn ich in einem txt Dokument Einfügen klicke, wird nichts eingefügt.

[ConnorMcLeod]

Zitat von Metallicwar:

In der Zwischenablage scheint leer zu sein, da wenn ich in einem txt Dokument Einfügen klicke, wird nichts eingefügt.

Mmmhja, das ist nur ein oberfächlicher Test. Schau mal im Debugger, was im .AsText und im Formats[0]... drinsteht. Könnte ein Inhalt sein, der in einem Format vorliegt, das sich nicht einfügen lässt.
Ich hatte das Phänomen einmal und die praktikabelste Lösung was damals, den kompletten Text in einem TMemo programmatisch zu selektieren und .CopyToClipboard aufzurufen. Danach war im Clipboard alles ok.
Es könnte auch hilfreich sein, das Clipboard zu sperren:

Delphi-Quellcode:

Clipboard.Open;
Clipboard.Clear;
Clipboard.AsText := 'blah';
Clipboard.Close;