Umlaute // Lazarus 1.4.2 mit Datenbank

[manfred_h]

Zitat von IBExpert:

Dem würde ich einfach mal in einem Beispiel auf Basis der SQLDB Komponenten widersprechen, in dem du deine MySQL Datenbank mit UTF8 Daten ansteuerst, was sicherlich auch fehlerfrei sein wird.

Danke für Deinen Tipp, habe dies gemacht und dem Support gemeldet.

Shalom
Manfred

[manfred_h]

Kleines Feedback.
Der Support ist nun das ganze am überprüfen.
http://talk.remobjects.com/t/german-...azarus/6041/25

Das Problem ist momentan das die Komponente unter Lazarus eine andere Ausgabe ergibt als unter Delphi.

[ThomasBab]

Hallo!

Versuch doch mal in der dpr-Datei (Lazarus-Projektdatei) direkt nach dem "Threat-Gedöns" folgendes einzugeben: {$IFDEF UNIX}cwstring,{$ENDIF}

(Habe ich aus dem Lazarus-Forum, bei dem es darum ging, dass Umlaute unter Windows/Linux Probleme gemacht haben.

[manfred_h]

Halo Thomas

Habe die .lpr Projektdatei wie folgt angepasst:
vorher:

Delphi-Quellcode:

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}

neu:

Delphi-Quellcode:

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,cwstring,
  {$ENDIF}{$ENDIF}

Leider ohne Erfolg

[ThomasBab]

Versuch es mal so:

Delphi-Quellcode:

{$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
{$IFDEF UNIX}cwstring,
  {$ENDIF}

[manfred_h]

Leider auch kein Erfolg..

[manfred_h]

Hallo zusammen

Wollte Euch nur ein kleines Update über den Stand der Dinge geben:
Leider bis jetzt noch keinen Erfolg. Der Support hat aber ein Problem im FPC gefunden:

Zitat:

As I said earlier, there is a problem in FPC itself.

Delphi-Quellcode:

procedure TDataSet.DataConvert(aField: TField; aSource, aDest: Pointer;
  aToNative: Boolean);

 // There seems to be no WStrCopy defined, this is a copy of
 // the generic StrCopy function, adapted for WideChar.
 Function WStrCopy(Dest, Source:PWideChar): PWideChar;
 var
   counter : SizeInt;
 Begin
   counter := 0;
   while Source[counter] <> #0 do
   begin
     [B]Dest[counter] := char(Source[counter]); //<<< here should be WideChar instead of char , so it loses all unicode chars[/B]
     Inc(counter);
   end;
   { terminate the string }
   Dest[counter] := #0;
   WStrCopy := Dest;
 end;

Hier gehts im Support Forum weiter:
http://talk.remobjects.com/t/german-...azarus/6041/29

Shalom
Manfred