[racket] mysterx-mzlib<->ffi/com

From: murat demirtas (heraklea at gmx.de)
Date: Fri Aug 24 11:19:33 EDT 2012

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,

Posted on the users mailing list.