SaveToClipboardFormat

← →
Valery779 © (2006-09-28 15:38) [0]

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 значения ???
Остряков прошу не беспокоится

← →
DevilDevil © (2006-09-28 16:53) [1]

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

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

SaveToClipboardFormat Найти похожие ветки