ActiveX DLL...How to...???

[JerryKreischer]

I have an ActiveX DLL that I need for a specialized App that will reset the date/time of the client's machine - wriiten in VB6...
I have 1 public property -

Private mvarClientDate As Variant

Public Property Let ClientDate(ByVal vData As Variant)
mvarClientDate = vData
End Property

Public Property Get ClientDate() As Variant
ClientDate = mvarClientDate
End Property


I have a module that contains a 'Sub Main()'

Public Sub Main()
Dim cls As New ClientTime
On Error Resume Next
If IsDate(cls.ClientDate) Then
Date = Format(cls.ClientDate, "MM/DD/YYYY&quot
Time = Format(cls.ClientDate, "HH:MM:SS&quot
Else
MsgBox "Could not set date/time..."
End If
End Sub



I also have the OBJECT info re: the control defined in my page:

function CreateTimeClient() {
document.write(' <OBJECT ID=&quot;TimeClient&quot; CLASSID=&quot;CLSID:xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx&quot;\n');
document.write(' TYPE = &quot;application/x-oleobject&quot;\n');
document.write(' CODEBASE=&quot;

http://WWW.XXXXX.com/TimeClient.CAB#version=1,0,0,0&quot;>;\n');

document.write('<param name=ClientDate value=&quot;01/01/2004 06:00:00 AM&quot; />');
document.write(' </OBJECT>\n');
}


When I execute this, the param (ClientDate) is not being passed to the DLL (I have used other MSGBOXs to verify this)...


Does anyone know what I'm missing??? Do I somehow have to 'Get' the param value?? How??

Thanx in advance
Jerry

 

[zemp]

Sounds like your

IsDate

function is not recognizing its argument as a value that can be converted to a date. You might have to do some formatting on the value while it is in the dll to ensure that it can be converted to a date.

You can place the line,

Debug.Print cls.ClientDate

before the

IsDate

function to see exactly what is being returned and make adjustments accordingly.

Take Care,

zemp

&quot;If the grass looks greener... it's probably because there is more manure.&quot;

 

[JerryKreischer]

Sorry...I also tried using different MsgBox's to display the ClientDate before the 'IsDate' test, and it always showed up empty...

I keep thinking there must be a way of 'Get'ing or 'Read'ing the params from the HTML...They don't seem to be passed to the DLL automatically...

Thanx
Jerry

 

[zemp]

You have the date in the dll set up as a property and not a parameter. I think you have to look into how to set a property or change it to a parameter. Whichever is easier.

Take Care,

zemp

&quot;If the grass looks greener... it's probably because there is more manure.&quot;

 

[JerryKreischer]

Zemp...

That's the reason for the question...How to get the param passed into the DLL...

Jerry

 

[zemp]

Something along the lines of

cls.Clientdate = ??

Then you need to have your dll code run on the value .



Take Care,

zemp

&quot;If the grass looks greener... it's probably because there is more manure.&quot;

 

[boflexson]

I am having a similiar problem, ever figure this out?

 

[JerryKreischer]

No...I never was able to figure it out. I wound up writing a Browser Helper Object (BHO) that did what I needed.

Sorry...

Jerry