🚀 go-pugleaf

Jos� wrote:

>The clipboard contains text, including Unicode characters. I'm trying
>
>  TClipboard *cb=Clipboard();
>  cb->Open();
>  int TextHandle = cb->GetAsHandle(CF_TEXT);

You want CF_UNICODETEXT for unicode text.
Since that is not a listed format for TClipboard, you might want to
write your own clipboard functions with the WinApi. It's not hard.

>  char *pText = (char *)GlobalLock((HGLOBAL)TextHandle);

You need to use the text before you release it.

>  GlobalUnlock((HGLOBAL)TextHandle);
>  cb->Close();
(You will be doing the same thing above if you use the WinApi.)


You might try this from thr help:
void __fastcall TMainForm::EditPasteClick(TObject* Sender)
{    RichEdit1->PasteFromClipboard();
}

>Again the Unicode characters are replaced by question marks. Perhaps
>this should be expected, since char* has no space for Unicode. But
>what else can I do?

	wchar_t   is for unicode.

>To write into the clipboard, I found that SetAsHandle (the obvious
>opposite of GetAsHandle) is unusable. It takes an int as second
>parameter, and I want to store a lot more.

It takes a Handle. That is, the same kind of thing you got above:
	HGLOBAL  h = GlobalAlloc( size, flags );
	char * data = GlobalLock( h );
	lstrcpy( data, "This goes to the clipboard" );
	GlobalUnlock( h );
	SetAsHandle( CF_TEXT, h );
	// -Do-not- GlobalFree because clipboard owns it.
(You are going to be doing the same thing if you use the WinApi.)

So, it looks like VCL doesn't supprt unicode, which people have been
saying all along. That's ok because you can use the WinApi to do it.
Don't know if the TRichEdit will read it once you get it past the
clipboard though.