wie rufen Sie eine Dll und Parameter übergeben, um es in delphi 7

Bin ich delphi-noob, also bitte helfen Sie mir mit diesem. Habe ich eine DLL mit dem folgenden code:

 library PRdll;
   uses
 ExceptionLog, SysUtils,Classes,Dialogs;

{$R *.res}

  function DllMessage(var a:integer):Integer;stdcall;export;
  begin
      Showmessage('GHelloa');//this is displayed
      ShowMessage(IntToStr(a));//I get the error at this point
       Result:=5;
  end;

    exports DllMessage;
  begin
  end.

Den entsprechenden Aufruf der DLL wird durch diesen code:

    var
      FDll: TFDll;
       function DllMessage(var a:integer):integer;stdcall;external 'PRDll.dll';
     implementation

    {$R *.dfm}

       procedure TFDll.btnCallDllClick(Sender: TObject);
      var
       i:integer;
      s1:string;
      begin
           i:=5;
          s1:=IntToStr(DllMessage(i));
         //ShowMessage(s1);
         end;

Bekomme ich einen Zugriffsfehler. Warum geschieht dies . Irgendjemand ? Hilfe!!!!!
Vielen Dank im Voraus

  • Gut der code ist groß, das ist, warum ich mich nicht per post. Auf jeden Fall bin ich die Buchung jetzt
  • Sorry, habe ich falsch gelesen. Ich sehe keinen Grund für den Fehler.
  • Können Sie überprüfen die Deklaration der DllMessage in beiden DLL-und EXE-Datei. Sind Sie sicher, es ist, wie Sie es hier haben. Als ein beiseite, ich denke nicht, dass Sie brauchen export aber ich glaube, dass ist harmlos.
  • Ich habe versucht (im wesentlichen) den obigen code, und es funktioniert. Möchten Sie vielleicht versuchen Sie, nicht zu var vor a: integer. Vielleicht die alte Delphi 7 nicht so.
  • Es ist ein Fehler im code, der du bist, NICHT zeigen. Ich ging gerade durch die Mühe, tatsächlich den Aufbau Ihrer DLL (wie angezeigt) mit Delphi 7 dann schriftlich ein 11-Linien-Konsole-Anwendung testen Sie die Funktion aufrufen, zeigen Sie uns. Es ging alles in Ordnung, funktioniert wie erwartet. Für die Platte, die ich zusammengestellt mit ExceptionLog und ohne ShareMem, in anderen Worten, genau der code, wie gepostet.
  • Und die DLL in den gleichen Ordner wie die ausführbare Datei ?
  • var Parameter in DLLs gearbeitet haben, seit Delphi 1!
  • OK, ich war mir nicht sicher, aber das wäre meine Vermutung.
  • Ansonsten ist der Fehler erschienen wäre früher als die OP Ansprüche...
  • -1. Code nicht zeigt die Fehler gemeldet. Echten code wurde veröffentlicht, "jetzt", aber das war über 45 Minuten vor.

InformationsquelleAutor CyprUS | 2011-07-07
  1. 2

    Haben Sie Hinzugefügt sharemem Einheit?

    Finden Sie in der Hilfe.

    Zweite option: Kommentar der ExceptionLog Linie und versuchen Sie es erneut.

    Es arbeiten fein.

    Grüße.

    • Nicht die Antwort. Die DLL-Funktion nicht alloc memory der exe benötigen würde, um frei, noch die andere Weise herum. Sharemem sollte keinen Unterschied machen bei allen.
    • Versuchen Sie zu kommentieren ExceptionLog verwendet, und versuchen Sie es erneut.
    • Prund; Ok, in diesem besonderen Fall ist es nicht notwendig. Wenn keine mehr code auf die DLL (und dies ist nicht eine Probe) ist nicht notwendig.
    • +1 für die zweite. Die erste ist ganz klar nicht erforderlich, die in Delphi 2009 mindestens.
    InformationsquelleAutor Germán Estévez -Neftalí-
  2. 0

    Wird der richtige code unten geschrieben; ich bin überrascht, warum niemand konnte mir sagen, diese einfache Sache

    //Dll
 library ProDll;

uses
   ExceptionLog,
  SysUtils,
  Classes,Dialogs;

  function showSqRoot(var a:Double):Double; stdcall; export;
  begin

     Result:=sqrt(a);
   end;

   exports showSqRoot;
  {$R *.res}

   begin
    end.


 //The program
   function showSqRoot(var a:Double):Double;stdcall external 'ProDll.dll'//Notice 'stdcall external' here

 procedure TFcallDLL.btnCallDLLClick(Sender: TObject);
  var
        numInput,numRes:Double;   {Input and Result}
   begin
       numInput:=StrToFloat(edtInput.Text);
      numRes:=showSqRoot(numInput);   {call the function in DLL with the Parameter}
      edtResult.Text:=FloatToStr(numRes); {Display the Result}
    end;

    Dieser code hat bei mir gut gearbeitet.

    InformationsquelleAutor CyprUS
Schreibe einen Kommentar