Ich bin leider gezwungen, eine .dll zu Nutzen, dessen Signatur eine IP-Adresse in PChar verlangt:

markieren

Code:

IPS7Open (IPAdr : PChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord) : LongInt; stdcall; external 'IPS7LNK.DLL';

Diese Compiler-Warnung verfolgt mich schon lange im Schlaf, da ich trotz langer googlereien keine Moeglichkeit finde, galant zu Typen/Casten.

markieren

Code:

[dcc32 Warnung] TCP.pas(170): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'AnsiString'

Mein aktueller Aufbau abstrahiert

markieren

Code:

var
  IP: AnsiString;
  IPvonAusserhalbEingelesen: String;
begin
  //...
  IP := AnsiString(IPvonAusserhalbEingelesen);
  Connection.ref := IPS7Open( PChar(IP), Connection.Rack { ... } );

Natuerlich kann ich die Signatur der .dll nicht aendern. Was ist die eleganteste Loesung die Warnung loszuwerden?
Ich hab die Zeile Connection.ref := {...} mal mit

markieren

Code:

{$WARN IMPLICIT_STRING_CAST OFF}
{$WARN IMPLICIT_STRING_CAST_LOSS OFF}

und ON ON ummantelt, kriege die Warnung aber trotzdem. Ich habe noch nicht oft mit CompilerFlag-Aenderungen On-The-Fly gearbeitet. Wahrscheinlich muss ich die woanders setzen...

Schoener waere natuerlich eine "echte" Loesung anstatt einfach die Warnung wegzumogeln.

Was erwartet die DLL denn nun, einen PAnsiChar oder einen PWideChar? PChar ist ja nur ein Alias für den einen oder anderen Typen, je nach Delphi-Version.

[edit] Nach einer kurzen Recherche scheint es ANSI zu sein. Dann würde ich zunächst die Importdatei ändern:
IPS7Open (IPAdr : PAnsiChar; Rack : LongWord; Slot : LongWord; RxTimeout : LongWord; TxTimeout : LongWord ; ConnectTimeout : LongWord) : LongInt; stdcall; external 'IPS7LNK.DLL'; und dann den Aufruf:

markieren

Delphi-Quellcode:

var
  IP: AnsiString;
  IPvonAusserhalbEingelesen: String;
begin
  //...
  IP := AnsiString(IPvonAusserhalbEingelesen);
  Connection.ref := IPS7Open( PAnsiChar(IP), Connection.Rack { ... } );

[/edit]

Zitat von DeddyH:

Was erwartet die DLL denn nun, einen PAnsiChar oder einen PWideChar? PChar ist ja nur ein Alias für den einen oder anderen Typen, je nach Delphi-Version.

Den, fuer den PChar das Alias in Delphi 10.1 Seattle ist , denn es funktioniert so wie geschrieben.
Welcher waere das?

Ich habe meinen vorherigen Beitrag editiert. Funktioniert es so?

Yes, many Thanks!

Ich bin irgendwie nicht darauf gekommen, die Import Signatur zu aendern.
Ich hatte immer im Kopf, dass die .dll fix diese Typen braucht. Dass davon einer uneindeutig gewaehlt ist, ist mir nicht eingefallen.

Danke!

Jupp, Schnittstellen (DLL) und Transportformate (Dateien) müssen immer feste Typen besitzen,
außer es wird mitgegeben welches Format gerade verwendet wird.

Hier kommt es natürlich auf das Format der DLL an und dein Import muß das richtige Format verwenden.

PS: Warum es hier geknallt hat:
Delphi kann/darf bei ziwschen PAnsiChar und PWideChar die referenzierten Daten nicht konvertieren.
Bei AnsiString <> UnicodeString geht da, da dort eine dem Delphi bekannte Speicherverwaltung dahinter liegt und Delphi somit die Daten und deren Speicher (als Kopie) verändern kann.

Hoffentlich hab ich Recht (Pchar=PAnsiChar), dann verstehe ich die Warnung nicht, denn an  IP := AnsiString(IPvonAusserhalbEingelesen); ist eigentlich nicht viel implizites.

Gruß
K-H