Making ActiveX Control's Event of string return value problem

[khann]

Hi.
Recently I'm testing ActiveX Control.
My friend gave me an OCX made by himself.
He said that he made this with Visual Studio 6.

The OCX has two buttons and each has its own Click Event.
When the button clicked the Event returns just short strings for testing Event.
I registerd this OCX on the ODCL Form and coded that button click Event in my testing LISP file.

At the OCX Control Browser shows the Syntex of Event like this :

(defun c:Test_form_OCX_OnPortClose (sMsg [as String] /))

And I coded as this.

(defun c:Test_form_OCX_OnPortClose (sMsg / )
    (alert sMsg)
)

But It runs the function just come through with "sMsg" arg as nil, though it has "Button Clicked" value.

I don't know exactly how the OCX made.
My friend and I checked the Data Type of ODCL and making OCX environment but we could not find the answer.

Hope someone give me a hand for this problem.
Thanks.

[owenwengerd]

What is the VARTYPE of the argument that the control sends to the event? It's difficult to guess at the cause without the control and sample code to test it.

[khann]

Thank you for your reply.

I've tested several times but still getting nil string value.
attatching the TEST OCX and lisp code.

Any help would be appreciated.
Thanks.

[owenwengerd]

This was due to a bug in OpenDCL (missing quotation marks around the string argument). The bug is now fixed for the next build.

[khann]

So it was.
Just tested with 6.0.0.27 still returning nil.
Need to check the next build.

Thanks.