Форум программистов [Powered by Invision Power Board]

Код

void TfmMain::CopyStreamToClipboard(unsigned short fmt, TStream *S)
{
        S->Position = 0;
        HWND hMem = GlobalAlloc(GHND | GMEM_DDESHARE, S->Size);
        if(hMem!=0)
        {
                Pointer pMem = GlobalLock(hMem);
                if(pMem!=NULL)
                {
                        try
                        {
                                S->Read(pMem,S->Size);
                                S->Position = 0;
                        }
                        catch(...)
                        {
                                GlobalUnlock(hMem);
                        }
                        Clipboard()->Open();
                        Clipboard()->SetAsHandle(fmt,(unsigned int)hMem);
                        Clipboard()->Close();
                }
                else
                        GlobalFree(hMem);
        }
}
//---------------------------------------------------------------------------


void TfmMain::CopyStreamFromClipboard(unsigned short fmt, TStream *S)
{
        HWND hMem = (HGLOBAL)Clipboard()->GetAsHandle(fmt);
        if(hMem!=0)
        {
                Pointer pMem = GlobalLock(hMem);
                if(pMem!=NULL)
                {
                        try
                        {
                                S->Write(pMem,S->Size);
                                S->Position = 0;
                        }
                        catch(...)
                        {
                                GlobalUnlock(hMem);
                        }
                }
        }
}
//---------------------------------------------------------------------------


void TfmMain::SaveClipboardFormat(unsigned short fmt, TWriter *writer)
{
        char fmtname[128];
        if(GetClipboardFormatName(fmt, fmtname, sizeof(fmtname))==0)
                fmtname[0]='\0';
        TMemoryStream *ms = new TMemoryStream;
        CopyStreamFromClipboard(fmt, ms);
        if(ms->Size>0)
        {
                writer->WriteInteger(fmt);
                writer->WriteString(fmtname);
                writer->WriteInteger(ms->Size);
                writer->Write(ms->Memory, ms->Size);
        }
        ms->Free();
}
//---------------------------------------------------------------------------


void TfmMain::LoadClipboardFormat(TReader *reader)
{
        unsigned short fmt = reader->ReadInteger();
        String fmtname = reader->ReadString();
        int Size = reader->ReadInteger();
        TMemoryStream *ms = new TMemoryStream;
        ms->Size = Size;
        reader->Read(ms->Memory,Size);
        if(fmtname.Length()>0)
                fmt = RegisterClipboardFormat(fmtname.c_str());
        if(fmt!=0)
                CopyStreamToClipboard(fmt, ms);
        ms->Free();
}
//---------------------------------------------------------------------------



void TfmMain::SaveClipboard(TStream *S)
{
        TWriter *writer = new TWriter(S,4096);
        Clipboard()->Open();
        writer->WriteListBegin();
        for(int i=0; i<Clipboard()->FormatCount; i++)
                SaveClipboardFormat(Clipboard()->Formats[i],writer);
        writer->WriteListEnd();
        Clipboard()->Close();
        writer->Free();

}
//---------------------------------------------------------------------------


void TfmMain::LoadClipboard(TStream *S)
{
        TReader *reader = new TReader(S,4096);
        Clipboard()->Open();
        Clipboard()->Clear();
        reader->ReadListBegin();
        while(!reader->EndOfList())
                LoadClipboardFormat(reader);
        reader->ReadListEnd();
        Clipboard()->Close();
        reader->Free();
}
//---------------------------------------------------------------------------