Unterschied Delphi7 und Delphi XE5

[juelin]

Hallo,
ich habe ein Problem und hoffe jemand kann mir helfen.
Ich lese Laserintefaces aus (speziell LUMAX).
Dazu benutze ich FTD2XX.dll
und daraus die Funktionen:
s:=LW_CreateDeviceInfoList(adev);
if s = 0 then
begin
if adev > 0 then
begin
ldr1:=@DevLists;
num:=1;
ldr2:=@num;
s:=LW_GetDeviceInfoList(ldr1, ldr2);
if s = 0 then
begin
Damit lade ich die Devlist:
type T_SerNum = record
wsernum: array[0..15] of char;
end;

type T_Descript = record
wdes: array[0..63] of char;
end;

type T_DevList = record
Flags: integer;
dType: integer;
dID: integer;
LocId: integer;
SerialNumber: T_SerNum;
Description: T_Descript;
ftHandle: THandle;
end;

Die beiden Felder SerialNumber und Description sind Type char.

Nun zu meinen Problem.
Wenn ich das Programm mit Delphi7 laufen lassen stehen in den Feldern
SerialNumber und Description vernüftige Werte drin.
>LX2UUK05<
Wenn ich das Programm mit Delphi XE5 laufen lassen stehen in den Feldern
SerialNumber und Description Schrott drin.
>塌唲䭕㔰豈'#$12'弼瞽楍楮畬慭⁸楌桧<


Hat da jemand eine Ahnung?
Danke und Gruß
Jürgen

[Fritzew]

Seit Delphi2009 ist CHAR = WideChar (2 Byte) Utf16

Ändere das auf:

Zitat:

type T_SerNum = record
wsernum: array[0..15] of AnsiChar; // Ansichar (1 Byte)
end;

type T_Descript = record
wdes: array[0..63] of AnsiChar; // Ansichar (1 Byte)
end;

Hier ein link:
https://www.embarcadero.com/images/o...code181213.pdf

Und auch das stöbern hier wird Dir helfen

[juelin]

super, danke das war es.