说明:VB调用D开发的DLL接口.
错误状态: 这个函数在D调用成功,而在VB调用提示错误,内存不能为只读!数 据 库:Tinydb 2.93
模块名称:测试数据库是否连接成功
参 数:无
返 回 值:ok 成功 |error 错误
function GetRS:Pchar;Stdcall;
var
TTB:TTinyTable;
begin
try
TTB:=TTinyTable.Create(nil);
try TTB.DatabaseName := 'F:\APTDLL\vbdemo\GDWYZX.apt';
TTB.TableName := 'Userinfo';
TTB.Password := 'hi_server_V0.1';
TTB.Open;
Result :='ok';
finally
TTB.Close;
TTB.Free;
end;
except
Result := 'error';
end;
end; ===========================
vb声明调用Aptdll.dllPrivate Declare Function GetRS Lib "Aptdll.dll" () As String================================================Private Sub Command1_Click() If GetRS() = "ok" Then
MsgBox "ok"
Else
MsgBox "Error"
End If
End Sub
---------------------------------------------------------请各位高手看看,为什么我的VB6调用这个函数提示内存不能为只读的错误?????
急在线等待
错误状态: 这个函数在D调用成功,而在VB调用提示错误,内存不能为只读!数 据 库:Tinydb 2.93
模块名称:测试数据库是否连接成功
参 数:无
返 回 值:ok 成功 |error 错误
function GetRS:Pchar;Stdcall;
var
TTB:TTinyTable;
begin
try
TTB:=TTinyTable.Create(nil);
try TTB.DatabaseName := 'F:\APTDLL\vbdemo\GDWYZX.apt';
TTB.TableName := 'Userinfo';
TTB.Password := 'hi_server_V0.1';
TTB.Open;
Result :='ok';
finally
TTB.Close;
TTB.Free;
end;
except
Result := 'error';
end;
end; ===========================
vb声明调用Aptdll.dllPrivate Declare Function GetRS Lib "Aptdll.dll" () As String================================================Private Sub Command1_Click() If GetRS() = "ok" Then
MsgBox "ok"
Else
MsgBox "Error"
End If
End Sub
---------------------------------------------------------请各位高手看看,为什么我的VB6调用这个函数提示内存不能为只读的错误?????
急在线等待
解决方案 »
- 关于录音的问题(急,高分求!)?
- 如何将两个日期型字段相减??得出天数??
- 我刚学习Delphi,请大家给点意见!!
- 请问如何判断在edit控件中输入的是不是数字!
- 用DELPHI写的DLL,PB如何调?
- 什麼函數可以判斷出一個字符串的內容全部是數字
- 三層結構發布一個很菜的問題?第一次做三層結構程式,不知怎樣發布,各位高手,請幫一下忙.
- 高分请高手把以下算法用DELPHI写一遍
- BDE 的 10058 invalid time 错误如何处理?
- PASCAL遇到2个语句,不知所云,忘大侠们详细告知!万分感谢!!!
- 坐标转换 数据求!
- 简单问题,在移动adoquery.next时,如何代码实现选择dbgrideh当前一行.
问题解决了,谢谢你的热心帮助!