ADO Sql.LoadFromFile ungültige Zeichen

[Boppe]

Hallo Zusammen!
Ich habe versucht eines meiner Projekte von Delphi 7 auf Delphi 2007 zu portieren. Die ADO Queries laden die Sql Statements zur Laufzeit aus verschiedenen Textdateien.

Komischerweise bekomme ich nur Fragezeichen bzw ungültige Zeichen zurück.

Kann mir irgendjemand sagen woran das liegen könnte?

Delphi 2007 prof., Windows Vista, Textfile Codierung ansi

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Boppe.

Wie hast du sicher gestellt, dass die Textdateien wirklich ANSI-kodiert sind? Stimmen tatsächliche und erwartete Größe überein? Kannst du ein Beispiel hier anhängen?

Freundliche Grüße vom marabu

[Boppe]

Hallo marabu!
besten Dank für die prompte Antwort.

Die Textdateien habe ich hatte ich unter UltraEdit als ANSI gespeichert - ergo gehe ich davon aus, dass das auch der Wahrheit entspricht

Anbei die Textdatei mit dem Statement. Nix weltbewegendes genau wie der Aufruf

Delphi-Quellcode:

....
QueryResetMessages:= TAdoQuery.Create(nil);
with QueryResetMessages do
begin
 Connection := DBSource;
 Sql.LoadFromFile(ExtractFilePath(Application.Exename)+'\SQL\MailGateway.MessageReset.SQL');
 try
    ExecSql;
 except
    on e: EADOError do
      raise e.Create(e.Message);
 end;
end;
....

Wenn ich mir vor dem open ShowMessage(Sql.Text); ausgeben lasse, erhalte ich nur Fragezeichen bzw. wenn ich den open ausführe die Fehlermeldung

Zitat:

Falsche Syntax in der Nähe von '0x2073'

. Bei CodeGear soll diesbezüglich in der QC irgendwo ein Bugreport stehen (http://qc.borland.com/qc/wc/qcmain.aspx?d=25811) ist allerdings nicht mehr auffindbar.

[Bernhard Geyer]

Fehler in der VCL.

Das Proprety Sql ist als TWideStrings definiert, aber die Klasse TWideStringList kann nur Unicode-Textdateien mit einer festen Byteorder laden. Hat da keiner nachgedacht das hier alle Varianten (ANSI/UTF8/UCS2 mit beiden Byteorders nötig wäre)?

Nimm als Helfer eine TStringlist und lade dort die (ANSI)-Textdatei.

Ich denke da ist ein QC-Report angesagt...

[marabu]

Hallo,

die angehängte Datei ist einwandfrei ANSI-kodiert. Da ich nicht mit der neuen Delphi-Version arbeite, hoffe ich, dass ein anderes DP-Mitglied etwas zu dem von dir vermuteten Bug schreiben kann. Meine Vermutung ist, dass ANSI-Code eingelesen und als UTF-16 interpretiert wird, allerdings ist 0x2073 kein Bestandteil deiner angehängten Datei (Leerstelle gefolgt von lowercase s).

Freundliche Grüße

[Bernhard Geyer]

QC-Report
Wenn ihr wollt könnt ihr ja Voten - Ist mein neuer nachdem der Orginal (25811) nicht mehr zu finden ist.

[marabu]

Hallo Bernhard,

müssten da nicht noch ältere Einträge sein? Der Fehler scheint mindestens ein Jahr älter zu sein, als der QC-Eintrag.

klick

Freundliche Grüße

[Boppe]

Hallo Bernhard!
Vielen Dank für die schnelle Antwort und das Ticket.

Da scheint wirklich irgendjemand gepennt zu haben.

[Bernhard Geyer]

Zitat von Boppe:

Da scheint wirklich irgendjemand gepennt zu haben.

Hätten Sie die TNTWare-Kompos gekauft (und würden sie auch verstärkt in der VCL einsetzen) wäre/würde uns mancher offensichtlicher Fehler/Mangel erspart bleiben.