🚀 go-pugleaf

"Asger Joergensen" <junk@Asger-P.dk> wrote in message 
news:MPG.2217a0eb16f624a2989a58@newsgroups.borland.com...

> if so this should work:
>
> char Buf[200];
> TClipboard().GetTextBuf(Buf, 200);

TClipboard is a VCL-based class.  It cannot be instantiated on the stack 
like that.  You need to use the global Clipboard() function instead, ie:

    char Buf[200];
    if( Clipboard()->GetTextBuf(Buf, 200) > 0 )
    {
        // use Buf ...
    }

Or:

    AnsiString Buf = Clipboard()->AsText;
    if( !Buf.IsEmpty() )
        // use Buf ...

> in my xvi32 Hex editor the format has number 49883

That is a custom format that was registerd using RegisterClipboardFormat() 
at runtime.  As such, it is not not a static value.  Reboot the machine and 
you will see the clipboard format use a different value next time.  To work 
with such values, you must call RegisterClipboardFormat() in your own code 
to retreive the current value that the original app is also using to fill 
the clipboard with.  To know the name of that value when it was registered, 
you can use GetClipboardFormatName() to get the format name and then put 
that into your code when calling RegisterClipboardFormat().

> there is 4 extra bytes at the beginning of the memory

Chances are, that is the actual byte count (or character count) of the data. 
GlobalSize() returns the byte size of the HGLOBAL that was allocated for the 
data, and thus may be larger than the data size due to memory alignment and 
such.  GlobalSize() does not report the size of the actual data itself.  For 
example:

    private:
        UINT uiDataFormat;

    __fastcall TForm1::TForm1(TComponent *Owner)
    {
        uiDataFormat = ::RegisterClipboardFormat("TheFormatNameHere");
    }

    void __fastcall TForm1::Button2Click(TObject *Sender)
    {
        if( uiDataFormat == 0 )
            return;

        Clipboard()->Open();
        try
        {
            if( Clipboard()->HasFormat(uiDataFormat) )
            {
                HGLOBAL hGlobal = (HGLOBAL) 
Clipboard()->GetAsHandle(uiDataFormat);
                if( hGlobal )
                {
                    LPVOID pData = ::GlobalLock(hGlobal);
                    if( pData )
                    {
                        try
                        {
                            DWORD dwSize = * (LPDWORD) pData;

                            String Hex;
                            for(DWORD i = 0; i < dwSize; ++i)
                                Hex += IntToHex(pData[i], 2) + " ";

                            Memo1->Text = Hex;
                        }
                        __finally
                        {
                            ::GlobalUnlock(hGlobal);
                        }
                    }
                }
            }
        }
        __finally
        {
            Clipboard()->Close();
        }
    }

> I also need to say that I don't know if this is the right way
> to do it.

Why not just contact the author of the original app and ask?


Gambit