再向懂VB的朋友问个问题

Question

COM，VB引用，DELPHI引用类型库后，ACTIVEX中有个RTXCRoot，RTXCData这二个
Dim objApi As Object
Dim objApp As RTXCRoot
Dim rtcData As RTXCDataSet objApi = New RTXClient.RTXAPI '创建主对象
Set objApp = objApi.GetObject("KernalRoot") '获取KernalRoot对象On Error GoTo errorhandlerSet rtcData = objApp.Sign '获取签名，并把它赋给rtcData
txtSignature.Text = rtcData.GetString("Sign") '获取rtcData对象的Sign 的内容
原来稍用过VB，也基本忘光了，帮忙翻译成DELPHI的谢谢了

Answer 1

uses
  ActiveX, OleAuto;
...
var
  objApi: OleVariant;
  objApp: OleVariant;
  rtcData: OleVariant;
begin
  objApi := CreateOleObject('RTXClient.RTXAPI'); //创建主对象
  objApp := objApi.GetObject('KernalRoot'); //获取KernalRoot对象  try    rtcData := objApp.Sign; //获取签名，并把它赋给rtcData
    txtSignature.Text := rtcData.GetString('Sign'); //获取rtcData对象的Sign 的内容
   ...