Umlaute // Lazarus 1.4.2 mit Datenbank

[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

[IBExpert]

Es wird aber auch durch mehrfache Wiederholung von denen nicht richtiger, das die denken, das da Fehler in Lazarus sind. Wahrscheinlich ist da ein Fehler in der zusammenarbeit zwischen deren Komponenten und der Lazarus Funktionsweise, aber das ist dann ganz wo anders zu beheben als irgendwo an den fpc sourcen was zu patchen. Wäre jedenfalls meine Sicht der Dinge.

Siehe Anhang: ist enfach mal UTF8 Inhalt von http://www.columbia.edu/~kermit/utf8.html
in unser ERP System eingefügt und das wird sowohl in BRP (geschrieben mit Lazarus) als auch in IBExpert (geschrieben mit Delphi) korrekt dargestellt.

[manfred_h]

Hier das neueste Update:

Sieht im Moment nicht so gut aus...

Zitat:

the main difference between Delphi and Lazarus: Delphi uses UTF16 for unicode support in comparing Lazarus that uses UFT8 ...
RO/DA use UTF16 for unicode support because it other our platforms (.NET/Cocoa/etc) also use UTF16.

as a workaround, you can use my suggestion from previous post and manually convert UTF16 into UTF8
another solution is convert UTF16 to UTF8 by request in OnGetText event

Delphi-Quellcode:

procedure TForm1.tbl_test31144_utf8WSTRGetText(Sender: TDACustomField;
  var Text: string; DisplayText: boolean);
begin
  if Sender.DataType = datWideString then Text := UTF8Encode(Sender.asWideString);
end;

Zitat:

in this case, data in grid will be shown correctly, but it will require fix in TDataSet.DataConvert, also manual encoding will be required if you wanted to use UTF16 string in lazarus controls like edit/memo