Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   DLL einbinden Delphi7 vs Rad Studio 10.2 (https://www.delphipraxis.net/196682-dll-einbinden-delphi7-vs-rad-studio-10-2-a.html)

diso 9. Jun 2018 02:05

DLL einbinden Delphi7 vs Rad Studio 10.2
 
Hallo,

nach langer Zeit möchte ich wieder was mit Delphi programmieren und verzweifle am neuen RAD Studio..

Ich möchte die ngspice.dll einbinden, Delphi 7 klappt ohne probleme.
Doch der selbe Code funktioniert nicht im RAD Studio, sobald ich eine Funktion aus der DLL aufrufe gibt es eine Zugriffsverletzung.

http://ngspice.sourceforge.net/ngspi...h_bin_win32.7z

Kann mir einer erklären warum es nicht auf der neuen Umgebung/Compiler nicht funktioniert?

Grüße

KodeZwerg 9. Jun 2018 03:10

AW: DLL einbinden Delphi7 vs Rad Studio 10.2
 
Wenn Du auch noch den Code zeigen könntest wie Du mit der dll umgehst... könnte hilfreich sein bei Fehlersuche.

Luckie 9. Jun 2018 03:20

AW: DLL einbinden Delphi7 vs Rad Studio 10.2
 
Glaskugel sagt: "Mutt du achten auf Ansi und Uniode."

diso 9. Jun 2018 03:58

AW: DLL einbinden Delphi7 vs Rad Studio 10.2
 
Sorry habe das bin Link geposted.. Sources: http://ngspice.sourceforge.net/ngspi..._src_delphi.7z

oder :
Code:
  ngspice_Init: function(ptrchar: Pointer; ptrstat: Pointer; ptrexit: Pointer;
                ptrdata: Pointer; ptrinitdata: Pointer; ptrnoruns: Pointer; userData: Pointer): integer; cdecl;
  ngspice_Com: function(ms: PChar): Integer; cdecl;
  ngspice_GetVec: function(ms: PChar): pVector_info; cdecl;
  ngspice_SendCirc: function(circarray: pcarray): Integer; cdecl;
  ngspice_GetCurPlot: function(): PChar; cdecl;
  ngspice_GetPlotNames: function(): ppansichararray; cdecl;
  ngspice_GetVecsFromPlot: function(plotname: PChar): ppansichararray; cdecl;
  ngspice_Running: function(): boolean; cdecl;
  ngspice_Init_Sync: function(ptrvsrcval: Pointer; ptrisrcval: Pointer; ptrsync: Pointer; ident: PInteger; userData: Pointer): integer; cdecl;
  ngspice_SetBkpt: function(simtime: double): boolean; cdecl;




// attach ngspice.dll and initialize ngspice
procedure TForm1.Button1Click(Sender: TObject);
var
   init_test: integer;
   ng_ident: integer;

begin
   // load dll
   Hdll := LoadLibrary(PChar(StartIni.ReadString('ngspice.dll', 'Path', '')));
   if (Hdll = 0) then
      // try local directory
      Hdll := LoadLibrary('ngspice.dll');
   if (Hdll <> 0) then
   begin
      @ngspice_Init := GetProcAddress(Hdll, 'ngSpice_Init');
      @ngspice_Com := GetProcAddress(Hdll, 'ngSpice_Command');
      @ngspice_GetVec := GetProcAddress(Hdll, 'ngGet_Vec_Info');
      @ngspice_SendCirc := GetProcAddress(Hdll, 'ngSpice_Circ');
      @ngspice_GetCurPlot := GetProcAddress(Hdll, 'ngSpice_CurPlot');
      @ngspice_GetPlotNames := GetProcAddress(Hdll, 'ngSpice_AllPlots');
      @ngspice_GetVecsFromPlot := GetProcAddress(Hdll, 'ngSpice_AllVecs');
      @ngspice_Running := GetProcAddress(Hdll, 'ngSpice_running');
      @ngspice_Init_Sync := GetProcAddress(Hdll, 'ngSpice_Init_Sync');
      @ngspice_SetBkpt := GetProcAddress(Hdll, 'ngSpice_SetBkpt');
      // call initialization
      // send addresses of callback functions, and address of sending object
      init_test := ngspice_Init(@ng_getchar, @ng_getstat, @ng_exit, @ng_data,
                                @ng_initdata, @ng_thread_runs, self);
//       init_test := ngspice_Init(@ng_getchar, nil, @ng_exit, @ng_data,
//                                @ng_initdata, @ng_thread_runs, self);
      if (init_test = 1) then
      begin
        detach(coquit);
      end;
      ng_ident := 5;
      init_test := ngspice_Init_Sync(@ng_sendvsrc, @ng_sendisrc,
                                     @ng_sync {nil} , @ng_ident, self);
      if (init_test = 1) then
      begin
        detach(coquit);
        is_attached := false;
      end;
      will_detach := False;
      is_attached := True;
   end
   else
   begin
     MessageDlg('ngspice.dll not found', mtError, [mbAbort], 0);
     Form1.Close;
   end;
end;

himitsu 9. Jun 2018 04:10

AW: DLL einbinden Delphi7 vs Rad Studio 10.2
 
PChar durch PAnsiChar ersetzen!

Was du auch in nahtzu allen Tutorials und Beiträgen bezüglich Unicode-Umstellung nachlesen kannst.



Außerdem greift man NIEMALS auf diese hässlichen globalen Variablen zu,
welche genauso heißen, wie die Form, aus deren Events du das aber machst.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
     Form1.Close;
Wenn, dann
Delphi-Quellcode:
Self.Close
oder nur
Delphi-Quellcode:
Close
.

Und die Meldung "ngspice.dll not found" ist irreführend.
"not loaded" wäre passender, oder eben garnicht erst den Fehler verfälschen und den korrekten Fehler ausgeben,
also "ngspice.dll not loaded" + MSDN-Library durchsuchenGetLastError + Delphi-Referenz durchsuchenSysErrorMessage

diso 9. Jun 2018 04:11

AW: DLL einbinden Delphi7 vs Rad Studio 10.2
 
Zitat:

Zitat von Luckie (Beitrag 1404328)
Glaskugel sagt: "Mutt du achten auf Ansi und Uniode."

Auch wenn es schon 10 Jahre her ist, an deine Glaskugel erinnere ich mich noch.
Ich möchte hiermit ihre ordnungsgemäße Funktion bestätigen :lol:

Es lag an der Kodierung...


Vielen Dank Luckie!

diso 9. Jun 2018 04:21

AW: DLL einbinden Delphi7 vs Rad Studio 10.2
 
Das ist eine Beispiel/Test Anwendung für die ngspice dll, der Code stammt nicht von mir. (Auch wenn ich nicht wirklich fit bin hätte ich bestimmt nur Close verwendet :stupid: )

Danke auch dir himitsu =)

KodeZwerg 9. Jun 2018 19:35

AW: DLL einbinden Delphi7 vs Rad Studio 10.2
 
Ich las gerade das Du DLL mit einer CDECL Anweisung öffnest, da sollte dann immer der Memory Manager von Delphi an erster Stelle mitkompiliert werden, sonst kann es bei Daten-Übertragung (.exe <-> .dll) zu fehlern kommen.

EWeiss 9. Jun 2018 19:39

AW: DLL einbinden Delphi7 vs Rad Studio 10.2
 
Zitat:

Zitat von KodeZwerg (Beitrag 1404356)
Ich las gerade das Du DLL mit einer CDECL Anweisung öffnest, da sollte dann immer der Memory Manager von Delphi an erster Stelle mitkompiliert werden, sonst kann es bei Daten-Übertragung (.exe <-> .dll) zu fehlern kommen.

oops.. Dann muss ich viele Fehler in meinen Anwendung haben denn ich verwende ihn nie.

gruss

mkinzler 9. Jun 2018 20:06

AW: DLL einbinden Delphi7 vs Rad Studio 10.2
 
Nur wenn man Delphi-Strings verwendet.


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:21 Uhr.
Seite 1 von 2  1 2   

Powered by vBulletin® Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2018 by Daniel R. Wolf