EvoTalk » dll http://evotalk.net/blog Mon, 07 Jun 2010 03:01:06 +0000 http://wordpress.org/?v=2.9.2 en hourly 1 Perl Call VC Dll http://evotalk.net/blog/2009/01/perl-call-vc-dll.html http://evotalk.net/blog/2009/01/perl-call-vc-dll.html#comments Tue, 20 Jan 2009 09:21:48 +0000 asd http://evotalk.net/blog/?p=1169 VC DLL實作，calling convention 必需是__stdcall

view plain
CODE:
  1. #include <windows.h>
  2. #include <stdio.h>
  3.  
  4. int __stdcall GetIntFromVC(int x )
  5. {
  6.     x *= 2;
  7.     return x;
  8. }
  9.  
  10. int  __stdcall GetStrFromVC(char* pbstr, char *lpBuffer)
  11. {
  12.  return sprintf(lpBuffer, "*** %s ***", pbstr);
  13. }

避免 name mangling ，加入 .def

view plain
CODE:
  1. LIBRARY test
  2.  
  3. EXPORTS
  4. GetIntFromVC  @1
  5. GetStrFromVC  @2

Perl call dll

view plain
CODE:
  1. #! perl -slw
  2. use strict;
  3. use Win32::API;
  4.  
  5. #傳入一個參數，回傳一個值 ，N: value is a number (long)
  6. my $fun1 = new Win32::API('test.dll', 'GetIntFromVC', 'N', 'N') or die $^E;
  7.  
  8. #傳入二個參數，回傳 一個參數，P: value is a pointer (to a string, structure, etc...)，N: value is a number (long)
  9. my $fun2 = new Win32::API('test.dll', 'GetStrFromVC', 'PP', 'N') or die $^E;
  10.  
  11. print $fun1->Call(123);
  12.  
  13. my $lpBuffer = " " x 100;        #配置足夠的空間
  14. $fun2->Call("hello world", $lpBuffer);
  15. $lpBuffer =~ s/\0.*$//;        #刪除多餘的空白
  16. print "$lpBuffer";

參考

]]> http://evotalk.net/blog/2009/01/perl-call-vc-dll.html/feed 0 VB Pass String to VC Dll http://evotalk.net/blog/2006/06/vb-pass-string-to-vc-dll.html http://evotalk.net/blog/2006/06/vb-pass-string-to-vc-dll.html#comments Thu, 29 Jun 2006 14:10:48 +0000 asd http://evotalk.net/blog/?p=267 In VC DLL

  1. function 前不需要加入 __declspec(dllexport)，要匯出的function名稱加入 .def 即可，避免name mangling
  2. function 之 calling convertion 為 __stdcall
    ex. int __stdcall GetCPUSpeed()
  3. 使用.def 作出的 Dll，可被 VC 及 VB 程式呼叫
VB 傳參數進 VC DLL

例一 : Call By Reference
In VB，若function宣告為

Private Declare Function GetStrFromVC1 "z:DllDebugDll2.dll" ( ByRef PA as integer, ByRef str1 as String) As String

呼叫

view plain
Visual Basic:
  1. Dim strRet as String
  2. Dim PA as Integer
  3. Dim strOutStr as String
  4. PA  = 100
  5. strRet = "abcdef12345"
  6. strOutStr = GetStrFromVC1 (PA, strRet )  'ByRef ，strRetStr會被改變
  7. Debug.Print strOutStr

In VC Dll 實作

view plain
C++:
  1. BSTR __stdcall GetStrFroVC1(int *PA, BSTR* pbstr)
  2. {
  3. char szTemp[1024];
  4. sprintf(szTemp, "*** %s *** ", (char*) (*pbstr));
  5. *PA = SysAllocStringLen(pbstr,(BSTR)szTemp, strlen(szTemp));
  6. return SysAllocString((BSTR) "Test 123456");
  7. }

例二 : Call By Value
In VB，若function宣告為

Private Declare Function GetStrFromVC2 "z:DllDebugDll2.dll" ( ByVal A as integer, ByVal strin as String) As String

VB 呼叫 方式不變
In VC Dll 實作

view plain
C++:
  1. BSTR __stdcall GetStrFromVC2(int A, char* strin)
  2. {
  3. //do something
  4. }

結論 : ByVal 與 ByRef對VC DLL內 function宣告之影響
(1) ByVal -> char *

(2) ByRef -> BSTR *
VB How to step into C++ dll ?
  1. 開啟VC Dll 專案
  2. 設定專案屬性 -> Debug Tab -> Execute for Debug Session -> 選擇 vb6.exe。
    Program argument 設為 VB 之專案(.vbp)
  3. VC Dll 專案內設好中斷點，按F5，則會啟動 VB6 IDE 並載入 VB 專案，此時可在VB設中斷點，當執行到呼叫VC function時，可 step into，否則就直接進入VC breakpoint所在行。 Debug VC Dll
]]> http://evotalk.net/blog/2006/06/vb-pass-string-to-vc-dll.html/feed 0 將編譯後的dll輸出至專案工作目錄 http://evotalk.net/blog/2005/12/output-the-dll-to-project-working-directory-after-compiled.html http://evotalk.net/blog/2005/12/output-the-dll-to-project-working-directory-after-compiled.html#comments Wed, 21 Dec 2005 10:52:14 +0000 asd http://evotalk.net/blog/?p=165 之前用 VC 時，若 WorkSpace 包含 Dll 專案，會產出.lib及.dll，.lib通常會設定統一集中在lib目錄下，dll必須與執行檔同個目錄才能執行。所以說必須手動再把 dll 拷貝到主程式 Active Project的工作目錄下，若不只一個Dll專案那就累人了，必須手動逐一copy。其實只要在Dll專案 Setting->Post build step 新增 command 代表當此專案build完後要作什麼事情，可以下

XCopy ..liblibText2Phone.dll ..gengrm /Y /F /D

/Y /F /D是xcopy的參數，分別表示

  • /Y: 不要提示您確認是否要覆蓋一個已經存在的檔案
  • /F: 在複製時顯示來源及目的檔案的全部檔名
  • /D: 複製在指定日期當天或之後發生變更的檔案。如果沒有給日期， 只複製那些來源檔案日期比目的檔案日期為新的檔案。
]]> http://evotalk.net/blog/2005/12/output-the-dll-to-project-working-directory-after-compiled.html/feed 0 Calling C++ DLLs from VC++ and VB http://evotalk.net/blog/2005/12/calling-c-dlls-from-vc-and-vb.html http://evotalk.net/blog/2005/12/calling-c-dlls-from-vc-and-vb.html#comments Wed, 07 Dec 2005 19:33:20 +0000 asd http://evotalk.net/blog/?p=147
  • Calling a DLL C++ function from a VC++ application
    Calling a DLL C++ class from a VC++ application
  • Calling a DLL C++ function from a VB application
  • Calling a DLL C++ class from a VB application
  • Loading a C++ DLL dynamically from a VC++ application
    • ]]>     http://evotalk.net/blog/2005/12/calling-c-dlls-from-vc-and-vb.html/feed 0