Griechischen Unicode in Interbasetabelle

[Koolance]

Demnächst kommt die Aufgabe ein Delphi 6 Programm für Griechenland zu lokalisieren darauf bereite ich mich zurzeit vor.

Im Moment probiere ich eine in Excel vorliegenden Preisliste zu importieren.

Die griechischen Texte liegen dank Excel in Unicode (UTF-8) vor, als Datenbank verwende ich Interbase 7.5 mit dem WIN1253 Zeichensatz. Wenn ich die Preisliste als CSV speichere und gehen die Sonderzeichen kaputt, als Unicode kann ich sie nicht einlesen.
Über Delphi kann ich bereits wunderbar Griechisch in die DB kriegen, vielleicht kann ich die Zeichen auf Byteebene irgendwie mit Delphi konvertieren, aber das wäre leider sehr kompliziert, und ich habe keine Ahnung wie das geht… :(

Oder kennt jemand ein Programm mit dem ich Unicode in einen beliebigen Zeichensatz umwandeln kann?

[Ydobon]

Leider kein Programm, sondern nur eine API-Funktion;

Delphi-Quellcode:

function MultiByteToWideChar(
  CodePage: UINT;
  dwFlags: DWORD;
  const lpMultiByteStr:
  LPCSTR; cchMultiByte: Integer;
  lpWideCharStr: LPWSTR;
  cchWideChar: Integer): Integer;

Für Griechisch ist CodePage = 1253.

[Koolance]

Dank dir, bin im Moment leider zu schwer im stress um in der Richtung zu experimentieren, werde es aber nächste woche ausprobieren.