Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   DLL in x64 und x32 LoadLibrary and FreeLibrary -> MATLAB (https://www.delphipraxis.net/168428-dll-x64-und-x32-loadlibrary-freelibrary-matlab.html)

bernhard_LA 21. Mai 2012 14:38

DLL in x64 und x32 LoadLibrary and FreeLibrary -> MATLAB
 
wir verwenden eine DLL als Schnittstelle zwischen MATLAB und DELPHI.
Im x32 mode geht alles fehlerfrei (DELHI DLL + MATLAB + C CODE), nur in der aktuellen Version im x64 Bit Mode bekommen wir
im C Code / Matlab Code eine AV bei dem Befehl
Delphi-Quellcode:
FreeLibrary(...)
.

Da alles im x32 Mode und unter Delphi sogar im x32 und x64 Mode spielt, folgende Frage :
  • gibt es ein DLL Test Tool,
  • gibt es im x64 Mode etwas in meiner DELL das DELPHI als Aufrufer der DLL kann , jedoch nicht MATLAB ?? Tip's für ein Tool zum Debuggen ?

Zacherl 21. Mai 2012 17:24

AW: DLL in x64 und x32 LoadLibrary and FreeLibrary -> MATLAB
 
Zeig mal bitte etwas Code vom Dll Einsprungspunkt (DllMain). Soweit ich weiß, kann man den Delphi Debugger an einen laufenden Prozess attachen und dann auch DLLs debuggen.

bernhard_LA 21. Mai 2012 18:25

AW: DLL in x64 und x32 LoadLibrary and FreeLibrary -> MATLAB
 
ich denke wir machen alles richtig :-D , für Funktionen die PChar oder ANSI Char als Rückgabewert haben gibt es immer ne globale Variable
leider haben wir von unserem Matlab / C++ code noch keine Exe, zumindest noch nicht auf unserm Testrechner. Daran versuchen wir uns jetzt als nächstes,
Matlab *.exe und dann im Delphi Debugger die dll testen.



Der Felher scheint im String Handling zu liegen, vermutlich werden bei der Übergabe von Zeichen an die DLL falsche Zeichen hinzugefügt




Delphi-Quellcode:

library delphi2matlabTESTDLL;

{ ****************************************************************************
  *      BASIC TEST DLL
  *
  *
  *
  *  version 2 : Exchange parameter String -> PChar
  *
  ****************************************************************************}


uses
  Sharemem,
  Classes,
  Dialogs;


{$R *.res}
{$I C:\code_shared_libraries\librarySuffix.inc} (* a include´file with library definitions *)


var     aResult : String;


function DllMessage : Boolean; stdcall;
begin
          ShowMessage('Greeting to you .... Date 21.05.2012') ;

          result := true;
end;

function Add_number(  x, y : Integer) : Integer; stdcall;
begin

      result := x + y ;

end;

function Multiply_number(  x, y : real): Real; stdcall;
begin

      result := x * y ;

end;


function Get_string(  x : PChar): PChar; stdcall;
begin

      aResult := 'this is just a simple test ( ' + String(x) + ') for a pchar function result ' ;


      result := PChar(aresult);

end;



exports

       DllMessage,

       //  test function
       Add_number,

       Multiply_number,

       Get_string;

//------------------------------------------------------------------------------
begin
end.

bernhard_LA 24. Mai 2012 11:31

AW: DLL in x64 und x32 LoadLibrary and FreeLibrary -> MATLAB
 
wir erzeugen jetzt eine *.exe mit Matlab via deloyment tool.
Im XE2 Debugger wählen wir dann die *.exe als HOST, mit einem Haltepunkt auf eine Funktion die eine Zeichenkette als PChar emfängt zeigt sich jetzt folgenden Fehler


MatlAB sendet z.b. einen Pfad als : c:\temp\myfiles\data\in der Delphi Function getPath (aPath : PChar) kommt aber im Debugger folgendes an
c:\temp\myfiles\data\YY , zwei drei ... Zeichen werden am Ende angefügt ....
welches Programm ist jetzt schuld?

bernhard_LA 6. Jun 2012 17:02

AW: DLL in x64 und x32 LoadLibrary and FreeLibrary -> MATLAB
 
Zur Info :


vermutlich kann der C Compiler in Matlab egal welche Version R2009 ... R2011 nur PAnsiChar, dh. egal ob wir im x64 mode oder x32 mode mit Matlab C Code kompilieren -
von Matlab kommt immer nur AnsiChar und kein UniCode - mit dieser Info spielt jetzt alles bei uns


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:26 Uhr.

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