PROCEDURE DrawOnPdf;
VAR pdfDC: hDC;
BEGIN
pdfDC := GetDC(findwindow('adobeacrobat','adobe reader'));
Ellipse(pdfDC, 0, 0, 200, 200);
ReleaseDC(0,pdfDC);
END;
.....
procedure TForm1.Button2Click(Sender: TObject);
begin
drawonpdf;
end;
Рисование поверх pdf
Мне нужно рисовать поверх pdf. Пробую так:
И какую дает ошибку?
Дескриптор окна узнал с помощью
Код:
procedure getwindows(list:tstrings);
var hnd:thandle;
b:array[0..255]of char;
s:string;
begin
hnd:=0;
repeat
zeromemory(@b,sizeof(b));
getwindowtext(hnd,@b,255);
s:=strpas(@b);
if s='' then s:='notext';
zeromemory(@b,sizeof(b));
getclassname(hnd,@b,255);
s:=s+' - ['+strpas(@b)+']';
list.add(s);
hnd:=findwindowex(0,hnd,0,0);
until hnd=0;
end;
var hnd:thandle;
b:array[0..255]of char;
s:string;
begin
hnd:=0;
repeat
zeromemory(@b,sizeof(b));
getwindowtext(hnd,@b,255);
s:=strpas(@b);
if s='' then s:='notext';
zeromemory(@b,sizeof(b));
getclassname(hnd,@b,255);
s:=s+' - ['+strpas(@b)+']';
list.add(s);
hnd:=findwindowex(0,hnd,0,0);
until hnd=0;
end;
Цитата: zhefran
Никакую ошибку он не выдает - нет изображения![/CODE]
И GetDC, и findwindow, и Ellipse вполне способны сообщать об ошибке, только ты это проверять забываешь.
Напиши код норамльно, со всеми проверками, и будешь знать, какая у тебя ошибка.
Код ошибки 0 под Getdc!!! На форме рисует, на десктопе рисует, на Reader не рисует - выдает 0 и не рисует!
скажи, а тебе с какой целью рисовать на Acrobat Reader'е?
Для выяснения конкретной ошибки в случае неудачного завершения прцедуры служит функция GetLastError.
Цитата: Тень Пса
скажи, а тебе с какой целью рисовать на Acrobat Reader'е?
Хочу оставлять комментарии, зачеркивать предложения и т.д (все это делаеться стилусом на Таблетке).
Цитата:
Для выяснения конкретной ошибки в случае неудачного завершения прцедуры служит функция GetLastError.
Ней и пользуюсь!
итог какой должен быть? :)
Цитата: Тень Пса
сохранять обратно в PDF?
Да или каким-то графическим файлом с таким же названием как и pdf-ка.
Если второй вариант, то нужно будет еще создать модуль для проверки комментов, который бы сопоставлял pdf и графический файл.