在 delphi 中使用 COM DLL - MSVCR80D.Z06416233FE2EC48AFE1Z3 中的访问错误1

Question

我需要使用使用 .NET 框架创建的 DLL。 这个 DLL 是 COM 可见。

我想在使用 Delphi 2006 创建的应用程序中使用此 DLL。我遵循以下步骤：

1. 使用 regscr32 注册了 DLL。

2. 使用 Delphi IDE 导入类型库。 它创建了 _TLB.pas 文件。 在 TLB 文件中创建了以下签名。

     function TValidationRequest.Process(var MeterBSN: WideString; var NICSerial: WideString; var partNumber: WideString; var otherConfig: WideString; out returnMessage: WideString): Smallint; 开始结果：= DefaultInterface.Process（meterBSN，NICSerial，partNumber，otherConfig，returnMessage）； 结尾;

3. 我尝试使用以下代码片段调用该方法。

procedure TForm1.buttonClick(Sender: TObject);
var
  valReq: TValidationRequest;
  s1, s2, s3, s4, s5: WideString;
  o: WideString;
begin
  valReq := TValidationRequest.Create (Self);
  try
    valReq.Process (s1, s2, s3, s4, o);
    MessageDlg(o, mtInformation, [mbOK], 0);
  finally
    valReq := nil;
  end;
end;

但是当调用 Process 方法时出现以下错误。

请问您能提出任何解决方案吗？

Answer 1

尝试初始化WideStrings （ s1 、 s2 、 s3 、 s4 ，甚至可能是o ）。 如果我没记错的话，在您设置它们之前，它们在 Delphi 和 nil (000000000) 中是动态的。

Answer 2

除了 MarkusQ 所说的，请注意您的TValidationRequest object 的 memory 管理不太好。 使用Create(nil)然后在finally块中写入FreeAndNil(valReq)会更干净。 现在的方式是每次单击按钮时创建一个TValidationRequest object，它们都将保留在 memory 中，直到您销毁表单。 至少您不会得到 memory 泄漏，因为您将Self传递给构造函数，因此至少表单将负责销毁这些对象。 在您的示例中，确实没有必要在TForm1.buttonClick方法结束后让 object 保持活动状态。