急急，如何将调用DLL的DELPHI代码转成VB代码(200分)

ywan · 2003-04-25

各位好   下面是一段DELPHI调用DLL的代码，不知如何将它转成VB的代码（关键是指针函数如何转换），小弟急用，谢谢！ type TDeliver = procedure(deliver: DeliverStr); type TReport  = procedure(Report: ReportStr); {$R *.DFM} function StartUp(cLocalIp: pchar; iLocalPort: integer; deliver: TDeliver; report: TReport; bb,cc: pointer): integer;stdcall;external 'Startup.DLL' name 'Startup';

kkyy · 2003-05-01

Declare Function StartUp Lib "Startup.dll" Alias "AddFontResourceA"(cLocalIp as string, iLocalPort as Long, deliver as  Long, report as Long, bb as Long, cc as Long) as Long private sub TDeliver(deliver as DeliverStr) '这个参数类型要自己定义     '这是回调函数 end sub private sub TReport(Report as ReportStr)   '这个参数类型要自己定义     '这是回调函数 end sub 现个函数参数调用时以&TDeliver的方式使用

ywan · 2003-05-02

谢谢kkyy：    请问    private sub TDeliver(deliver as DeliverStr) '这个参数类型要自己定义     '这是回调函数   end sub   private sub TReport(Report as ReportStr)   '这个参数类型要自己定义      '这是回调函数   end sub   是不是   Declare Function StartUp Lib "Startup.dll" Alias "AddFontResourceA"(cLocalIp as string, iLocalPort as Long, deliver as  Long, report as Long, bb as Long, cc as Long) as Long 里面的所指deliver、report两个函数？如果是，那函数名是不是要相同？  现个函数参数调用时以&TDeliver的方式使用  是什么意思？   小弟不甚明白，还恳请大哥详说，麻烦了，谢谢！

kkyy · 2003-05-03

函数名随便定 取函数的地址, 也可以用ADDR函数取地址

ywan · 2003-05-03

to kkyy: 请问在调用StartUp函数时，下面一段代码是否正确？ x = testbas.StartUp(cLocalIp, AddressOf testbas.Deliver, AddressOf testbas.Report, AddressOf testbas.Response, AddressOf testbas.MTError) Function Deliver(FDeliver As String) As Long     。。。。。。。。。。。。。     Deliver = 1 End Function 好象听说VB的指针函数一定要在通用模块（.bas）里定义，请问是否有这回事？ 谢谢

kkyy · 2003-05-04

没有这样的要求, 不过你的函数好象没有那么多CALLBACK吧? 不要个个都取地址, 普通的参数只要定义的时候指定BYREF, 其实不用指定BYVAL即可, 就会自动传送参数地址, 你的程序没看过, 不知你的对不对,

ywan · 2003-05-05

谢谢你的指点，可不可以留下E—MAIL，我有一段程序请教你。

ztaif · 2003-05-05

Declare Function StartUp Lib "Startup.dll" Alias "AddFontResourceA"(cLocalIp as string, iLocalPort as Long, deliver as  Long, report as Long, bb as Long, cc as Long) as Long private sub TDeliver(deliver as DeliverStr) '这个参数类型要自己定义     '这是回调函数 end sub private sub TReport(Report as ReportStr)   '这个参数类型要自己定义     '这是回调函数 end sub 现个函数参数调用时以&TDeliver的方式使用

ywan · 2003-05-05

谢谢各位大哥！ 在调用到该DLL的另一个函数时还遇到这样一个问题““0x037d1bd9”指令引用“0x00000000”内存，该内存不能为“written”” 程序如下： Private Declare Function Submit Lib "SGIP.dll" (ByRef spnumber As String, ByRef chargenumber As String, ByVal user_count As Long, ByRef usernumber As String, ByRef corpid As String, ByRef service_type As String, fee_type As Byte, ByRef given_value As String, agent_flag As Byte, mo_fiag As Byte, priority As Byte, ByRef expire_time As String, ByRef schedule_time As String, report_flag As Byte, tp_pid As Byte, tp_udhi As Byte, message_coding As Byte, message_type As Byte, ByVal message_length As Long, ByRef message_content As String, ByRef reserve As String, ByRef sequencenumber1 As Long, ByRef sequencenumber2 As Long, ByRef sequencenumber3 As Long) As Long Private Sub Command2_Click()    Dim x As Long    Dim sequencenumber1, sequencenumber2, sequencenumber3 As Long    Dim spnumber As String    Dim chargenuber As String    Dim uesernumber As String    Dim corid As String    Dim service_type As String    Dim fee_type As String    Dim fee_value As String    Dim given_value As String    Dim expire_time As String    Dim schedule_time As String    Dim message_content As String    Dim reserve As String    spnumber = "390000"    chargenuber = "000000000000000000000"    uesernumber = "13060698634"    corid = "390000"    service_type = ""    fee_type = "0"    fee_value = "0"    expire_time = ""    schedule_time = ""    message_content = "abc"    reserve = ""        x = Submit(spnumber, chargenuber, 1, uesernumber, corid, "", "1", "0", "0", "0", "0", "", "", "0", "0", "0", "0", "0", 3, message_content, reserve, sequencenumber1, sequencenumber2, sequencenumber3) End Sub  Submit函数是 Typedef  unsigned char UINT_1; Typedef  unsigned short UINT_2; Typedef  unsigned int UINT_4; int __stdcall Submit(char* spnumber,               char* chargenumber,                                                                                                                                                                                                         int user_count,               char* usernumber,               char* corpid,               char* service_type,               UINT_1 fee_type,               char* fee_value,               char* given_value,               UINT_1 agent_flag,               UINT_1 mo_flag,               UINT_1 priority,               char* expire_time,               char* schedule_time,               UINT_1 report_flag,               UINT_1 tp_pid,               UINT_1 tp_udhi,               UINT_1 message_coding,               UINT_1 message_type,               UINT_4 message_length,               char* message_content,               char* reserve,               UINT_4 *sequencenumber1,               UINT_4 *sequencenumber2, UINT_4 *sequencenumber3) 小弟急用，请指明错误，小弟不甚感激。

kkyy · 2003-05-05

太长了, 呵呵没空看仔细, 不过UINT_1, UINT_2,UINT_4可申明yl byte, short, long, 指针的请申明为Long,或 ByRef应该没问题

一条大鱼 · 2003-05-05

ywan · 2003-05-08

[?]为什么我还是触发不了回调函数。还有在函数中我把UINT_1结构的参数定义为byval xx as string时 在接收端接受到错误的数据？请帮忙！谢谢

急急，如何将调用DLL的DELPHI代码转成VB代码(200分)

ywan

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

ywan

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

ywan

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

ywan

Unregistered / Unconfirmed

ztaif

Unregistered / Unconfirmed

ywan

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

一条大鱼

Unregistered / Unconfirmed

ywan

Unregistered / Unconfirmed

Similar threads