Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-27 Thread Massimo Belgrano
have tried in a machine with Crystal report XI installed and not show anythig on machine without crystal report What i have miss? function main() local oCrystal local oReport local oCrViewer local adbf,i aDbf := {} AADD( aDbf, { "FN", "N", 10, 0 } ) AADD( aDbf, { "FN

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-26 Thread Pritpal Bedi
Przemysław Czerpak wrote: > > Fine. I've just added conversion of HVM objects returned by Harbour OLE > server methods to OLE objects. Please check after: >2010-05-26 11:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) > Sorry but I haven't tested it at all. > Yes, it works as expec

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-26 Thread Massimo Belgrano
In xharbour ng has been posted follow example but i not have crystal report 9, can samebody try in harbour? #include "hbxml.ch" #include "vt.ch" function main() // * // FUNCTION MAIN( cRPT ) // * local oCrystal := CreateObject( "CrystalRuntime.Applic

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-26 Thread Pritpal Bedi
Przemysław Czerpak wrote: > > Fine. I've just added conversion of HVM objects returned by Harbour OLE > server methods to OLE objects. Please check after: >2010-05-26 11:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) > Sorry but I haven't tested it at all. > Tests are OK. I have

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-26 Thread Przemysław Czerpak
On Tue, 25 May 2010, Pritpal Bedi wrote: Hi, > >> But the problem is when I am accessing its methods as such: > >> Function Main() > >>Local oGraph, oServer > >>if !( CreateVouch32( @oServer ) ) > >> Return nil > >>endif > >>oGraph := oServer:Vouch32GraphicsServer()/

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-25 Thread Pritpal Bedi
Przemysław Czerpak wrote: > > You should simply use: > >WIN_OleServerInit( CLS_ID, CLS_Name, {|| Vouch32ActiveX():new() } ) > > or because Vouch32ActiveX object does not have any instance variables > to safe some memory and increase a little bit the speed you can use > only one HVM Vouch32

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-25 Thread Przemysław Czerpak
On Tue, 25 May 2010, Pritpal Bedi wrote: Hi, > Below is the converted code which registers itself successfully. > - > #define CLS_Name "Vouch32.Vouch.1" > #define CLS_ID "{1F6C0963-1581-498a-9035-E75A0F546CA5}" > //

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-25 Thread Pritpal Bedi
Przemysław Czerpak wrote: > > I have no idea what exactly IsExportedSymbol() and OleServerSymbols() > does in xHarbour. I can guess but I do not know the exact syntax. > If you want then I can implement in Harbour compatibility layer but > I would have to know xHarbour COM server user API. > Now

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-25 Thread Pritpal Bedi
Hi The error message should be read like it ( just get mixed onto appln screen ) Error BASE/1004 Message not found: VOUCH32ACTIVEX:EVAL Called from __ERRRT_SBASE(0) Called from VOUCH32ACTIVEX:ERROR(0) Called from (b)HBOBJECT(0) Called from VOUCH32ACTIVEX:MSGNOTFOUND(0) Called from (b)EVAL

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-25 Thread Pritpal Bedi
Hello Przemek Below is the converted code which registers itself successfully. - #define CLS_Name "Vouch32.Vouch.1" #define CLS_ID "{1F6C0963-1581-498a-9035-E75A0F546CA5}" //---// PROC

Re: [SPAM] [Harbour] Re: SF.net SVN: harbour-project:[14593] trunk/harbour

2010-05-25 Thread Przemysław Czerpak
On Tue, 25 May 2010, Pritpal Bedi wrote: Hi Pritpal, > Here is my Vouch32 ActiveX Server code compiled with xhb.com: > #pragma BEGINDUMP > #define CLS_Name "Vouch32.Vouch.1" > #define CLS_ID "{1F6C0963-1581-498a-9035-E75A0F546CA5}" > const char *g_RegTable[][3] = > { >//format is {key, valu