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
相关文档：
前段时间因为项目需要，获取指定文件的图标，绕了很多弯子，现在弄出来了，跟大家共享下.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI, ExtCtrls;
type
TForm1 = class(TForm)
l ......
Delphi编写系统服务七：完成端口演示 收藏
在开发大量Socket并发服务器，完成端口加重叠I/O是迄今为止最好的一种解决方案，下面是简单的介绍：
“完成端口”模型是迄今为止最为复杂的一种I/O模型，特别适合需要同时管理为数众多的套接字，采用这种模型，往往可以达到最佳的系统性能。但是� ......
delphi中Webbrowser的使用
1.获得网页中变量值
htm中<script> var currID=123</script>
程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID
值得说明的是,变量可以是javascript定义的,也可以是vbs ......
1.用VB6判断文件存在妙法
在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用VB 6.0提供的FileSystemObject对象。
FileSystemObject对象不是VB内置对象，使用前必须首先选择[工程]&rar ......
把下面的代码 粘贴到文本
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)� ......
