🚀 go-pugleaf

Hi Paul 
 
 Paul says:
> OK I need to be specific :)
> 
> I am using a third party application (that has an inbuilt hex viewer) that I 
> use to copy data onto the clipboard - I have no idea what format the data is 
> in. I want to paste the data into a hex editor that I have written.
> 
> I have a third party hex editor which I can paste the same copied data 
> into - so the clipboard data is clearly in a format that can be used - I 
> just need to know how to get at it.

Have You tried pasting the data into notepad or the BCB editor
it might be in a text format.

if so this should work:

char Buf[200];
TClipboard().GetTextBuf(Buf, 200);


If not You have to get the clipboard format and see what
formats that are available, in my xvi32 Hex editor the format 
has number 49883

So I made this little test app:
A new project with a listbox and two buttons and it seem to work,
but there is 4 extra bytes at the beginning of the memory and I
also need to say that I don't know if this is the right way to do it.

Kind regards
Asger

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ListBox1->Clear();
   for(int i = 0; i < Clipboard()->FormatCount; i++)
      ListBox1->Items->Add(IntToStr(Clipboard()->Formats[i]));
}
//-----------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   HGLOBAL Hnd = (void*)TClipboard().GetAsHandle(49883);
   if( ! Hnd)
      return;

   String Hex;

   int Size = ::GlobalSize(Hnd);

   if(Size)
   {
      Byte* Mem;
      try{
         ::GlobalLock(Hnd);
         Mem = new Byte[Size];
         ::CopyMemory(Mem, Hnd, Size);
         for(int i = 0; i < Size; ++i)
            Hex += IntToHex(Mem[i], 2) + " ";

      }__finally{
         ::GlobalUnlock(Hnd);
         delete[] Mem;
      }
   }

   Caption = Hex;
}
//---------------------------------------------------------