Hallo!

Folgendes Problem: MEINE Hauptanwendung und Datenbank sind durchgehend in Unicode realisiert, Sonderzeichen und Fremdsprachen funktionieren in MEINER Anwendung wunderbar. Jetzt habe ich ein "tolles" Warenwirtschaftssystem, das ich über Importdateien mit Belegen füttere. Dieses WaWi ist NICHT von mir und nicht vollständig Unicode-fähig. Die Dateischnittstelle möchte gerne ANSI-Codierung vorfinden.

Jetzt kann sich jeder denken was passiert: Ich gebe eine "Hauptstraße" hinein und bekomme eine "Hauptstra?e" heraus. Was kann ich sinnvollerweise tun, damit wenigstens solche Zeichen übernommen werden die im erweiterten ASCII-Zeichensatz enthalten sind? Auf Kyrillisch und Mandarin kann ich da gut verzeichen, aber ein "ß" sollte schon machbar sein. Gibt es vorgefertigte "Transcode"-Funktionen für sowas?

Grüße
Cody

Bisschen Code?

Weil ß geht immer.

Erstelle die Datei mit dem entsprechenden Encoding und schreibe einfach die Daten hinein.

Z.B. mit http://docwiki.embarcadero.com/Libra...s.SaveToStream da kann man die Codierung mit angeben
oder direkt in eine Datei mit http://docwiki.embarcadero.com/Libra...ngs.SaveToFile

@Sir Rufo: Genau das dachte ich auch immer. Aber so einfach ist der Spaß anscheinend nicht:

zusammenfalten · markieren

Delphi-Quellcode:

var
  F, FTmp, FTarget, FOk, FErr, FErrDesc: TFileName;
  Q, Q2: TUniQuery;
  SL: TStringList;
  sSql, FileContent: string;
  Writer: TStreamWriter;
begin
    sSql:= 'SELECT * FROM sync_jobs WHERE file_written=0;';
    if QuerySQL(sSql, Q) > 0 then begin
      while not Q.Eof do begin
        F:= Q.FieldByName('filename').AsString;
        FTarget:= IncludeTrailingPathDelimiter(FFolderBase) + F;
        FileContent:= Q.FieldByName('filecontent').AsString;
        FTmp:= TPath.GetTempPath + TPath.GetGUIDFileName;
        Writer:= TStreamWriter.Create(FTmp, FALSE, TEncoding.ASCII);
        try
          Writer.Write(FileContent);
        finally
          FreeAndNil(Writer);
        end;
        if TFile.Exists(FTarget) then TFile.Delete(FTarget);
        if TFile.Exists(FTmp) and not TFile.Exists(FTarget) then begin
          TFile.Move(FTmp, FTarget);
          if TFile.Exists(FTarget) then begin
            sSql:= Format('UPDATE sync_jobs SET file_written=1 WHERE filename=''%s'' LIMIT 1;', [F]);
            ExecuteSQL(sSql, Q2);
          end;
        end;
        Q.Next;
      end;
    end;

EDIT: Hat sich erledigt. War wohl ne Denkblockade ^^ Lösung: Writer:= TStreamWriter.Create(FTmp, FALSE, TEncoding.ANSI);

Sollte das nicht
Writer:= TStreamWriter.Create(FTmp, FALSE, TEncoding.ANSI); sein? Was erwartet das WAWI System einfach ANSI oder eine Spezielle Ansi Codepage?

Zitat von Fritzew:

sein? Was erwartet das WAWI System einfach ANSI oder eine Spezielle Ansi Codepage?

Genau das habe ich den Support dort auch gefragt. "ANSI" war die einzige Antwort auf die Frage. Die erwartete Codepage kann man per Konfiguration zwischen "DOS" und "WIN" wählen. Wobei nirgends genau definiert ist was damit gemeint ist (z.B. win1252 oder cp867). Da wird wohl Try&Error helfen

DOS=CP437 WIN=win1252
für den deutschen Sprachraum wird es wahrscheinlich so sein.
Du solltest etwas nachsichtiger sein, für viele Menschen hört auch die Welt hinter Ihrem Horizont auf.

Gruß
K-H