Содержание материала

Мне нужно использовать clipboard для сохранения данных в собственном формате и я хочу для этого написать набор процедур ввода/вывода с использованием потоков (streams). Возможно ли создать объект TMemoryStream, эаполнить его и поместить в Clipboard?

 

Hе только возможно, именно так поступают функции Clipboard.GetComponent и Clipboard.SetComponent. Сначала вы должны зарегистрировать свой собственный формат данных для Clipboard с помощью функции RegisterClipboardFormat:

 

   CF_MYFORMAT := RegisterClipboardFormat('My Format Description');

 

Далее вы должны выполнить шаги:

 

1. Создать поток (memory stream) и записать туда данные.

2. Создать глобальный буфер в памяти и скопировать поток туда.

3. Вызвать Clipboard.SetAsHandle(), чтобы поместить буфер в Clipboard.

 

Пример:

  

Code:

    var

      hBuf: THandle;

      Bufptr: Pointer;

      MStream: TMemoryStream;

    begin

      MStream := TMemoryStream.Create;

      try

      { write your data to the stream }

        hBuf := GlobalAlloc(GMEM_MOVEABLE, MStream.Size);

        try

          BufPtr := GlobalLock(hBuf);

          try

            Move(MStream.Memory^, BufPtr^, MStream.Size);

            Clipboard.SetAsHandle(CF_MYFORMAT, hBuf);

          finally

            GlobalUnlock(hBuf);

          end;

        except

          GlobalFree(hBuf);

          raise;

        end;

      finally

        MStream.Free;

      end;

    end;

 Автор: Vladimir Timonin

Внимание: не уничтожайте буфер, созданный с GlobalAlloc. Поскольку вы поместили его в Clipboard, это уже дело clipboard'а его уничтожить. Опять же, получая буфер из Clipboard, не уничтожайте этот буфер - просто сделайте копию содержимого.

 


Для обратного получения потока и данных, сделайте что-нибудь вроде этого:

 

Code:

    var

      hBuf: THandle;

      BufPtr: Pointer;

      MStream: TMemoryStream;

    begin

      hBuf := Clipboard.GetAsHandle(CF_MYFORMAT);

      if hBuf <> 0 then

 

      begin

        BufPtr := GlobalLock(hBuf);

        if BufPtr <> nil then

        try

          MStream := TMemoryStream.Create;

          try

            MStream.WriteBuffer(BufPtr^, GlobalSize(hBuf));

            MStream.Position := 0;

          { read your data from the stream }

          finally

            MStream.Free;

          end;

        finally

          GlobalUnlock(hBuf);

        end;

      end;

    end;

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить