Widestring à la conversion de chaîne en Delphi 7

mon application est un non-unicode application écrite en Delphi 7.

Je voudrais convertir les chaînes unicode en ANSI avec cette fonction :

function convertU(ws : widestring) : string;
begin
  result := string(ws);
end;

J'utilise également ce code pour définir le droit de codes à convertir.

initialization
  SetThreadLocale(GetSystemDefaultLCID);
  GetFormatSettings;

Il fonctionne très bien dans la VCL thread principal, mais pas dans un TThread,
lorsque je reçois des questions de marques '?' comme résultat de la fonction convertU.

Pourquoi pas dans un TThread ?

  • Tout d'abord, vous n'avez pas besoin d'une fonction ou d'un transtypage pour ce faire; un simple stringVar := wideStringVar; fonctionne. Deuxièmement, le problème est que pas toutes les WideChars sont directement convertibles en un AnsiString; certains le sont plus que d'un caractère dans la largeur, et certains ont des valeurs de caractère qui ne sont pas représentable dans un AnsiChar, et certaines polices ne contiennent pas tous les possibles valeurs Unicode. Si vous voyez ?, cela signifie que vous êtes l'affichage, ce qui pourrait être le troisième problème - fils ne doivent pas accéder aux contrôles d'interface utilisateur graphique sans utiliser Sychronize. Puisque vous n'avez pas de poste le code complet, il est difficile de dire si c'est le cas.
  • La question est : pourquoi dois-je obtenir des points d'interrogation dans le cas de TThread ?
  • Je le répète: Si vous voyez ?, vous êtes à l'affichage du texte. Vous avez fournis, zéro code ou d'information concernant la façon dont vous êtes l'afficher.
  • J'ai un regard sur les valeurs renvoyées avec le débogueur
  • Est un TThread conscient de la valeur par défaut du système LCID ?
  • ? est ce que vous obtenez lors de la conversion d'un codepoint Unicode à MBCS échoue. Puisque vous parlez du contenu d'un AnsiString, et depuis ? Est dans la commune de la plage ASCII, nous pouvons exclure bugs d'affichage.

InformationsquelleAutor user382591 | 2012-09-09
  1. 5

    Appel SetThreadLocale() à l'intérieur d'un initialization bloc n'a pas d'effet sur TThread. Si vous souhaitez définir un thread locale, vous devez appeler SetThreadLocale() à l'intérieur de la TThread.Execute() méthode.

    Une meilleure option est de ne pas s'appuyer sur SetThreadLocale() à tous. Faire votre propre conversion en appelant WideCharToMultiByte() directement de sorte que vous pouvez spécifier les page de codes Ansi convertir.

    • Je vous remercie pour votre aide. Il fonctionne !!!
    • Si vous êtes l'auteur de tout le code de votre application, puis des appels explicites à WideCharToMultiByte est une option viable. Si vous incluez du code tiers, puis passer à l'échelle de réglage de la locale peut être le meilleur compromis.
    • oui. merci. J'utilise un mélange des deux, maintenant : WideCharToMultiByte ET SetThreadLocale()
    • Pourquoi avez-vous besoin d'utiliser les deux?
    • Parce que j'ai commencé à utiliser WideCharToMultiByte premier, mais je pense que je vais supprimer les appels à cette fonction et d'utiliser uniquement SetThreadLocale pour chaque thread.
    • Autant que je sache SetThreadLocale ne pas modifier le système actuel de Page de Code, afin de ne pas affecter la widestring à ansistring conversion en Delphi 7, qui s'appuient sur GetACP appel d'API.

    InformationsquelleAutor Remy Lebeau
  2. 6

    Autant que je sache SetThreadLocale ne pas modifier le système actuel de Page de Code, afin de ne pas affecter la widestring à ansistring conversion en Delphi 7, qui s'appuient sur GetACP appel d'API, c'est à dire le système de Page de Code.

    Le système de Code de Page est définie par exemple dans Windows Seven dans le Panneau de Contrôle, puis de la Région de Langues /onglet Administration /Code de la Page pour les non Unicode Applications. Cela nécessite un redémarrage du système.

    Delphi 7 utilise ce système de Page de Code, la fourniture de 0 à tous de conversion les appels d'API. Donc AFAIR SetThreadLocale n'affectera pas le widestring à ansistring conversion en Delphi 7. Il va changer les paramètres régionaux (par exemple, la date/heure et de la monnaie mise en forme), pas de la page de code utilisée par le système pour ses Ansi <-> conversion Unicode.

    Les nouvelles versions de Delphi ont un SetMultiByteConversionCodePage() de fonction, mesure de définir la page de code utilisée pour tous les AnsiString de la manipulation.

    Mais les appels d'API (c'est à dire tous ....A() fonctions dans Windows.pas qui sont mappés par ...() dans Delphi 7) utilisez cette page de code système. Donc, vous devrez appeler la ...W() large API après une conversion en Unicode si vous souhaitez gérer une autre page de code. C'est, Delphi 7 VCL fonctionne qu'avec le système de code de la page, pas la valeur spécifiée par SetThreadLocale.

    Sous Delphi 7, mon conseil est:

    • Utilisation WideString partout, et spécifique "Large" des appels d'API - il y a plusieurs ensemble de composants pour Delphi 7 la poignée de WideString;
    • Utiliser vos propres types, avec un jeu de caractères, mais vous aurez besoin d'une conversion explicite avant d'utiliser la VCL/RTL ou "Ansi" les appels d'API - par exemple MyString = type AnsiString (c'est ce que nous faisons dans mORMot, par la définition d'un personnalisé RawUTF8 type interne UTF-8).

    C'est beaucoup mieux géré avec Delphi 2009 et, depuis, vous pouvez spécifier une page de code pour chaque AnsiString type, et de gérer correctement la conversion de/vers l'Unicode, pour les appels API ou VCL processus.

    • +1 je crois que c'est correct.
    • Je veux juste gérer le système par défaut de la page de codes. Ce que j'ai remarqué, c'est que pour l'Unicode<->conversion Ansi, la page de code utilisée est la valeur par DÉFAUT de l'utilisateur LCID et pas le système par DÉFAUT LCID et c'est un problème.
    InformationsquelleAutor Arnaud Bouchez