function
TA_Dsql_QRecord
lib
"..."
(byval
Dsql
as
string,
byval
fillGap
as
long,
byval
sBlock
as
string,
nBlockSize
as
long,
RetCode
as
long,
timeOut
as
long)
as
long
...是妳的鏈接庫名字
那兩個int數組傳送過去的時候要先在VB中申明出這個變量,再用varptr函數得到地址送過去:
declare
Function
VarPtr
lib
"msvbvm60.dll"
(p
as
any)
as
long
然後fillgap只能按照long傳過去,但是妳可以用asc函數得到字符的ascii送過去,例如:妳想送'c'過去,那麽久asc("c")送給第二個參數
妳在使用前,要給那些string類型的字串申明足夠的空間,例如:
dim
sBlock
as
string
sBlock
=
string(asc("A"),
255)'給夠空間,要不就會出錯
TA_Dsql_QRecord(...,
sBlock,...)