Hello friends,

the problem that I describe still occurs. I thing/assume this is a problem with 
racket, because in racket 5.3 the given codesequence with misterx gives the 
same error and in racket 5.2.1 with MisterX there is no problem with this 
Codesequence:

Racket 5.2.1/Misterx:->OK
(require mysterx)
(require mzlib/class)
(define SRV     (cci/progid "WMOBrws.ServerBrowser"))
(define CurServer (com-invoke SRV "TakeCurrentServer"))
(define SESSION  (cci/progid "Session.Test" CurServer))
===========================================================
Racket 5.3/Misterx:->ERROR
ptr-set!: given value does not fit primitive C type
C type: _string/utf-16
given value: #<cpointer>
---
(require mysterx)
(require mzlib/class)
(define SRV     (cci/progid "WMOBrws.ServerBrowser"))
(define CurServer (com-invoke SRV "TakeCurrentServer"))
(define SESSION  (cci/progid "Session.Test" CurServer))
===========================================================
Racket 5.3/ffi/com:->ERROR, same as above
(require ffi/com)
(define SRV (com-create-instance "WMOBrws.ServerBrowser"))
(define CurServer (com-invoke SRV "TakeCurrentServer"))
(define SESSION (com-create-instance "Session.Test" CurServer))

Yours,
____________________
  Racket Users list:
  http://lists.racket-lang.org/users

Reply via email to