Hallo,

was muss ich machen um folgendes zu erreichen: Text in ein TEdit Feld eingeben, diesen über einen TUniQuery in einer Firebird Tabelle speichern.
Beliebigen Text aus der DB auslesen und als Caption anzeigen (TLabel, TButton, ...)
Muss ich etwas bestimmtes beim TUniQuery einstellen, wie müsste das Feld in der DB definiert sein (Varchar, Characterset, Collation) ?

Zur Zeit wird in der DB alles als '?' angezeigt !

Als Texte: Deutsch, Englisch, Russisch, Chinesisch, Französisch, Dänisch, usw...

Grüße
user0815

Stichwort auf DB-Seite ist UTF-8 und auf Delphi-Seite D2009 oder neuer.

Nutze Database Workbench v4.3.2 Pro, habe dort eine Test Tabelle angelegt (DDL):

markieren

Code:

CREATE TABLE SPRACHE
(
  TAG_ID             INTEGER        NOT NULL,
  DE                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UTF8,
  EN                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UTF8,
  CN                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UNICODE_CI,
  CC                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UNICODE_CI_AI,
  CT                 VARCHAR(   255) CHARACTER SET UTF8  COLLATE UNICODE,
 CONSTRAINT PK_SPRACHE PRIMARY KEY (TAG_ID)
);

Füge ich jetzt diesen Text "Администрирование" in alle Felder manuell ein, so werden nach dem Verlassen des Feldes nur Fragezeichen angezeigt.

zusammenfalten · markieren

Delphi-Quellcode:

  with Datenmodul.UniQuery1 do
  begin
    close;
    SQL.Clear;
    SQL.Add('SELECT DE, EN, CN, CC, CT');
    SQL.Add('FROM SPRACHE');
    SQL.Add('WHERE TAG_ID = :ID;');
    ParamCheck := true;
    ParamByName('ID').AsInteger := 1;
    Open;
    Edit1.Text := FieldByName('CT').AsString;
    Label1.Caption := FieldByName('CT').AsString;
    Memo1.Lines.Append(FieldByName('CT').AsString);
    Memo1.Lines.Append(FieldByName('DE').AsString);
    Memo1.Lines.Append(FieldByName('EN').AsString);
    Memo1.Lines.Append(FieldByName('CN').AsString);
    Memo1.Lines.Append(FieldByName('CC').AsString);
    Close;
  end;

es werden nur Fragezeichen ausgegeben... darum ja meine Frage...

Ich verwende UniDAC nicht, aber bei IBDAC muss man natürlich angeben, wenn man mit Unicode arbeiten möchte. Setzt natürlich auch Delphi 2009 oder höher voraus.

habe ja XE2, ich finde im Objektinspektor keine Einstellung für Unicode... die Query Komponente selber heisst ja auch: TUniQuery

wenn ich versuche ein Umlaut (ä) zu sichern (egal in welches Feld):

zusammenfalten · markieren

Delphi-Quellcode:

  with Datenmodul.UniQuerySave do
  begin
    Close;
    SQL.clear;
    SQL.Add('UPDATE SPRACHE');
    SQL.Add('SET');
    SQL.Add('CT = :EINGABE');
    SQL.Add('WHERE TAG_ID = :TAG_ID');

    ParamCheck := true;
    ParamByName('TAG_ID').AsInteger := 3;
    ParamByName('EINGABE').AsAnsiString := 'ä';
    Execute;
    Close;
  end;

dann erhalte ich folgende Fehlermeldung:

"Im Projekt xxx.exe ist eine Exception der Klasse EIBCError mit der Meldung '
Dynamic SQL Error
SQL error code = -303
Malformed string' aufgetreten."

Hab mir jetzt mal die CHM-Doku von UniDAC runtergeladen und im Prinzip ist es gleich zu IBDAC bzgl. Unicode. Hast du TUniConnection.CharSet und TUniConnection.UseUnicode korrekt gesetzt?