SaveToClipBoardFormat

← →
IrviS © (2003-11-11 16:17) [0]

Всем привет!!!
Помогите разобраться. (Создаю на D7 под XP).
Копирую картинку из ресурса ЕХЕ в буфер обм. и вставляю в Ехсеl.
Данный код неработает под win98.

// Copy to CLBRD
APalette:=GetPalette;
bm:=TBitmap.Create;
try
bm.LoadFromResourceName(HInstance, "logo");
bm.SaveToClipBoardFormat(CF_PICTURE,HInstance, APalette);
ClipBoard.SetAsHandle(CF_PICTURE,HInstance);
finally
bm.Free;
end;

// Paste to Excel
Sheet.Range["D1", "I6"].Select;
Sheet.Paste;

← →
kavlad (2003-11-11 16:36) [1]

>bm.SaveToClipBoardFormat(CF_PICTURE,HInstance, APalette);
Delphi syntax: procedure SaveToClipboardFormat(var AFormat: Word; var AData: THandle; var APalette: HPALETTE); override;
Т.е. ты в HInstance запихиваешь хендл от клипборда.

← →
IrviS © (2003-11-11 16:56) [2]

Это к чему ???

Clipboard.Assign(bm);

З.Ы.
ClipBoard.SetAsHandle в качестве второго параметра принимает дескриптор блока данных (GlobalLock etc), а ты передаешь Intstance своего процесса

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