高分急救！大峡 帮忙把VB代码转成delphi代码！

Question

    Dim objSMS As ServerApi.IMYObject
    Dim objProp As ServerApi.IMYParams
    Dim RetCode As String
    dim objapi as object
    set objap = createobject"rtxserver.rtxapi"
    
    Set objSMS = objAPI.GetObject("SMSObject")
    Set objProp = objAPI.GetObject("Property")
    
    objProp.Value("Sender") = txtSender.Text
    objProp.Value("Receiveruin") = txtMobile.Text
    objProp.Value("Sms") = txtContent.Text
    
    On Error GoTo l_Err
        RetCode = objSMS.Call2(&H1001, objProp)   
                
    
   If Trim(RetCode) = "操作成功" Then
        MsgBox "发送成功"
    Else
        MsgBox "发送失败（错误代码" & RetCode & "）"
    End If
    
l_Err:
    If Err.Number <> 0 Then
        MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
    End If
    
    Set objProp = Nothing
    Set objSMS = Nothing

Answer 1

你用到VB写的DLL了吧找找怎么调用VB的DLL的资料

Answer 2

Import Type Library  --- 将你的DLL引入，然后就可以直接使用里面的接口了