| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

SaveToClipboardFormat [D7, XP]

Valery779 ©   (2006-09-28 15:38:00) 

procedure TForm1.Button1Click(Sender: TObject);
var  W:variant;
APalette :HPalette;
AFormat:Word;
AData:THandle;
begin
  W:=CreateOleObject('Word.Application');
  W.Visible:=true;
  W.documents.Add(ExtractFileDir(Application.ExeName)+'\templ\file.doc',0);
  W.ActiveDocument.Select;
  Image1.Picture.SaveToClipboardFormat(AFormat,AData,APalette);
  W.Selection.Paste;
end;

-- File.doc существует, но процедура создает новый ???
-- буфер пустой, --> пятая команда не работает и на .bmp и на .jpg
   Нужно ли задавать AFormat,AData,APalette значения ???
Остряков прошу не беспокоится

---

Valery779   (2006-09-28 17:35:00) [1]

DevilDevil:
Спасибо огромное!!!

---

DevilDevil   (2006-09-28 16:53:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var  W:variant;
APalette :HPalette;
AFormat:Word;
AData:THandle;
begin
 W:=CreateOleObject('Word.Application');
 W.Visible:=true;
 W.documents.Add(ExtractFileDir(Application.ExeName)+'\templ\file.doc',0);
 W.ActiveDocument.Select;
 Image1.Picture.SaveToClipboardFormat(AFormat,AData,APalette);
 ClipBoard.SetAsHandle(MyFormat,AData); // нашёл в Хелпе
 W.Selection.Paste;
end;

Вот ей-богу, терпеть не могу умников, которые кричат: "гугл в помощь", "учи Английский", "а Хелп посмотреть не судьба?" ...  А вот теперь и сам начал... Только что нашёл в примере к SaveToClipboardFormat...

Не забудь заюзать Clipbrd

---

Наверх