Ist mein Programm jetzt wirklich Unicode? Trotz Umwandlung?

[mirage228]

Also ich hatte letztens auch Probleme mit Zeos und der Codierung. Bei mir waren es Probleme in die Senderichtung beim Speichern von neuen Einträgen.
Hast Du sonst mal die neueste SVN REV von Zeos probiert?
Im Forum bei denen wurden bereits andere Unicode Fixes diskutiert, musst mal schauen ob die bereits ins SVN eingeflossen sind ...

Aber an sich hast du Recht, dass die Aktivität bei Zeos insgesamt gesehen recht gering geworden ist...

Viele Grüße

[TheMiller]

Ich habe mir gestern via TortoiseSVN die wohl neusten gezogen. Also muss ich wechseln, oder? Was wäre empfehlenswert?

[OrNEC]

Also ich musste eine Anwendung in Delphi 2009 ganz neu schreiben, damit es 100% tig Unicodefähig ist. Einfach ein altes Projekt in Delphi 2009 zu öffnen und weiter machen geht ohne Unicodeprobleme nicht.

[TheMiller]

Naja, ich hab alle Datenbank-Anfragen in einer Klasse gekapselt. Das dürfte weniger das Problem sein...

[TheMiller]

Sorry, ich habe die Antworten weiter oben nicht gesehen (wg. iPhone).

Ja, ich kann nicht die Quelltexte von Zeos ändern - will ich auch nicht. Aber es muss irgendeine Lösung her.

Bin auch fast schon gewillt, umzusteigen und evtl sogar was zu kaufen. Nur hätte ich gerne Empfehlungen, nicht dass ich dann auch noch doppelt bezahlen muss, weil ich mich "vergriffen" hab.

[mkinzler]

Wenn es etwas kosten darf: IBDAC oder UniDAC ( für mehrere DBMS)

[RWarnecke]

IBObjects und FIBPlus wäre auch noch eine alternative.

[TheMiller]

UniDAC hab ich schon gefunden. Welche Version ist denn ausreichend? Kommt man mit der Standard-Version hin? In der Professional gibt's ja die Data Access Provider - was ist das? Welche Version würdest du von dieser Komponente empfehlen?

Achso: Mache eigentlich mehr mit MySQL als mit Firebird.

Danke euch soweit!

[himitsu]

Beitrag #11/#12:
Wie sehen denn die Definitionen deiner Felder aus, also welche bei dir ankommen.
( TDataSet.FieldDefs )

[TheMiller]

Ich poste mal hier die Methoden, angefangen von der, die ich aufrufe:

Delphi-Quellcode:

ZQuery.FieldByName(Field).AsString;

function TDataSet.FieldByName(const FieldName: string): TField;
begin
  Result := FindField(FieldName);
  if Result = nil then DatabaseErrorFmt(SFieldNotFound, [FieldName], Self);
end;


function TDataSet.FindField(const FieldName: string): TField;
begin
  Result := FFields.FindField(FieldName);
  if (Result = nil) and ObjectView then
    Result := FieldList.Find(FieldName);
  if Result = nil then
    Result := FAggFields.FindField(FieldName);
end;

function TFields.FindField(const FieldName: string): TField;
var
  I: Integer;
begin
  for I := 0 to FList.Count - 1 do
  begin
    Result := FList.Items[I];
    if WideCompareText(Result.FFieldName, FieldName) = 0 then Exit;
  end;
  Result := nil;
end;

function TField.GetAsString: string;
begin
  Result := GetClassDesc;
end;

function TField.GetClassDesc: string;
var
  I, L: Integer;
  S: string;
begin
  S := ClassName;
  I := 1;
  L := Length(S);
  if S[1] = 'T' then
    I := 2;
  if (L-I >= 5) and (CompareText(Copy(S, L - 4, 5), 'FIELD') = 0) then
    Dec(L, 5);
  FmtStr(Result, '(%s)', [Copy(S, I, L + 1 - I)]);
  if not IsNull then
    Result := AnsiUpperCase(Result);
end;

//////////////////////////////////////
Und hier TFieldDefs
//////////////////////////////////////
TFieldDefs = class(TDefCollection)
  private
    FParentDef: TFieldDef;
    FHiddenFields: Boolean;
    function GetFieldDef(Index: Integer): TFieldDef;
    procedure SetFieldDef(Index: Integer; Value: TFieldDef);
    procedure SetHiddenFields(Value: Boolean);
  protected
    procedure FieldDefUpdate(Sender: TObject);
    procedure ChildDefUpdate(Sender: TObject);
    procedure SetItemName(AItem: TCollectionItem); override;
    function GetFieldDefClass: TFieldDefClass; virtual;
  public
    constructor Create(AOwner: TPersistent); virtual;
    function AddFieldDef: TFieldDef;
    function Find(const Name: string): TFieldDef;
    procedure Update; reintroduce;
    { procedure Add kept for compatability - AddFieldDef is the better way }
    procedure Add(const Name: string; DataType: TFieldType; Size: Integer = 0;
      Required: Boolean = False);
    property HiddenFields: Boolean read FHiddenFields write SetHiddenFields;
    property Items[Index: Integer]: TFieldDef read GetFieldDef write SetFieldDef; default;
    property ParentDef: TFieldDef read FParentDef;
  end;

Ich hoffe da ist alles dabei, was du sehen wolltest ...