vb 调用delphi写的dll
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的');
if X > Y then
Result := X
else
Result := Y;
end;
exports mymax;
begin
end.
vb中的调用程序如下：
Private Declare Function mymax Lib "C:\lx\delphi\lx1\dll1.dll" (ByVal sj1 As Long, ByVal sj2 As Long, ByRef sj3 As Long, ByRef s1 As String) As Long
Private Sub Command1_Click()
Dim s_t As String
Text3.Text = ""
sj3_v = 0
s_t = "测试输入："
Text3.Text = mymax(Val(Text2.Text), Val(Text1.Text), sj3_v, s_t)
Print (Str(sj3_v) + s_t)
End Sub
相关文档：
Delphi编写系统服务六：在服务中使用COM组件 收藏
在服务中调用COM组件不能像在桌面程序中直接创建，在每次创建之前先调用CoInitialize(nil)，释放的时候调用CoUninitialize。例如：调用ADO组件
var
Qry: TADOQuery;
begin
CoInitialize(nil);
Qry := TADOQuery.Create(nil);
tr ......
delphi中Webbrowser的使用
1.获得网页中变量值
htm中<script> var currID=123</script>
程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID
值得说明的是,变量可以是javascript定义的,也可以是vbs ......
用webbrowser控件登录和显示网页
MSHTML是微软公司的一个COM组件，该组件封装了HTML语言中的所有元素及其属性，通过其提供的标准接口，可以访问指定网页的所有元素．MSHTML对象模型是由一些对象和集合组成的．处于根部的是HTML，描述了打开页面的1个窗口，包括一系列集合和对象。如Frames集合，History，Location，Navigat ......
1.用VB6判断文件存在妙法
在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用VB 6.0提供的FileSystemObject对象。
FileSystemObject对象不是VB内置对象，使用前必须首先选择[工程]&rar ......
在VB 中调用动态连接库
2001-11-08· · ··yesky
1 2 3 4 5 6 7 8 下一页
作为一种简单易用的Windows开发环境，Visual Basic从一推出就受到了广大编程人员的欢迎。它使 程序员不必再直接面对纷繁复杂的Windows消息，而可以将精力主要集中在程序功能的实现上，大大提高了� ......
