VB .bas檔轉 Delphi .pas檔

發文回覆瀏覽次數：1745

推到 Plurk!

推到 Facebook!

尚未結案

liu0068
一般會員

發表：2
回覆：1
積分：0
註冊：2006-08-25

發送簡訊給我

#1 引用回覆回覆

發表時間：2009-12-16 11:36:39

IP:125.230.xxx.xxx 訂閱

在DLL檔內
VB的.bas呼叫方式如下

SendData As ReceiveData As LPVOID SendData, ULONG SendDataNum,Visual Basic 6.0說明如下:
在 Visual Basic 6.0 中，當您以 Declare 陳述式將參考宣告為外部程序時，可以為任何引數的資料型別和傳回型別指定 As Any。As Any 關鍵字可停用型別檢查 (Type Checking)，並允許傳遞或傳回任何資料型別。

syntax
尊榮會員

發表：26
回覆：1139
積分：1258
註冊：2002-04-23

發送簡訊給我

#2 引用回覆回覆

發表時間：2009-12-17 08:21:16

IP:59.125.xxx.xxx 訂閱

Public Declare Function sssIoControl Lib "SwDll" (ByVal hDev As Long, ByVal IoCtlCode As Long, ByRef Any, ByVal SendDataNum As Long, ByRef Any, ByVal ReceiveDataNum As Long) As Long

C 的.h如下:
sssIoControl(HSSDEVhDev,DWORDIoCtlCode,LPVOIDReceiveData,ULONGReceiveDataNum);

現在我要把這一function改成Delphi可以呼叫的方式，當中的Any我在Delphi下該如何宣告?
SendData及ReceviceData的資料型態除了可以是Integer, Float,String外也可以是Array及Record，
我宣告成Variant/OleVariant時Array及Record就不能呼叫了，如果使用Pointer又無法正常啟動，
請問一下各位前輩是否還有其他方法?謝謝

在 Visual Basic 6.0 中，當您以 Declare 陳述式將參考宣告為外部程序時，可以為任何引數的資料型別和傳回型別指定 As Any。As Any 關鍵字可停用型別檢查 (Type Checking)，並允許傳遞或傳回任何資料型別。

系統時間：2024-04-23 22:10:38

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！