[D2009] Unicode in Ansi wandeln (und umgekehrt)?

[Whookie]

Hallo zusammen!
Ich hab nun mit D2009 einwenig gespielt und meine Libraries zu großen Teilen portiert. Übrig geblieben ist momentan die Frage, wie man korrekt Unicode Strings in ANSI-Strings zurückwandelt, wenn das von einer Funktion benötigt wird. Bzw. wie Ansi-Strings in Strings zu wandeln sind. Als Beispiel mag folgende Routine dienen:

Delphi-Quellcode:

Type
  PPInAddr= ^PInAddr;

Function GetIpFromName(const Lines:TStrings; const AHost: String): Boolean;
Var
  iWSA: TWSAData;
  HostInfo: PHostEnt;
  Addr: PPInAddr;
  s: AnsiString;
Begin
  Result := False;
  If WSAStartUp(CSTACK_VERSION, iWSA) = 0 Then
  Begin
    s := AHost;                              // <- Warning! [DCC Warnung] iphlp.pas(125): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'AnsiString'
    s := AnsiString(AHost);                  // <- korrekt???
    HostInfo:= GetHostByName(PAnsiChar(s));
    Result:=HostInfo <> NIL;
    If Result Then
    Begin
      Addr:=Pointer(HostInfo^.h_addr_list);
      If (Addr <> NIL) And (Addr^ <> NIL) Then
      Begin
        Repeat
          Lines.Add(StrPas(inet_ntoa(Addr^^)) ) ;           // <- Warning: [DCC Warnung] iphlp.pas(134): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
          Lines.Add( String(StrPas(inet_ntoa(Addr^^))) ) ;  // <- korrekt?
          Inc(Addr);
        Until Addr^ = NIL;
      End;
    End;
    WSACleanup;
  End;
End;

[Prototypjack]

Moin,

Ich weiß ja nicht genau was du vorhast, aber AnsiStrings in UnicodeStrings zu wandeln dürfte mit einer einfachen Zuweisung funktionieren.

Die andere Richtung ist aber ohne Verluste gar nicht möglich (sobald du Unicode-Zeichen verwendest), deswegen warnt der Compiler.

Grüße,
Max

[Whookie]

Sorry, ich verstehe Deine Antwort nicht?

Vielleicht sollte ich das obige Beispiel einfacher machen?

Andererseits weiß ich nicht wie ... die erste Warning kommt weil ich einen UnicodeString in einen Ansi-String wandle, da es sich dabei um eine IP-Adresse oder einen Rechnernamen handelt und die Windows API-Funktion GetHostByName() selber Ansi benötigt bleibt mir garnichts anderes übrig als umzuwandeln - ob Verluste auftreten oder nicht (!!!) - die Frage war vielmehr *wie* wandle ich korrekt um (gibt es eine Funkion dafür? .. Kriege ich raus ob die Wandlung erfolgreich war? ...)

Die zweite Warning zeigt das eben nicht automatisch umgewandelt wird - sonst käme ja keine Warning - also reicht hier der Typecast oder ist auch hier eine Funktion zum Umwandeln nötig?

Ich hoffe, dass ich mich jetzt verständlich ausgedrückt habe ...

TIA

[EWeiss]

Hab mal die Trail installiert um meine DLL anzupassen
Habe das gleiche problem.

DeviceName := BASS_RecordGetInputName(i); DeviceName : PAnsiChar wird von BASS_RecordGetInputName zurück geliefert.
Konvertiert..
ComboBox1.Items.Add(string(StrPas(DeviceName))); Sollte richtig sein denn die Meldung

Zitat:

[DCC Warnung] Unit1.pas(425): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'

kommt dann nicht mehr.
Das wirft die Meldung aus.
ComboBox1.Items.Add(StrPas(DeviceName)); Sieht das jemand anders ?

gruss Emil

[cookie22]

nimmt delphi nicht typecasts bei zuweisungen in componeten automatsch vor?

ComboBox1.Items.Add(StrPas(DeviceName)); eigentlich sollte auch das reichen.

wenn du allerdings versuchst, unicode auf ansi zu casten, wirst du unter umständen daten verlieren, wie max ja schon erklärt hat.