VPF::Сохранение-загрузка в файл буфера обмена

hitter

Дата 23.3.2006, 20:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 14.3.2006
Где: Новосибирск

Репутация: нет
Всего: нет

Вот есть код (алгоритм из ДРКБ)

Код


unit Unit1;

interface

{$DEFINE Mes}

uses
  Windows, {$IFDEF Mes}Messages, {$ENDIF} SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    bLoad: TButton;
    BSave: TButton;
    bClear: TButton;
    procedure bLoadClick(Sender: TObject);
    procedure bClearClick(Sender: TObject);
    procedure BSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var FS:TFileStream;
{$R *.dfm}

procedure TForm1.bClearClick(Sender: TObject);
begin
 OpenClipBoard(0);
 EmptyClipboard;
 CloseClipBoard;
end;

procedure TForm1.BSaveClick(Sender: TObject);
var CBF:Cardinal; 
 CBFList:TList;  
 i:Integer;  
 h:THandle;  
 p:Pointer;  
 CBBlockLength,Temp:Cardinal;
 //FS:TFileStream;
begin 
 if OpenClipBoard(0)then begin  
 CBFList:=TList.Create;  
 CBF:=0;  
 repeat 
    CBF:=EnumClipboardFormats(CBF);  
    if CBF<>0 then  
    CBFList.Add(pointer(CBF));  
 until CBF=0;  
 //edit1.text:=IntToStr(CBFList.Count);
 if CBFList.Count>0 then begin  
   FS:=TFileStream.Create('e:\cp.dat',fmCreate);  
   Temp:=CBFList.Count;  
   FS.Write(Temp,SizeOf(Integer));  
   for i:=0 to CBFList.Count-1 do begin  
     h:=GetClipboardData(Cardinal(CBFList[i]));  
     if h>0 then begin  
       CBBlockLength:=GlobalSize(h);  
       if h>0 then begin  
         p:=GlobalLock(h);  
         if p <> nil then begin  
           Temp:=Cardinal(CBFList[i]);  
           FS.Write(Temp,SizeOf(Cardinal));  
           FS.Write(CBBlockLength,SizeOf(Cardinal));  
           FS.Write(p^,CBBlockLength);  
        end;  
        GlobalUnlock(h);  
        end;  
      end;  
    end;  
    FS.Free;   
  end;  
  CBFList.Free;  
  CloseClipBoard; 
 end; 
end; 

procedure TForm1.bLoadClick(Sender: TObject);
var h:THandle;
  p:Pointer;  
  CBF:Cardinal;  
  CBBlockLength:Cardinal;  
  i,CBCount:Integer; 
  //FS:TFileStream;
begin 
  if OpenClipBoard(0)then begin  
    FS:=TFileStream.Create('e:\cp.dat',fmOpenRead);  
    if FS.Size=0 then Exit;  
    FS.Read(CBCount,sizeOf(Integer));  
    if CBCount=0 then Exit; 
    for i:=1 to CBCount do begin
      FS.Read(CBF,SizeOf(Cardinal));  
      FS.Read(CBBlockLength,SizeOf(Cardinal));  
      h:=GlobalAlloc(GMEM_MOVEABLE or GMEM_SHARE or GMEM_ZEROINIT,CBBlockLength);  
      if h>0 then begin  
        p:=GlobalLock(h);  
        if p=nil then 
        GlobalFree(h)  
      else begin  
        FS.Read(p^,CBBlockLength);  
        GlobalUnlock(h);  
        SetClipboardData(CBF,h);  
        end;  
      end;  
    end; 
    FS.Free;
    CloseClipBoard;  
 end;
end;
end.

По теории он должен работать!
Просто нужно сделать так что-бы можно было сохранить весь буфер, что нибудь сделать с ним, потом очистить, а потом востановить из сохраненой копии.
Интересно - а выше приведеный код работает?

Rouse_

Дата 24.3.2006, 00:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 18
Всего: 29

Цитата(hitter @ 23.3.2006, 21:35

)

Интересно - а выше приведеный код работает?

Ты привел код, и задал вопрос...
Теперь вопрос к тебе: ты проверял? Если да - он работает или нет?

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

MBo

Дата 24.3.2006, 06:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 234
Регистрация: 10.6.2002

Репутация: 1
Всего: 18

Когда этот код писался, он работал (за исключением особых случаев (отложенный рендеринг))
;)

hitter

Дата 24.3.2006, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 14.3.2006
Где: Новосибирск

Репутация: нет
Всего: нет

Цитата(Rouse_ @ 24.3.2006, 00:06

)

код работает?

Когда я проверял - неработал!

Вообще алгоритм поставленной задачи такой:

Код


Мы скопировали в буфер обмена что нибудь (Текст, картинку, и.т.д).
Затем запомним формат и содержимое буфера во временный файл ("temp.tmp").
Потом в буфере может твориться хоть что (удаление, замена, копирование данных).
После этого буфер надо очистить и восстановить данные из temp.tmp с тем-же форматом.
В результате должно в буфере быть то, что мы скопировали изначально (Текст, картинку, и.т.д).

hitter

Дата 27.3.2006, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 14.3.2006
Где: Новосибирск

Репутация: нет
Всего: нет

Проблема решена!
Топик закрыт smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »