CodePage-ID für Zeichensatz-name: GetEncoding äquivalent in Delphi?

Ich bin auf der Suche nach einem Win32-äquivalent .Net-Codierung.GetEncoding-Methode verwendet werden, in Delphi7.

Was ich erreichen möchte ist das konvertieren einer Codepage-ID (zB.: 28592) um einen Zeichensatz namens iso-8859-2 in diesem Fall).

Ich habe eine Win32-Funktion genannt GetCPInfoEx, aber das gibt eine lange CodePage name, und ich brauche die kurzen, wie die, die auf dieser Seite aufgeführt: (siehe Spalte Name)
http://msdn.microsoft.com/en-us/library/system.text.encoding.aspx

Danke!

  • Für Menschen mit den neuesten Versionen von Delphi(XE), haben wir-System.SysUtils.TEncoding.GetEncoding(CodePageId).EncodingName
InformationsquelleAutor Steve | 2010-04-04
  1. 7

    Hier ist mein look-up-Tabelle mit code, fühlen Sie sich frei, es zu benutzen.

    type
  TCPData = record
    CPID: Integer;
    CPName: String;
  end;

const
  MaxEncodings = 140;

  Encodings: Array[0..MaxEncodings - 1] of TCPData =
  (
    (CPID: 37; CPName: 'IBM037'),
    (CPID: 437; CPName: 'IBM437'),
    (CPID: 500; CPName: 'IBM500'),
    (CPID: 708; CPName: 'ASMO-708'),
    (CPID: 720; CPName: 'DOS-720'),
    (CPID: 737; CPName: 'ibm737'),
    (CPID: 775; CPName: 'ibm775'),
    (CPID: 850; CPName: 'ibm850'),
    (CPID: 852; CPName: 'ibm852'),
    (CPID: 855; CPName: 'IBM855'),
    (CPID: 857; CPName: 'ibm857'),
    (CPID: 858; CPName: 'IBM00858'),
    (CPID: 860; CPName: 'IBM860'),
    (CPID: 861; CPName: 'ibm861'),
    (CPID: 862; CPName: 'DOS-862'),
    (CPID: 863; CPName: 'IBM863'),
    (CPID: 864; CPName: 'IBM864'),
    (CPID: 865; CPName: 'IBM865'),
    (CPID: 866; CPName: 'cp866'),
    (CPID: 869; CPName: 'ibm869'),
    (CPID: 870; CPName: 'IBM870'),
    (CPID: 874; CPName: 'windows-874'),
    (CPID: 875; CPName: 'cp875'),
    (CPID: 932; CPName: 'shift_jis'),
    (CPID: 936; CPName: 'gb2312'),
    (CPID: 949; CPName: 'ks_c_5601-1987'),
    (CPID: 950; CPName: 'big5'),
    (CPID: 1026; CPName: 'IBM1026'),
    (CPID: 1047; CPName: 'IBM01047'),
    (CPID: 1140; CPName: 'IBM01140'),
    (CPID: 1141; CPName: 'IBM01141'),
    (CPID: 1142; CPName: 'IBM01142'),
    (CPID: 1143; CPName: 'IBM01143'),
    (CPID: 1144; CPName: 'IBM01144'),
    (CPID: 1145; CPName: 'IBM01145'),
    (CPID: 1146; CPName: 'IBM01146'),
    (CPID: 1147; CPName: 'IBM01147'),
    (CPID: 1148; CPName: 'IBM01148'),
    (CPID: 1149; CPName: 'IBM01149'),
    (CPID: 1200; CPName: 'utf-16'),
    (CPID: 1201; CPName: 'unicodeFFFE'),
    (CPID: 1250; CPName: 'windows-1250'),
    (CPID: 1251; CPName: 'windows-1251'),
    (CPID: 1252; CPName: 'Windows-1252'),
    (CPID: 1253; CPName: 'windows-1253'),
    (CPID: 1254; CPName: 'windows-1254'),
    (CPID: 1255; CPName: 'windows-1255'),
    (CPID: 1256; CPName: 'windows-1256'),
    (CPID: 1257; CPName: 'windows-1257'),
    (CPID: 1258; CPName: 'windows-1258'),
    (CPID: 1361; CPName: 'Johab'),
    (CPID: 10000; CPName: 'macintosh'),
    (CPID: 10001; CPName: 'x-mac-japanese'),
    (CPID: 10002; CPName: 'x-mac-chinesetrad'),
    (CPID: 10003; CPName: 'x-mac-korean'),
    (CPID: 10004; CPName: 'x-mac-arabic'),
    (CPID: 10005; CPName: 'x-mac-hebrew'),
    (CPID: 10006; CPName: 'x-mac-greek'),
    (CPID: 10007; CPName: 'x-mac-cyrillic'),
    (CPID: 10008; CPName: 'x-mac-chinesesimp'),
    (CPID: 10010; CPName: 'x-mac-romanian'),
    (CPID: 10017; CPName: 'x-mac-ukrainian'),
    (CPID: 10021; CPName: 'x-mac-thai'),
    (CPID: 10029; CPName: 'x-mac-ce'),
    (CPID: 10079; CPName: 'x-mac-icelandic'),
    (CPID: 10081; CPName: 'x-mac-turkish'),
    (CPID: 10082; CPName: 'x-mac-croatian'),
    (CPID: 12000; CPName: 'utf-32'),
    (CPID: 12001; CPName: 'utf-32BE'),
    (CPID: 20000; CPName: 'x-Chinese-CNS'),
    (CPID: 20001; CPName: 'x-cp20001'),
    (CPID: 20002; CPName: 'x-Chinese-Eten'),
    (CPID: 20003; CPName: 'x-cp20003'),
    (CPID: 20004; CPName: 'x-cp20004'),
    (CPID: 20005; CPName: 'x-cp20005'),
    (CPID: 20105; CPName: 'x-IA5'),
    (CPID: 20106; CPName: 'x-IA5-German'),
    (CPID: 20107; CPName: 'x-IA5-Swedish'),
    (CPID: 20108; CPName: 'x-IA5-Norwegian'),
    (CPID: 20127; CPName: 'us-ascii'),
    (CPID: 20261; CPName: 'x-cp20261'),
    (CPID: 20269; CPName: 'x-cp20269'),
    (CPID: 20273; CPName: 'IBM273'),
    (CPID: 20277; CPName: 'IBM277'),
    (CPID: 20278; CPName: 'IBM278'),
    (CPID: 20280; CPName: 'IBM280'),
    (CPID: 20284; CPName: 'IBM284'),
    (CPID: 20285; CPName: 'IBM285'),
    (CPID: 20290; CPName: 'IBM290'),
    (CPID: 20297; CPName: 'IBM297'),
    (CPID: 20420; CPName: 'IBM420'),
    (CPID: 20423; CPName: 'IBM423'),
    (CPID: 20424; CPName: 'IBM424'),
    (CPID: 20833; CPName: 'x-EBCDIC-KoreanExtended'),
    (CPID: 20838; CPName: 'IBM-Thai'),
    (CPID: 20866; CPName: 'koi8-r'),
    (CPID: 20871; CPName: 'IBM871'),
    (CPID: 20880; CPName: 'IBM880'),
    (CPID: 20905; CPName: 'IBM905'),
    (CPID: 20924; CPName: 'IBM00924'),
    (CPID: 20932; CPName: 'EUC-JP'),
    (CPID: 20936; CPName: 'x-cp20936'),
    (CPID: 20949; CPName: 'x-cp20949'),
    (CPID: 21025; CPName: 'cp1025'),
    (CPID: 21866; CPName: 'koi8-u'),
    (CPID: 28591; CPName: 'iso-8859-1'),
    (CPID: 28592; CPName: 'iso-8859-2'),
    (CPID: 28593; CPName: 'iso-8859-3'),
    (CPID: 28594; CPName: 'iso-8859-4'),
    (CPID: 28595; CPName: 'iso-8859-5'),
    (CPID: 28596; CPName: 'iso-8859-6'),
    (CPID: 28597; CPName: 'iso-8859-7'),
    (CPID: 28598; CPName: 'iso-8859-8'),
    (CPID: 28599; CPName: 'iso-8859-9'),
    (CPID: 28603; CPName: 'iso-8859-13'),
    (CPID: 28605; CPName: 'iso-8859-15'),
    (CPID: 29001; CPName: 'x-Europa'),
    (CPID: 38598; CPName: 'iso-8859-8-i'),
    (CPID: 50220; CPName: 'iso-2022-jp'),
    (CPID: 50221; CPName: 'csISO2022JP'),
    (CPID: 50222; CPName: 'iso-2022-jp'),
    (CPID: 50225; CPName: 'iso-2022-kr'),
    (CPID: 50227; CPName: 'x-cp50227'),
    (CPID: 51932; CPName: 'euc-jp'),
    (CPID: 51936; CPName: 'EUC-CN'),
    (CPID: 51949; CPName: 'euc-kr'),
    (CPID: 52936; CPName: 'hz-gb-2312'),
    (CPID: 54936; CPName: 'GB18030'),
    (CPID: 57002; CPName: 'x-iscii-de'),
    (CPID: 57003; CPName: 'x-iscii-be'),
    (CPID: 57004; CPName: 'x-iscii-ta'),
    (CPID: 57005; CPName: 'x-iscii-te'),
    (CPID: 57006; CPName: 'x-iscii-as'),
    (CPID: 57007; CPName: 'x-iscii-or'),
    (CPID: 57008; CPName: 'x-iscii-ka'),
    (CPID: 57009; CPName: 'x-iscii-ma'),
    (CPID: 57010; CPName: 'x-iscii-gu'),
    (CPID: 57011; CPName: 'x-iscii-pa'),
    (CPID: 65000; CPName: 'utf-7'),
    (CPID: 65001; CPName: 'utf-8')
  );

implementation

function GetEncoding(CPID: Integer): String;
var
  I: Integer;
begin
  Result := 'iso-8859-2'; //put the default encoding here

  for I := 0 to MaxEncodings - 1 do
    if Encodings[I].CPID = CPID then
    begin
      Result := Encodings[I].CPName;
      break;
    end;
end;

    Danke an alle für die Antworten, aber das erwies sich als das einzig brauchbare Lösung in diesem Fall...

    • In Indy 10 (indyproject.org), haben Sie einen Blick auf die lookup-Tabellen in seiner IdCharsets.pas-Einheit.
    • Wenn es um performance geht, mit THashedStringList statt eines Datensatzes verbessern könnte-lookup-Geschwindigkeit.
    InformationsquelleAutor Steve
  2. 2

    Sind Sie auf der Suche nach die IANA offiziellen Namen? Da Sie wollen, dass Sie korreliert zu Windows CP-IDS, ich glaube nicht, dass Sie tun können, besser als diese Tabelle.

    • Also im Grunde, ich haben werde, um meine eigenen lookup Tabelle?
    • es gibt viele codepages/Namen im Einsatz in der wildnis, die nicht in der MS Liste. @Steve - Ja.
    InformationsquelleAutor Ben Voigt
  3. 2

    Müssen Sie IMultiLanguage::GetCodePageInfo, exportiert MLang.dll. Es ist im Lieferumfang von Internet Explorer 4 und höher. Sie können die Bibliothek importieren, selbst mit Delphi Import-Komponente... Befehl, oder greifen MultiLanguage_TLB.pas von Colin Wilsons low-level utilities Paket.

    function CodePageToCharSet(ACodePage: Cardinal): string;
var
  MimeCPInfo: TMimeCPInfo;
  MultiLanguage: IMultiLanguage;
begin
  if Succeeded(CoCreateInstance(CLASS_CMultiLanguage, nil, CLSCTX_INPROC_SERVER,
     IID_IMultiLanguage, MultiLanguage)) and
     Succeeded(MultiLanguage.GetCodePageInfo(ACodePage, MimeCPInfo)) then
    Result := string(MimeCPInfo.wszWebCharset)
  else
    Result := 'US-ASCII';
end;
    • Danke für den code, es kompiliert aber in der Praxis hat es nicht funktioniert in einigen Fällen (zum Beispiel, die es nicht erkennen 28591 - iso-8859-1 das ist ein no-go). Bitte Lesen Sie meine "re-usable" Antwort unten 🙂
    • Überprüfen können. Allerdings, wenn Sie möchten, versuchen Sie die "IMultiLanguage2" - Schnittstelle. Es scheint, kehren die richtigen Saiten.
    • et alle - weil WebCharset nur gesetzt ist, wenn Sie benötigen, überschreiben Sie über "Familie" BodyCharset - drucken Sie einfach die Registrierung und betrachten ein wenig. Entwickler sollten neugierig sein, wirklich 🙂
    InformationsquelleAutor Zoë Peterson
  4. 1

    Ich denke du meinst die LCIDToLocaleName Funktion.

    • Ich glaube Gebietsschema-ids unterscheiden sich von Codepage-IDs. Gebietsschema-IDs enthalten, die Gebietsschema-Informationen, während die Codepage-IDs sind nur eine eindeutige ID, eine pro Zeichensatz iso-8859-2.
    InformationsquelleAutor Jeroen Wiert Pluimers
  5. 0
    type
  TCPInfoEx = record
    MaxCharSize: UINT;
    DefaultChar: array[0..MAX_DEFAULTCHAR - 1] of Byte;
    LeadByte: array[0..MAX_LEADBYTES - 1] of Byte;
    UnicodeDefaultChar: WideChar;
    CodePage: UINT;
    CodePageName: array[0..MAX_PATH - 1] of Char;
  end;

function GetCPInfoEx(CodePage: UINT; Flags: DWORD; var lpCPInfoEx: TCPInfoEx): BOOL;
    stdcall; external 'kernel32.dll' name 'GetCPInfoExA';

procedure TForm1.Button1Click(Sender: TObject);
var
  CPInfoEx: TCPInfoEx;
begin
  if GetCPInfoEx(28592, 0, CPInfoEx) then
    ShowMessage(CPInfoEx.CodePageName);
end;
    • Danke, aber hast du diesen code testen? Es ist der gleiche code, den ich ursprünglich mit und für mich ist es nicht nur das zurückgeben, das 'iso-8859-2' - string, aber einige andere Kauderwelsch Informationen als gut - ich bin nicht in der Lage, konsequent extrahieren Sie die aktuelle codepage-Namen aus,...
    • Steve, getestet habe ich für CPs unterstützt in meinem system und 'CodePageName' besteht aus der CP-Bezeichner und einem informativen text in paranthesis. Für die ex. für 28592 es gibt "28592 (ISO 8859-2 Central Europe)". Wenn das Parsen von text in der paranthesis nicht für Sie, ich denke, Sie hätte zu konstruieren, die eine lookup-Tabelle selbst.
    • Leider, durch analysieren der text war nicht möglich, da es keine Möglichkeit gibt, zu generieren, 'iso-8859-2" von " 28592 (ISO 8859-2 Central Europe)'; trotzdem Danke.
    • sicher, es ist. Drop-alles, was außerhalb und darunter die Klammer, Kleinschreibung der ISO-Wert, ersetzen Sie die Leerzeichen mit einem Bindestrich, und legen Sie den rest des Textes.
    InformationsquelleAutor Sertac Akyuz
  6. 0

    Verwenden Sie die Suche, Luke. Nur die alten guten text Suche. In RegEdit. Für jede cp-kurzer name, den Sie brauchen würde 🙂 und denken Sie daran, diese IDs sind wirklich Internet MIME-ids

    HKEY_CLASSES_ROOT\MIME\DataBase

    http://msdn.microsoft.com/en-us/library/ms775147.aspx dieser Seite Hinweise darauf, dass möglicherweise - nur möglicherweise -, dass Schlüssel vorhanden ist, da MSIE4 - in anderen Worten, da Windows 98

    uses
{$IfDef MSWINDOWS}Registry, Windows, {$EndIf}
AnsiStrings;

/// todo - add implementation for non-Windows platforms
/// if anyone would need it :-)
/// probably via http://sourceforge.net/projects/natspec/
function CharSetByCodePage(const cp:Word): AnsiString;
{$IfDef MSWINDOWS }
var reg: TRegistry;
begin
// HKEY_CLASSES_ROOT\MIME\DataBase\Codepage
  reg := TRegistry.Create(KEY_READ);
  try
    reg.RootKey := HKEY_CLASSES_ROOT;
    if reg.OpenKeyReadOnly('MIME\DataBase\Codepage\' + IntToStr(cp)) then begin
       Result := Trim(AnsiString(reg.ReadString('WebCharset'))); // This key prevails, see #1251 for example
       if Result = '' then
          Result := Trim(AnsiString(reg.ReadString('BodyCharset')));
       if Result > '' then exit;
    end;
  finally
    reg.Free;
  end;
  Raise EZXSaveException.Create('No charset (MIME id) found for codepage '+IntToStr(cp));
end;
{$Else}
begin
  Raise EZXSaveException.Create('Cannot get charset by numeric codepage on this platform.');
  //not implemented, perhaps http://sourceforge.net/projects/natspec/ ?
end;
{$EndIf}
    InformationsquelleAutor Arioch 'The
Schreibe einen Kommentar