Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по MS Word...

kull © (2002-11-15 17:11:00)
Как скопировать все содержимое документа (ActiveDocument) в новый документ (Documents.Add) не пользуясь буфером обмена?

kull (2002-11-18 11:44:00) [1]

> MBo © (16.11.02 09:36)

Да, вот это нехорошо...
Значит мне не подойдет. Поэтому-то я и нехочу использовать буфер.

MBo (2002-11-16 09:36:00) [2]
>kull
Надо только учитывать, что это не сработает при отложенном копировании по запросу (render...), когда приложение-источник данных реально не записывает их в область, доступную через клипборд, а ждет запроса от приемника. Это иногда используется при копировании больших объемов.

kull (2002-11-16 00:05:00) [3]

> MBo © (15.11.02 17:56)

Спасибо! Вот это очень полезный совет.

MBo (2002-11-15 17:56:00) [4]
Сохранение всего содержимого буфера обмена в файл

var FS:TFileStream;

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;

(использованы идеи Peter Below)

kull (2002-11-15 17:32:00) [5]

> Calm © (15.11.02 17:15)

Тогда вопрос: А как сохранить содержимое буфера обмена?

Calm (2002-11-15 17:15:00) [6]
Ну если без картинок, таблиц, в общем, только текст,
то можно перебирать по параграфам. Читаем параграф из одного документа, записываем в другой. И так до конца.
Если есть картинки и таблицы, то возникает проблема с их порядком.

А почему нельзя использовать буфер обмена? Если там что важное находится, то это "что-то" можно сохранить, а потом вернуть в буфер.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »