How to import VB Dll into VC++ Program and How to use functions from VB dll??

CPallini

That's explicit DLL loading. You should mention also the implicit one. :)

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler. -- Alfonso the Wise, 13th Century King of Castile.
This is going on my arrogant assumptions. You may have a superb reason why I'm completely wrong. -- Iain Clarke
[My articles]

Hamid Taebi

I think he wants to load dlls on the c++. :)

savitri

Hii Thanks for replying..I am having one DLL in VB for my project Concern. But i dont how to import DLL's in VC++.When i am doing like that what i mentioned in last message it is not possible to get functions from dll. So please will you tell me how can i get the functions from the VB dll to vc program. Please help me out I am trying from two days but i am not getting solution please tell me..I am using loadlibrary and getprocaddress like this: typedef BOOL (WINAPI* ptr_func1)(BSTR* bstr,BSTR* bstr1,BSTR* bstr2,BSTR* bstr3,BSTR* bstr4); ptr_func1 ProcessingInformation = NULL; HINSTANCE hLib; hLib = LoadLibrary(_T("C:\\Program Files\\Microsoft Visual Studio\\My Projects\\BoolDate\\SampleDll.dll")); if (hLib == NULL) { MessageBox(_T("Unable to load .dll"), NULL, MB_ICONERROR); } else { ProcessingInformation = (ptr_func1)GetProcAddress(hLib, _T("ProcessingInformation")); CString str; BSTR server,usr,pwd,Temp,Temp3; BOOL bstr; Temp=SysAllocString(L"21\8\2008"); str=Temp; MessageBox(str); Temp3=SysAllocString(L"21\7\2008"); str=Temp3; MessageBox(str); server=SysAllocString(L"savitri"); str=server; MessageBox(str); usr=SysAllocString(L"root"); str=usr; MessageBox(str); pwd=SysAllocString(L"base"); str=pwd; MessageBox(str); /* The actual call to the function contained in the dll */ bstr = ProcessingInformation(&Temp,&Temp3,&server,&usr,&pwd); MessageBox("Gettting BSTR Value"); str.Format("%d",bstr); MessageBox(str); SysFreeString(Temp); SysFreeString(Temp3); SysFreeString(server); SysFreeString(usr); SysFreeString(pwd); /* Release the Dll */ FreeLibrary(hLib); } Please tell me what is wrong with this code.Now i am not getting any errors in compiling time but in run time i am one error message box like send error and don't send.. Please Help me.I need your help very much. Thanks In Advance, Savitri

CPallini

Hamid. wrote:

I think he wants to load dlls on the c++

That's true. Anyway, you know, there are two ways to do it (and implicit DLL load is the load-time linking with the DLL). [added] Well, maybe I got you: for a VB DLL you haven't neither the .lib nor the the .h file needed to compiler your project for implicit loading (and I don't remember if #import directive may help). [/added] :)

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler. -- Alfonso the Wise, 13th Century King of Castile.
This is going on my arrogant assumptions. You may have a superb reason why I'm completely wrong. -- Iain Clarke
[My articles]

modified on Friday, August 22, 2008 6:40 AM

_AnsHUMAN_

Does the DLL load successfully? Also did you check that functions that you are calling are exported from the DLL BTW on which line do you encounter the crash

Somethings seem HARD to do, until we know how to do them. ;-)_AnShUmAn_

CPallini

Did you try to debug? At what line the error occurs? Do you have the source of the VB DLL?

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler. -- Alfonso the Wise, 13th Century King of Castile.
This is going on my arrogant assumptions. You may have a superb reason why I'm completely wrong. -- Iain Clarke
[My articles]

SandipG

savitri wrote:

but in run time i am one error message box like send error and don't send..

This error means your application is crashing.. did you verify that you are getting proper value for

savitri wrote:

ProcessingInformation = (ptr_func1)GetProcAddress(hLib,

Regards, Sandip.

savitri

Hii I am getting error when the cursor is on the function called..ya i am having vb Dll code of 5 line..it is test dll..so i am testing whether vb dll can i insert properly or not in vc program.please tell me how come out from this problem. Please give me some suggetions.please help me out. Thanks IN ADVANCE, Savitri

savitri

Hii Ya it is loading dll properly because it is not giving error..i am checking conditions also.I send that part of code in last message please tell me what is wrong with my code.I am getting tension. Please give me some suggetions.please help me out. Thanks IN ADVANCE, Savitri:confused:

CPallini

Could you please post your VB DLL code?

If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler. -- Alfonso the Wise, 13th Century King of Castile.
This is going on my arrogant assumptions. You may have a superb reason why I'm completely wrong. -- Iain Clarke
[My articles]

Hamid Taebi · modified on Friday, August 22, 2008 6:40 AM

Except this, use of windows api's on other languages is difficult c++.

SandipG

I dont know much about VB But i think the function you exporting should be defined in Class Module. are you doing that. You can open your dll in "Dependency walker" and check if you can see your function there.

Regards, Sandip.

SandipG

Hi I just checked by creating ActiveXDLL project in VB. I don't think you can use it using LoadLibrary(). You have to use

   #import "YourDll.dll" no\_namespace

Sample Code:

CoInitialize(NULL);
\_Class1Ptr class1; // Class1 is name of your class module
class1.CreateInstance(\_\_uuidof(Class1));
short i=10,k=20;
int ans = class1->add(&i,&k);
class1.Release();
CoUninitialize();

It works properly. I hope it helps

Regards, Sandip.

modified on Friday, August 22, 2008 8:11 AM

savitri

Hii Sandip, Ya when returning value from dll it is in -VE so it is giving error. I am not getting what is wrong with my program. please tell me. My code is like this: typedef BOOL (WINAPI* ptr_func1)(BSTR* bstr,BSTR* bstr1,BSTR* bstr2,BSTR* bstr3,BSTR* bstr4); ptr_func1 ProcessingInformation = NULL; HINSTANCE hLib; hLib = LoadLibrary(_T("C:\\Program Files\\Microsoft Visual Studio\\My Projects\\BoolDate\\SampleDll.dll")); if (hLib == NULL) { MessageBox(_T("Unable to load .dll"), NULL, MB_ICONERROR); } else { ProcessingInformation = (ptr_func1)GetProcAddress(hLib, _T("ProcessingInformation")); CString str; BSTR server,usr,pwd,Temp,Temp3; BOOL bstr; Temp=SysAllocString(L"21\8\2008"); str=Temp; MessageBox(str); Temp3=SysAllocString(L"21\7\2008"); str=Temp3; MessageBox(str); server=SysAllocString(L"savitri"); str=server; MessageBox(str); usr=SysAllocString(L"root"); str=usr; MessageBox(str); pwd=SysAllocString(L"base"); str=pwd; MessageBox(str); //bstr=TRUE; /*bstr=m_UserControl1.Processattendacne(&Temp,&Temp3,&server,&usr,&pwd); str.Format("%d",bstr); MessageBox(str);*/ m_Edit1="savitri"; m_Edit2="Base"; MessageBox("Gettting Value"); /* The actual call to the function contained in the dll */ bstr = ProcessingInformation(&Temp,&Temp3,&server,&usr,&pwd); MessageBox("Gettting BSTR Value"); str.Format("%d",bstr); MessageBox(str); SysFreeString(Temp); SysFreeString(Temp3); SysFreeString(server); SysFreeString(usr); SysFreeString(pwd); /* Release the Dll */ FreeLibrary(hLib); please help me out. Thanks in advance, Savitri

savitri

Hii, My VB Code: Public Function ProcessingInformation(Date1 As String, Date2 As String, ServerName As String, Username As String, Password As String) As Boolean If Date1 <> "" Then ProcessingInformation = True Else ProcessingInformation = False End If End Function this is dll called SampleDll and module FunctionClass please tell me how to use this dll in VC++..please this is very fewer for me. Thanks in advance, Savitri

SandipG

Did you check my post above Import[^] I think you cant use LoadLibrary(). I have given sample code in post above.

Regards, Sandip.

savitri · modified on Friday, August 22, 2008 8:11 AM

Hi Sandip, I used like this but i am getting errors..I am writting like this: ::CoInitialize(NULL); //note this change after taking out the no_namespace macro //if there is no namespace then also the progid has to be __uuidof(VbDll::CVbDll) like this SampleDll::_FunctionClass sample; HRESULT hr=sample.CreateInstance(__uuidof(SampleDll::_FunctionClass)); //here the progid is VbDll::CVbDll) //not just CVbDll //sample.AddRef(); BSTR server,usr,pwd,Temp,Temp3; BOOL bstr; Temp=SysAllocString(L"21\8\2008"); str=Temp; MessageBox(str); Temp3=SysAllocString(L"21\7\2008"); str=Temp3; MessageBox(str); server=SysAllocString(L"savitri"); str=server; MessageBox(str); usr=SysAllocString(L"root"); str=usr; MessageBox(str); pwd=SysAllocString(L"base"); str=pwd; MessageBox(str); BOOL bstrMyString;//=TRUE; //check for the instance bstrMyString=sample.ProcessingInformation(&Temp,&Temp3,&server,&usr,&pwd); str.Format("%d\n", bstrMyString); MessageBox(str, "MyString aus VB", MB_OK); sample.Release(); ::CoUninitialize(); It is giving errors... 1. C:\Program Files\Microsoft Visual Studio\My Projects\UseVbDll\UseVbDllDlg.cpp(194) : error C2259: '_FunctionClass' : cannot instantiate abstract class due to following members: c:\program files\microsoft visual studio\my projects\usevbdll\debug\sampledll.tlh(34) : see declaration of '_FunctionClass' 2.C:\Program Files\Microsoft Visual Studio\My Projects\UseVbDll\UseVbDllDlg.cpp(194) : error C2259: '_FunctionClass' : cannot instantiate abstract class due to following members: c:\program files\microsoft visual studio\my projects\usevbdll\debug\sampledll.tlh(34) : see declaration of '_FunctionClass' 3.C:\Program Files\Microsoft Visual Studio\My Projects\UseVbDll\UseVbDllDlg.cpp(195) : error C2039: 'CreateInstance' : is not a member of '_FunctionClass' c:\program files\microsoft visual studio\my projects\usevbdll\debug\sampledll.tlh(34) : see declaration of '_FunctionClass' My Dll is like this // c:\program files\microsoft visual studio\my projects\usevbdll\debug\SampleDll.tlh // // C++ source equivalent of Win32 type library C:\Program Files\Microsoft Visual Studio\My Projects\BoolDate\SampleDll.dll // compiler-generated file created 08/22/08 at 17:31:22 - DO NOT EDIT! #pragma once #pragma pack(push, 8) #include namespace SampleDll { struct __declspec(uuid("a3105692-d6d7-41e0-8d8c-f4ab326fa2f4")) /* dual interface */ _FunctionClass; struct /*

SandipG

savitri wrote:

HRESULT hr=sample.CreateInstance(__uuidof(SampleDll::_FunctionClass)); //here the progid is VbDll::CVbDll)

Dont pass _FunctinClass use SampleDll::FunctionClass. Also You are using SampleDll::_FunctionClass sample; Here you need use SampleDll::_FunctionClassPtr sample; Just check my post again. BTW Use Code block button below posting area for code blocks it is very difficult to read your code otherwise.

Regards, Sandip.

modified on Friday, August 22, 2008 8:17 AM

savitri

Hii.. I am doing as you told me in previous post.please check your mail once or check my reply to your post import.please tell me thanks, savitri

SandipG

Please follow the same thread above. I have replied to you pointing out the errors. Please check.

Regards, Sandip.