Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Падает на TPrinter.BeginDoc   Найти похожие ветки 

 
@!!ex ©   (2010-03-04 14:08) [0]

Есть dll, в ней экспортится функция
Procedure Print(); stdcall;
begin
 MyPrinter := TPrinter.Create();

 OffsetY := Round(MyPrinter.PageHeight * 0.05);
 CenterX := MyPrinter.PageWidth div 2;

 OffsetX1 := Round(MyPrinter.PageWidth * 0.1);
 OffsetX2 := Round(MyPrinter.PageWidth * 0.35);
 OffsetX3 := Round(MyPrinter.PageWidth * 0.4);

 MyPrinter.Canvas.Font.Height := 24;
 MyPrinter.Canvas.Font.Name := "Times New Roman";

 MyPrinter.BeginDoc();
...
end;

В тестовом примере с приложением на Delphi - все норм отрабатывает.
При вызове из С++ теста или из другой dll - валится с AV на BeginDoc();

В чем может быть проблема?


 
Sapersky   (2010-03-04 14:41) [1]

В модуле Printers принято использовать объект-синглтон (или как он правильно  называется), возвращаемый функцией Printer, а не создавать свой объект.
Иначе получаем:

procedure TPrinter.BeginDoc;
begin
<...>
 SetAbortProc(DC, AbortProc);
<...>
end;

function AbortProc(Prn: HDC; Error: Integer): Bool; stdcall;
begin
 Application.ProcessMessages;
 Result := not FPrinter.Aborted; // FPrinter не создан, AV
end;


 
@!!ex ©   (2010-03-04 15:08) [2]

Точно! То что нужно! Все заработало. Спасибо.



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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
2-1267482788
spec2005
2010-03-02 01:33
2010.08.27
Помогите разобраться с прозедурой


15-1270759152
Nickola2
2010-04-09 00:39
2010.08.27
Борьба с рекламными баннерами не увенчалась успехом


4-1226752749
VolMyr
2008-11-15 15:39
2010.08.27
хук на интернет адрес


2-1269581230
Игорь Р.
2010-03-26 08:27
2010.08.27
Opera и Delphi


15-1263720611
TUser
2010-01-17 12:30
2010.08.27
Книги (самовывоз)