vb呼叫dll如何傳遞字串指標-有解無憂

在c++撰寫的dll頭檔案中，函式定義如下

int EXPORT_API usb_relay_device_open_with_serial_number(const char *serial_number,unsigned len);
/*open device that serial number is serial number*/
/*return:This funcation return a valid handle to the device on success or NULL on failure*/
/**eg:usb_relay_device_open_with_serial_number("abcde",5")*/

在vb中嘗試以下幾種方式撰寫程式（設備序列號為“QAAMZ”）
1、直接傳遞字串
宣告：
private declare function usb_relay_device_open_with_serial_number Lib“xx路徑”（byval SerNum as string，byval lenth as long）as long
呼叫
dim return as long
return=usb_relay_device_open_with_serial_number（“QAAMZ”，5）
2、傳遞指標
宣告中 byval SerNum as long
其中sernum為序列號陣列首字符的指標地址

但都出現“DLL呼叫約定錯誤”的提示。

求教~

ps：這個問題的前置提問：https://bbs.csdn.net/topics/392563831
已經解決了利用dll獲得設備序列號的問題。

uj5u.com熱心網友回復：

改一下宣告，C里面傳入指標的引數，VB里面用byref傳入，型別為any
private declare function usb_relay_device_open_with_serial_number Lib“xx路徑”（byref SerNum as any，byval lenth as long）as long

接下來，C的char 其實就是位元組陣列。把VB的string轉換成位元組陣列

dim a() as byte
a = strconv("1234abcd" ,vbfromunicode)

最后，把陣列的第一個元素傳遞進去，其實DLL那邊獲得的就是這個陣列在記憶體里的起始地址。也就是這個陣列的指標。
dim return as long
return=usb_relay_device_open_with_serial_number（a(0) ，ubound(a)+1）

uj5u.com熱心網友回復：

參考 1 樓脆皮大雪糕的回復:

改一下宣告，C里面傳入指標的引數，VB里面用byref傳入，型別為any
private declare function usb_relay_device_open_with_serial_number Lib“xx路徑”（byref SerNum as any，byval lenth as long）as long

接下來，C的char 其實就是位元組陣列。把VB的string轉換成位元組陣列

dim a() as byte
a = strconv("1234abcd" ,vbfromunicode)

最后，把陣列的第一個元素傳遞進去，其實DLL那邊獲得的就是這個陣列在記憶體里的起始地址。也就是這個陣列的指標。
dim return as long
return=usb_relay_device_open_with_serial_number（a(0) ，ubound(a)+1）

大神，還是不行，還是報dll呼叫約定錯誤。這個方法我之前也試過了，會不會除了傳遞指標那里，其他地方有我沒注意到的錯誤。

uj5u.com熱心網友回復：

vc的dll中需要把呼叫模式設為_stdcall才能讓vb呼叫
比如函式：
void add (int a ,int b)
就無法在VB中呼叫
要改為:
void add _stdcall (int a ,int b)

轉自:
https://bbs.csdn.net/topics/350190581
第2樓;

uj5u.com熱心網友回復：

參考 3 樓 milaoshu1020的回復:

vc的dll中需要把呼叫模式設為_stdcall才能讓vb呼叫
比如函式：
void add (int a ,int b)
就無法在VB中呼叫
要改為:
void add _stdcall (int a ,int b)

轉自:
https://bbs.csdn.net/topics/350190581
第2樓;

我沒看過dll里面的代碼。不過之前有兩個函式已經運行成了，是不是應該是stdcall的？

uj5u.com熱心網友回復：

參考 4 樓 assummerflower 的回復:

Quote: 參考 3 樓 milaoshu1020的回復:
vc的dll中需要把呼叫模式設為_stdcall才能讓vb呼叫
比如函式：
void add (int a ,int b)
就無法在VB中呼叫
要改為:
void add _stdcall (int a ,int b)

轉自:
https://bbs.csdn.net/topics/350190581
第2樓;

我沒看過dll里面的代碼。不過之前有兩個函式已經運行成了，是不是應該是stdcall的？

參考成的函式宣告是什么樣子的?

uj5u.com熱心網友回復：

參考 5 樓 milaoshu1020的回復:

Quote: 參考 4 樓 assummerflower 的回復:

Quote: 參考 3 樓 milaoshu1020的回復:
vc的dll中需要把呼叫模式設為_stdcall才能讓vb呼叫
比如函式：
void add (int a ,int b)
就無法在VB中呼叫
要改為:
void add _stdcall (int a ,int b)

轉自:
https://bbs.csdn.net/topics/350190581
第2樓;

我沒看過dll里面的代碼。不過之前有兩個函式已經運行成了，是不是應該是stdcall的？

參考成的函式宣告是什么樣子的?

參考成了兩個函式。
1,初始化函式
在dll頭檔案中宣告為：
int EXPORT_API usb_relay_init(void)
/*init the usb relay library
return 0 on success and-1 on failure*/
在vb中宣告為
private declare function usb_relay_init lib."路徑"（）as long
2,第二個函式是掃描設備資訊的，在另一個帖子里大神您回復過我，按照您的方法解決了。

ps:如果要修改dll為stdcall方式，應該怎么修改，現在有.cpp、.h、.lib、.dll好幾個檔案，應該改哪個？

uj5u.com熱心網友回復：

.cpp、.h 是源代碼檔案;
試試修改 .cpp、.h(再匯出的函式名稱前邊加上_stdcall);
比如:
int _stdcall EXPORT_API usb_relay_device_open_with_serial_number(const char *serial_number,unsigned len);
.lib、.dll 是編譯生成的檔案,.dll是vb6實際用到的檔案;

因為我沒有測驗過,僅僅是看別人這么說的,所以也不太確定這個方法能達到效果;
你可以試一試,不行再想其它的辦法;

uj5u.com熱心網友回復：

要被VB呼叫的函式都要用stdcall

uj5u.com熱心網友回復：

stdcall的呼叫約定意味著：引數從右向左壓入堆疊，被呼叫函式自身修改堆疊
cdecl呼叫約定的引數壓堆疊順序是和stdcall是一樣的，引數首先由有向左壓入堆疊。所不同的是，被呼叫函式本身不清理堆疊，呼叫者負責清理堆疊。
VB的呼叫方式是不自行清理堆疊的，其實WINDOWS API函式基本上都是stdcall。

_cdecl是C和C＋＋程式的預設呼叫方式。
當我們遇到這樣的函式如fprintf()它的引數是可變的，不定長的，被呼叫者事先無法知道引數的長度，事后的清除作業也無法正常的進行，因此，這種情況我們只能使用cdecl。

uj5u.com熱心網友回復：

參考 8 樓脆皮大雪糕的回復:

要被VB呼叫的函式都要用stdcall

我不知道我的是不是stdcall，也不知道在哪里改…求指導啊

uj5u.com熱心網友回復：

參考 7 樓 milaoshu1020的回復:

.cpp、.h 是源代碼檔案;
試試修改 .cpp、.h(再匯出的函式名稱前邊加上_stdcall);
比如:
int _stdcall EXPORT_API usb_relay_device_open_with_serial_number(const char *serial_number,unsigned len);
.lib、.dll 是編譯生成的檔案,.dll是vb6實際用到的檔案;

因為我沒有測驗過,僅僅是看別人這么說的,所以也不太確定這個方法能達到效果;
你可以試一試,不行再想其它的辦法;

沒什么變化。
vb只用到了dll，dll沒有改動，程式也就沒有變化了。

uj5u.com熱心網友回復：

參考 11 樓 assummerflower 的回復:

Quote: 參考 7 樓 milaoshu1020的回復:
.cpp、.h 是源代碼檔案;
試試修改 .cpp、.h(再匯出的函式名稱前邊加上_stdcall);
比如:
int _stdcall EXPORT_API usb_relay_device_open_with_serial_number(const char *serial_number,unsigned len);
.lib、.dll 是編譯生成的檔案,.dll是vb6實際用到的檔案;

因為我沒有測驗過,僅僅是看別人這么說的,所以也不太確定這個方法能達到效果;
你可以試一試,不行再想其它的辦法;

沒什么變化。
vb只用到了dll，dll沒有改動，程式也就沒有變化了。

需要編譯源代碼為DLL;
就像VB6的生成EXE/DLL/OCX一樣;

uj5u.com熱心網友回復：

參考 10 樓 assummerflower 的回復:

Quote: 參考 8 樓脆皮大雪糕的回復:
要被VB呼叫的函式都要用stdcall

我不知道我的是不是stdcall，也不知道在哪里改…求指導啊

要看DLL的源代碼，找到函式的宣告，確認是否有宣告 stdcall呼叫，如果沒有則需要修改，修改以后要重新編譯。

uj5u.com熱心網友回復：

參考 13 樓脆皮大雪糕的回復:

Quote: 參考 10 樓 assummerflower 的回復:

Quote: 參考 8 樓脆皮大雪糕的回復:
要被VB呼叫的函式都要用stdcall

我不知道我的是不是stdcall，也不知道在哪里改…求指導啊

要看DLL的源代碼，找到函式的宣告，確認是否有宣告 stdcall呼叫，如果沒有則需要修改，修改以后要重新編譯。

哪個是源代碼？用什么軟體編譯？我這有廠家給的.dll，.h和.lab

uj5u.com熱心網友回復：

參考 14 樓 assummerflower 的回復:

Quote: 參考 13 樓脆皮大雪糕的回復:
Quote: 參考 10 樓 assummerflower 的回復:

Quote: 參考 8 樓脆皮大雪糕的回復:
要被VB呼叫的函式都要用stdcall

我不知道我的是不是stdcall，也不知道在哪里改…求指導啊

要看DLL的源代碼，找到函式的宣告，確認是否有宣告 stdcall呼叫，如果沒有則需要修改，修改以后要重新編譯。

哪個是源代碼？用什么軟體編譯？我這有廠家給的.dll，.h和.lab

廠家說沒說是否支持VB6呼叫?
廠家試驗過,能用VB6呼叫嗎?
是否可以讓廠家給你個VB6呼叫的例子?

uj5u.com熱心網友回復：

商家轉賣的一個小東西，聯系不到廠家…

uj5u.com熱心網友回復：

參考 15 樓 milaoshu1020的回復:

Quote: 參考 14 樓 assummerflower 的回復:

Quote: 參考 13 樓脆皮大雪糕的回復:
Quote: 參考 10 樓 assummerflower 的回復:

Quote: 參考 8 樓脆皮大雪糕的回復:
要被VB呼叫的函式都要用stdcall

我不知道我的是不是stdcall，也不知道在哪里改…求指導啊

要看DLL的源代碼，找到函式的宣告，確認是否有宣告 stdcall呼叫，如果沒有則需要修改，修改以后要重新編譯。

哪個是源代碼？用什么軟體編譯？我這有廠家給的.dll，.h和.lab

廠家說沒說是否支持VB6呼叫?
廠家試驗過,能用VB6呼叫嗎?
是否可以讓廠家給你個VB6呼叫的例子?

商家轉賣的一個小東西，聯系不到廠家…

uj5u.com熱心網友回復：

參考 17 樓 assummerflower 的回復:

Quote: 參考 15 樓 milaoshu1020的回復:
Quote: 參考 14 樓 assummerflower 的回復:

Quote: 參考 13 樓脆皮大雪糕的回復:
Quote: 參考 10 樓 assummerflower 的回復:

Quote: 參考 8 樓脆皮大雪糕的回復:
要被VB呼叫的函式都要用stdcall

我不知道我的是不是stdcall，也不知道在哪里改…求指導啊

要看DLL的源代碼，找到函式的宣告，確認是否有宣告 stdcall呼叫，如果沒有則需要修改，修改以后要重新編譯。

哪個是源代碼？用什么軟體編譯？我這有廠家給的.dll，.h和.lab

廠家說沒說是否支持VB6呼叫?
廠家試驗過,能用VB6呼叫嗎?
是否可以讓廠家給你個VB6呼叫的例子?

商家轉賣的一個小東西，聯系不到廠家…

實在不行的話,你可以用VC的ATL工程包裝一下,然后用VB6呼叫;
因為有可能這個API函式VB6沒法直接呼叫;
方便的話我可以給你包裝一下,不過你得把.H和.DLL發給我;
你可以用百度網盤,上傳并共享,把地址貼在這里;
也可以把這幾個檔案打包發送到我的郵箱:[email protected];

uj5u.com熱心網友回復：

參考 18 樓 milaoshu1020的回復:

Quote: 參考 17 樓 assummerflower 的回復:

Quote: 參考 15 樓 milaoshu1020的回復:
Quote: 參考 14 樓 assummerflower 的回復:

Quote: 參考 13 樓脆皮大雪糕的回復:
Quote: 參考 10 樓 assummerflower 的回復:

Quote: 參考 8 樓脆皮大雪糕的回復:
要被VB呼叫的函式都要用stdcall

我不知道我的是不是stdcall，也不知道在哪里改…求指導啊

要看DLL的源代碼，找到函式的宣告，確認是否有宣告 stdcall呼叫，如果沒有則需要修改，修改以后要重新編譯。

哪個是源代碼？用什么軟體編譯？我這有廠家給的.dll，.h和.lab

廠家說沒說是否支持VB6呼叫?
廠家試驗過,能用VB6呼叫嗎?
是否可以讓廠家給你個VB6呼叫的例子?

商家轉賣的一個小東西，聯系不到廠家…

實在不行的話,你可以用VC的ATL工程包裝一下,然后用VB6呼叫;
因為有可能這個API函式VB6沒法直接呼叫;
方便的話我可以給你包裝一下,不過你得把.H和.DLL發給我;
你可以用百度網盤,上傳并共享,把地址貼在這里;
也可以把這幾個檔案打包發送到我的郵箱:[email protected];

感謝感謝，已經發到郵箱了

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/31853.html

標籤：API

上一篇：vb ide開發環境界面如何初始化

下一篇：請問如何用vba打開一個.dwg檔案