Получилось экспортировать функции из crpe32.dll.
Обьявления функций:
1.
2.
3.
4.
5.
6.
7.
PUBLIC function long PEOpenEngine(long ll_engine) library "crpe32.dll" alias for "PEOpenEngine"
PUBLIC function long PEOpenPrintJob(string as_file) library "crpe32.dll" alias for "PEOpenPrintJob"
PUBLIC function long PEOutputToWindow(long al_job, string as_caption, long al_1, long al_2, long al_3, long al_4, long al_5, long al_6) library "crpe32.dll" alias for "PEOutputToWindow"
PUBLIC function long PEOutputToPrinter(long al_job, long al_copy) library "crpe32.dll" alias for "PEOutputToPrinter"
PUBLIC function long PEStartPrintJob(long al_job, long al_wait) library "crpe32.dll" alias for "PEStartPrintJob"
PUBLIC function long PEClosePrintJob(long al_job) library "crpe32.dll" alias for "PEClosePrintJob"
PUBLIC function long PECloseEngine() library "crpe32.dll" alias for "PECloseEngine()"
Код, выполняющийся по клику на кнопке "Показать отчет":
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
long ll_engine, ll_job, ll_output, ll_print
string ls_report
ll_engine = PEOpenEngine(ll_engine)
if ll_engine = 0 then
MessageBox ("Error", "Engine error")
else
MessageBox ("Ok", "Engine start")
end if
ls_report = GetCurrentDirectory()+"\test.rpt"
ll_job = PEOpenPrintJob(ls_report)
if ll_job = 0 then
MessageBox ("Error", "Job error")
else
MessageBox ("Ok", "Job start")
end if
ll_output = PEOutputToWindow(ll_job, "Îò÷åò", 30 , 30 , 200 , 200 , 0 , 0 )
if ll_output = 0 then
MessageBox("Error", "OutputToWindow")
else
MessageBox ("Ok", "OutputToWindow")
end if
ll_print = PEStartPrintJob(ll_job, 1 )
if ll_print = 0 then
MessageBox("Error", "StartPrintJob")
else
MessageBox("Ok", "StartPrintJob")
end if
PEClosePrintJob(ll_job)
PECloseEngine()
В результате выполнения этого кода:
1) Engine Start - OK
2) Job Start - OK
3) OutputToWindow - Error
4) StartPrintJob - Error
5) PowerBuilder Application Execution Error (R0015) - Application terminated. Error: Error calling external function PECloseEngine()
Перед OutputToWindow нужно заполнить некую структуру инфой о подключении к БД.
Нашел такой код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
logoninfo li
li.size = 514
li.servername = SQLCA.ServerName + char( 0 )
li.databasename = SQLCA.Database + char( 0 )
li.userid = SQLCA.LogId + char( 0 )
li.password = SQLCA.LogPass + char( 0 )
rcode = PELogOnServer("P2SSQL.DLL" + char( 0 ), li)
if rcode = 0 then
messagebox ("Ошибка!", "Не могу соедениться с БД.")
else
end if
int ntables
int i
ntables = PEGetNTables(job)
for i = 0 to ntables - 1
PESetNthTableLogOnInfo(job,i,li,True)
next
... далее следует вызов PEOutputToWindow()
Подскажите как мне обьявить эту структуру ? Я так понимаю она должна экспортироваться из crpe32.dll как и другие функции. Помогите !
