OS(1)= Windows 5.00------ Description: the name and version number OS(5)= 2195-------------- Description: build number OS(6)= 2----------------- Description: the operating system platform. OS(7)= Service Pack 4---- Description: Service PackHere is my code:
PUBLIC oService as CIAEA OF MAIN.PRG m.oService=CREATEOBJECT("CIAEA", ; IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName)),FULLPATH("")), ; IIF(_vfp.StartMode>0,ADDBS(JUSTPATH(_vfp.ServerName))+"data\",FULLPATH("")+"data\") ; ) READ EVENTS DEFINE CLASS CIAEA as Form FUNCTION DeliverService(lpnWhich as Integer) LOCAL llReturn as Logical m.llReturn = .t. DO CASE CASE m.lpnWhich = 1 && Print bills * Code omited TRY this.poJPGListener.targetfilename = m.lcFileName this.poJPGListener.ListenerType=2 REPORT FORM rptbill1.frx OBJECT this.poJPGListener && It goes wrong here IF FILE(m.lcFileName) ; THEN && do something ELSE THROW "Bill not created" ENDIF CATCH TO loE this.LogError() m.llReturn = .f. ENDTRY ENDCASE RETURN m.llReturn ENDFUNC && DeliverService ENDDEFINE && CIAEA
"Do not let any unwholesome talk come out of your mouths,
but only what is helpful for building others up according to their needs,
that it may benefit those who listen."
- Ephesians 4:29-30 NIV
Dare to Question -- Care to Answer
Time is like water in a sponge, as long as you are willing you can always squeeze some.
--Lu Xun, Father of Modern Chinese Literature