於Delphi中製的DLL如何給VB使用?? |
答題得分者是:ddy
|
jeffreck
高階會員 發表:247 回覆:340 積分:197 註冊:2003-01-23 發送簡訊給我 |
各位前輩請教一下:
於Delphi中製的DLL如何給VB使用??
我有下載00017869_dllDemo
但是於VB6用[設定使用項目]-->按瀏覽-->選擇DLL
出現錯誤[無法引用所指定的檔]
設問要如何修改才可以使用??
還是不能用[設定使用項目]??要用WinAPI方試?? 我有找相關的資料但都不是我要的 非常非常的謝謝你,因為有你這世界變的更美好 ☆ ^_^ ☆
°∴°﹒☆°.﹒‧°∴°﹒°.﹒‧°∴°﹒
﹒‧°∴°﹒☆°.﹒‧°∴°﹒°.﹒‧°∴°﹒﹒‧°∴°﹒☆°.
|
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
您的方法錯誤了
vb6 裡[設定使用項目]-->按瀏覽-->選擇DLL
它是指"ActiveX DLL" 二個方向
一、用Delphi 開發ActiveX DLL,如上的方法使用
二、dllDemo 那種dll 你要在vb 裡…像是宣告API 的方式引用
例:
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long Declare Function CheckMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDCheckItem As Long, ByVal wCheck As Long) As Long Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long |
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
|
jeffreck
高階會員 發表:247 回覆:340 積分:197 註冊:2003-01-23 發送簡訊給我 |
引言: 您的方法錯誤了 vb6 裡[設定使用項目]-->按瀏覽-->選擇DLL 它是指"ActiveX DLL" 二個方向 一、用Delphi 開發ActiveX DLL,如上的方法使用 二、dllDemo 那種dll 你要在vb 裡…像是宣告API 的方式引用 例:謝謝 ddy 版主,回覆速度真快!! 原來如此,我知道了 但再請教一下: 1.那Dll檔要放在那才可以,可以動態指定目錄嗎 如我要指定 系統目錄\Dll\abc.dll 2.有何方法可以先檢是是否有裝這個DLL?? 非常非常的謝謝你,因為有你這世界變的更美好 ☆ ^_^ ☆ °∴°﹒☆°.﹒‧°∴°﹒°.﹒‧°∴°﹒ ﹒‧°∴°﹒☆°.﹒‧°∴°﹒°.﹒‧°∴°﹒﹒‧°∴°﹒☆°.Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long Declare Function CheckMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDCheckItem As Long, ByVal wCheck As Long) As Long Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long |
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
|
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
引言: 1.那Dll檔要放在那才可以,可以動態指定目錄嗎 如我要指定 系統目錄\Dll\abc.dll 2.有何方法可以先檢是是否有裝這個DLL??1、dll 放那裡都行一般來說…放在System 目錄或是主程式目錄,都能找得到 2、你仍是能指定dll 應在何處,或是檢查dll 是否存在 我第二次po 的範例link 那是我已測試過的 裡面有個function ,檢查dll 是否存在所指定位置 Sub CheckDllIsInPath() If FileExists("\windows\system\dsort32a.dll") = False Then _ If FileExists("\windows\dsort32a.dll") = False Then _ MsgBox ("Put DSORT32A.DLL in C:\WINDOWS") End Sub< src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217"> |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |