Вниз
Скачать: CL | DM;

Проблема с копированием в буфер обмена рисунка   Найти похожие ветки 

 
Олег Пономарев   (2004-07-29 09:14) [0]

Доброго дня!

Возникла такая проблемка. Вот кусок кода:
var
 Graf: TPicture;
 ClipBoard: TClipboard;
 MyFormat : Word;
 AData,APalette : THandle;

begin
ClipBoard:=TClipBoard.Create;
ClipBoard.Open;
Graf.SaveToClipboardFormat(MyFormat,AData,APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
Clipboard.Close;
ClipBoard.Free;
end

Перед этим я копирую в Graf рисунок jpeg формата (другого формата не придвидется), а затем выше приведенным кодом в буфер. Если открыть какой нибудь графический редактор или что-то из пакета майкрософт офиса, то рисунок вставляется без проблемы. А вот если создать письмо из оутлука или мозиллы, то они показывают, что буфер пуст. Хотя если вставленный рисунок в редакторах повторно скопировать в буфер, то в почтовики он вставляется.

Кто подскажет, почему он сразу не вставляется в почтовики? Что надо для этого сделать?

С уважением, Олег Пономарев.


 
Palladin ©   (2004-07-29 09:17) [1]

Не нужно создавать clipboard. Он уже создан.


 
Олег Пономарев   (2004-07-29 09:27) [2]

Убрал Create, так сразу "Общее нарушение защиты в памяти...". Хотя вряд ли это решит проблему с рисунком :).


 
Palladin ©   (2004-07-29 13:53) [3]

Вообще говоря Clipboard это функция в модуле clipbrd которая возвращает объект TClipboard. Тебе не нужно ничего подобного создавать. Или уж если создаешь то пользуйся SetClipboard... а по поводу картинок то достаточно взглянуть в конец модуля clipbrd и понять чего не хватает для полного щастя...


 
Олег Пономарев   (2004-07-29 15:28) [4]

Разобрался, все заработало как ты сказал, спасибо.

Теперь осталось выяснить, почему в оутлук не вставляется рисунок, а в ворд вставляется?



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c
4-1088751282
Rain
2004-07-02 10:54
2004.08.15
Почему это не работает?


4-1089143996
Шубин С.
2004-07-06 23:59
2004.08.15
Прав тот, у кого больше прав...


3-1089877633
just
2004-07-15 11:47
2004.08.15
MS SQL + ADO


14-1090481423
CHES
2004-07-22 11:30
2004.08.15
пример использования интерфейсов


8-1085138881
Denis56
2004-05-21 15:28
2004.08.15
Как узнать цвет под мышкой?




   Наверх