Utilisation d'une DLL COM dans delphi - Violation d'accès dans l'erreur MSVCR80D.dll

Question

Je dois utiliser une DLL créée à l'aide de .NET Framework. Cette DLL est rendue COM visible.

Je veux utiliser cette DLL dans une application créée en utilisant Delphi 2006. J'ai suivi les étapes suivantes:

1. a enregistré la DLL à l'aide regscr32.

2. Importation de la bibliothèque de types à l'aide de l'IDE Delphi . Il a créé le fichier _TLB.pas. La signature suivante a été créée dans le fichier 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. J'ai essayé d'appeler la méthode en utilisant suivant extrait de code.

 
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; 

Mais je reçois l'erreur suivante lorsque la méthode de processus est appelé. alt text http://i41.tinypic.com/2daf1ix.png

Pouvez-vous suggérer une solution?

Answer 1

Essayez d'initialiser le WideStrings (s1, s2, s3, s4, et peut-être même o). Si je me souviens bien, ils sont dynamiques en Delphi et nil (000000000) avant de les configurer.

Answer 2

En plus de ce que dit MarkusQ, notez que la gestion de la mémoire de l'objet TValidationRequest n'est pas très bonne. Il serait plus propre d'utiliser Create(nil) puis dans le bloc finally, d'écrire FreeAndNil(valReq). La façon dont il est maintenant vous créez un objet TValidationRequest chaque fois que vous cliquez sur le bouton et ils resteront tous en mémoire jusqu'à ce que vous détruisiez le formulaire. Au moins vous n'obtiendrez pas de fuites de mémoire car vous avez passé Self au constructeur afin qu'au moins le formulaire prenne soin de détruire ces objets. Dans votre exemple, il n'est vraiment pas nécessaire de garder l'objet en vie après la fin de la méthode TForm1.buttonClick.