asp 代码:
<html>
<head><title>test my first com in delphi</title></head>
<body>
<%
response.Write("test com") Dim testRun
Set testRun = CreateObject("YhCom.RunComponent")
testRun.run
response.write("<br>new line<br>") %>
</body>
</html>在VB中测试代码没有问题Private Sub Command1_Click()
Dim testRun As RunComponent
Set testRun = CreateObject("YhCom.RunComponent")
testRun.run
End Sub
<html>
<head><title>test my first com in delphi</title></head>
<body>
<%
response.Write("test com") Dim testRun
Set testRun = CreateObject("YhCom.RunComponent")
testRun.run
response.write("<br>new line<br>") %>
</body>
</html>在VB中测试代码没有问题Private Sub Command1_Click()
Dim testRun As RunComponent
Set testRun = CreateObject("YhCom.RunComponent")
testRun.run
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货