在delphi中使用COM DLL - MSVCR80D.dll错误中的访问冲突

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;
   begin
     Result := DefaultInterface.Process(meterBSN, NICSerial, partNumber, otherConfig, returnMessage);
   end;
   

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对象的内存管理不是很好。使用Create(nil)然后在finally - 块写FreeAndNil(valReq)中会更清晰。现在你每次单击按钮时都会创建一个TValidationRequest对象，它们将全部保留在内存中，直到你销毁表单为止。至少你不会因为你将Self传递给构造函数而导致内存泄漏，因此至少表单将负责销毁这些对象。在您的示例中，在TForm1.buttonClick方法结束后，确实没有必要保持对象存活。