DLL During run time

[chuckzter]

Guys i need guidance,

I have an xml converter which uses dll to be referenced upon. For testing purposes.
Now, my question is, can i reference a dll file on vb 6.0 during runtime? So that when we try to convert to xml we don't have to stop the program -> recode -> ->start.

Thanks in advance.

[chuckzter]

Set dllname = New SkillsManager

SkillsManager is the name of the DLL file.

How can i make a statement like this during runtime? I mean, how can i execute a statement like this where let's say i'd like to replace skillsmanager with another dll without having to recode again in design view. Given that all the DLLs are referenced.

Thanks.

[chuckzter]

UPDATE:

I search and tried to apply this:

a = "Set dllname = New SkillsManager"
Call ScriptControl1.ExecuteStatement(a)

But i'm getting an error saying, "Class not defined: SkillsManager"

Anybody who could help?
i would greatly appreciate it.

[QVeen72]

Hi,

You can use Late Binding of the objects:

Dim MyObj as Object
Set MyObj = CreateObject(“MyDLL.MyClass”)
MyObj.Myprop = “XYZ Name”
MyObj.MyMethod
 

with above code, You can change MyDll.MyClass, to the Class in dll.
the problem here is, You wont get Intellisense.
More over, you need to check properties and Methods.
If any method/property is not supported by the new dll's class, or you may end up in run time error..

Such a method is used in same Dll's with different version (say Word/Excel).

Regards
Veena

[chuckzter]

Uhm, to clear things up here is the scenario.

I have 100+ DLL files that i need to test.
I need to figure out a way on how to save

"Set dllname = New HRMSSkills.SkillsManager" <- this statement as a string and execute it during runtime. by saying so i can change "HRMSSkills.SkillsManager" unto anything i want meaning i can manipulate the string and change the DLL file that i want to test. Again, during runtime so that i don't need to recode everytime, 100+ times in particular.

Haha, it's very frustrating.

Here's a piece of what i have so far:

Dim dllname As HRMSSkills.SkillsManager

a = "Set dllname = New HRMSSkills.SkillsManager"
Call ScriptControl1.ExecuteStatement(a)

When the Call line is being executed i get the error: "Class not defined: HRMSSkills"

Am i missing something? Do i need to step back and think it over again?

[chuckzter]

Cool, it works now. Thanks.

but i do have another question. How do i get the possible Intellisense and put it unto a variable? An array in particular. That would be my last question.

I.E

HRMSSkills.SkillsManager

SkillsManager can laso be SkillsProvider, etc.

Is there a possiblity that i can get the value of those?

[QVeen72]

Hi,

To get the List of all the members/methods of the DLL.
You can Include the Dll in a New project. and Check the "Object Browser".
Select the dll on the top and Class name from the Left List..
Members and methods for that Class are popluated in the Right List..
This is one easy way out..

Regards
Veena

[chuckzter]

Thanks, i'll try that later. I need to sleep. XD thanks for the reply. I'll post if something goes wrong.

[chuckzter]

Uhm, how do i do this exactly? Sorry, i'm new at this.

[chuckzter]

Ok i think i got it. But what i need is that i want to see those methods during run time. Anybody who can help me?

[chuckzter]

I am getting an error "ActiveX cannot create object" on this line of code

Set dllname = CreateObject(Combo1.Text)

A little help please? I've been stuck with this for days. Thanks.

[QVeen72]

Hi,

You need to use this code:

Dim MyObj As Object
Set MyObj = CreateObject("Access.Application")
 

If you are using a ComboBox, to populate the dll names, then
CreateObject takes "DLLName.ClassName" as argument.
You may get error if you are creating only DLLName as object..

Regards
Veena

[chuckzter]

Thanks! but now i'm getting a new error that says, "File name or classname not found during Automation operation." on this line of code

Output = dllname.GetRecord(InputTextbox.Text)

Where getrecord is a method of HRMSSkills.SkillsManager

Thanks for the reply. You guys are helping me a lot.

[QVeen72]

Hi,

Check how many Arguments does the GetRecord take..
Also post the modified code here...

Regards
Veena

[chuckzter]

Dim dllname As Object

Set dllname = CreateObject(Combo1.Text)

Output = dllname.GetRecord(InputTextbox.Text)

What happens is that when i try to run the program the "GetRecord" class which is located within the DLL isn't recognized or found.


Arguments? I'm not sure about what you mean.
thanks for the quick replies.

[QVeen72]

Hi,

What values are there in Combo1.Text and TextBox...?
I Guess, "GetRecords" must be some Procedure/Function..
Arguments means, Any procedure /function which takes some values...

Regards
Veena

[chuckzter]

Here's the combo1.text of course depending on what you choose but here's a sample.

HRMSSkills.SkillsManager

And for the input text:

<?xml version="1.0" encoding="iso-8859-1" ?>
<Requests>
<Request>
<RequestType>Include</RequestType>
<IncludeString>
<row strEmpNo="1234567" strUserID="1234567" strSessionID="1052866004" strDimension1="" strDimension2="" strJobPosition="" strHomeURL="http://HURISBDC02/HRMS/" strDateFormat="dd mmm yyyy" strNameSpace="D:/Applications/WebRoot/HRMSNS/" blnHdrVisible="True" blnNavVisible="True" />
</IncludeString>
</Request>
<Request>
<RequestType>Skills Classifier</RequestType>
<RequestParameters>
<EmpNo>1234567</EmpNo>
<Dimension1>FGP</Dimension1>
<Dimension2 />
<JobPosition />
</RequestParameters>
</Request>
</Requests>

[QVeen72]

Hi,

InputTextBox has all that...?
It looks like an XML Page..
May be the error is because of that..
You need to pass arguments/call functions as you normally do when calling a procedure..

Regards
Veena

[chuckzter]

Here's the scenario, I have a DLL file now i use it as reference to convert parameters to XML. Now i did some experiments and added the class/modules of that DLL (HRMSSkills.DLL) unto my program It works but when i only use it as reference it throws back an error "File name or Class name not found during Automation operation".

I've been stuck on this task for days now. I need help. Thanks in advance.

[chuckzter]

Our senior programmer fixed the problem. Thanks for all the replies.