Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Prism Übergeben von langen Strings und Records an Win32-DLL? (https://www.delphipraxis.net/81987-uebergeben-von-langen-strings-und-records-win32-dll.html)

Wormid 6. Dez 2006 11:03


Übergeben von langen Strings und Records an Win32-DLL?
 
Hallo Forum,

wir haben hier das Problem, das wir eine DLL haben, die diverse Funktionen zu Verfügung stellt, die wir sowohl aus einer
Win32-Anwendung heraus, als auch aus einer Delphi.NET-Anwendung benutzen müssen.

Beispielhaft hier mal ein oder zwei Funktionen die die Test.dll uns zur Verfügung stellt:

Delphi-Quellcode:
library Test;

uses
  ...;

type
  TMyTestStruct = record
    BoolVal: Boolean;
    IntegerVal: Integer;
    StringData: array of ShortString;
  end;

procedure __test_write_string(Value: PChar); stdcall;
begin
  ...
end;

procedure __test_write_struct(Value: TMyTestStruct); stdcall;
begin
  ...
end;

exports
  __test_write_string,
  __test_write_struct;

end.
Aus der Win32-Anwendung heraus kann ich die Funktionen problemlos benutzen, aber in ein .NET-Programm bekomme ich sie nicht importiert.
Funktionen mit einfachen Datentypen wie Integern funktionieren wunderbar, aber sobald ShortStrings, PChars oder Records mit ins Spiel kommen,
bin ich mit meinem Latein am Ende...

Mit freundlichem Gruß

Wormid

MacGuyver 6. Dez 2006 12:49

Re: Übergeben von langen Strings und Records an Win32-DLL?
 
Moin auch :hi:

Ist ein Record nicht ein Struct in C#? Dann nimm doch "StringData: array of PChar" und nimm vor StringData noch ein Integer für den StringDataCount. Bei einem dynamischen Array darfst du nicht vergessen, daß Length auch noch irgendwo gespeichert ist. Darum kannst du das Teil so nicht übergeben. Hast du einen Maximalwert für das StringArray? Was sonst auch noch gut wäre, ist eine Stringliste. Das Teil, wo du in einen String oder PChar einen String packst, wo die Zeilen mit #13 umgebrochen sind. Bei einer maximalen Länge von 2GB paßt da schon ein bißchen rein.

Stefan

himitsu 6. Dez 2006 13:12

Re: Übergeben von langen Strings und Records an Win32-DLL?
 
Dynamische Stukturen, wie Strings und Arrays (ausghenommen WideStrings) werden vom MemoryManager verwaltet und da standardmäßig jede Delphi-Anwendung (EXE/DLL) ihren eigenen MM mitbringt, der nur für sie den Speicher verwaltet, kann man da nicht so einfach was weiterreichen und dann ist die RTTI oftmals auch noch Anwendungsabhängig -.-''

Also du könntest auf ja auf feste Strukturen umsteigen, diese würden dann nach C prtierbar sein.

Code:
TMyTestStruct = record
    BoolVal: Boolean;
    IntegerVal: Integer;
    StringData: array[color=#ff003f][0..123][/color] of ShortString;
  end;
Notfalls könnte man es ja auch noch so deffinieren, daß es keine systemspezifischen Typen und Ausrichtungen gibt.
Dieses wäre dann z.B. ein Record, der in jedem Delphi immwer gleich aufgebaut ist und keine nur Delphi-typischen Strukturen aufweißt:
Code:
TMyTestStruct = [color=#ff003f]packed[/color] record
    BoolVal: [color=#ff003f]LongBool[/color]{BOOL};
    IntegerVal: [color=#ff003f]LongInt[/color];
    StringData: array[color=#ff003f][0..123][/color] of [color=#ff0000]Array[0..123] of Char[/color]{AnsiChar};
  end;

Wormid 6. Dez 2006 15:54

Re: Übergeben von langen Strings und Records an Win32-DLL?
 
Hmm,

bei unserer Versucherei ist bisher rausgekommen, das der Austausch von langen Strings über PChar wunderbar zwischen der Win32-DLL und
der .NET-Anwendung funktioniert. Den ShortString-Typen kann man scheinbar nicht so in der Form benutzen, was auch nicht weiter schlimm ist.

Morgen werden wir das mal weiter testen, ob das mit fixen Strukturen besser geht, bzw. überhaupt funktioniert.

Gruß

Wormid


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:55 Uhr.

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