Auf XE3 programmiert, auf 5 solls laufen.

[Getox]

Ich habe jetzt mit Hilfe den Wrapper so hinbekommen, dass die Zeilen nicht mehr zu lang sind.

Das hatte mit dem Format der Quelldatei zu tun... Da gibt es ja irgendwie #13 und #10. Linux benutzt nur eins, Mac das andere und Windows beide um Absätze zu machen (wenn ich es richtig verstanden habe).

Das habe ich im Notepad++ geändert bekommen (Bearbeiten -> Format Teilenende -> Konvertiere zu Windows(CR + LF)).

Nun habe ich auch noch Unterstützung bekommen, indem mein Wrapper von SQLite noch zum Teil umgeschrieben wurde und ich begebe mich jetzt auf die Suche nach UTF8Encode() für Delphi5. Mal sehen, ob ich da fündig werde. Wenn ich noch ein Problem habe, werde ich wieder schreiben

Danke aber vorerst, dass ihr euch mit meinem Problem auseinandersetzt.

[Bernhard Geyer]

Zitat von Getox:

... und ich begebe mich jetzt auf die Suche nach UTF8Encode() für Delphi5 ...

In der JCL (AFAIK JclUnicode.pas) gibts da was.

[Getox]

So... ich habe nun herausgefunden, dass JCL wohl was "Externes" ist, dass man zusätzlich installieren muss. nach einiger Zeit habe ich nun auch geschafft eine JCL Version zu besorgen, welche mit Delphi5 Läuft. JVCL 3.37 war wohl die letzte Version die unter Delphi5 lief und darin war auch ne funktionierende Version von JCL.

Jetzt bin ich aber leicht verwirrt mit dem ganzen String, WideString, UTF8 und keine Ahnung. Mit diesem Thema habe ich mich nicht ganz befasst.

Ich habe nun in meiner Datei vom SQL Wrapper erstmal die JclUnicode unter USES hinzugefügt und bin nun an der Stelle an der vorher stand:

Delphi-Quellcode:

function StrToUTF8(const S: WideString): AnsiString;
begin
  Result := UTF8Encode(S);
end;

Die Funktion UTF8Encode gib es nicht und will ich ja durch die entsprechende Funktion der JCL ersetzen. Aufgrund mangelnden Wissens, was diese ganzen Textformate angeht, stehe ich etwas aufm Schlauch. Welche Funktion aus der JCLUnicode ist denn die, welche ich benötige?

[stahli]

Denke nochmal über den Tipp von Uwe nach (Projekt im Rahmen von D5 neu aufsetzen).

Vielleicht kannst Du auch irgendwo ein günstiges D2009 bekommen - dort wäre zumindest schon Unicode mit dabei (wenn Du es wirklich brauchst).

[Getox]

Das Problem vor dem ich stehe, dass ich mit SQLite arbeite. Dafür nutze ich einen Wrapper und der geht nur mit diesem Unicodegedöns.

Wenn ich das Programm neu schreibe, kann ich aus diesem Grunde immernoch keine Datanbank anlegen, benutzen oder sonst was...

[sh17]

Warum soll es denn eigentlich auf D5 laufen? Aus Kostengründen? In XE3 schien ja alles gut geklappt zu haben. Klang oben zumindest so. Für die Stunden, die Du jetzt mit dem rumgefrickel Zeit verlierst, kannst Du Dir auch XE3 Pro zulegen.

[Bernhard Geyer]

Zitat von Getox:

Dafür nutze ich einen Wrapper und der geht nur mit diesem Unicodegedöns.

SQLite ist nunmal ein DBMS das die Daten in so einem Uniocdegedöns ablegt

Ach ja: Müsste nicht ZEOS auch SQLite unterstützen? Ist evtl. einfacher damit zu arbeiten. Die Frage ist nur ob du die neustes Version noch verwenden kannst oder auf Alte Version zurückspringen musst.


Kannst du nicht mindestens auf D7 hochgehen? Diese müsste noch von mehr Bibliotheken unterstützt werden so das du keine Antiken Versionen einsetzen musst.

[EgonHugeist]

Soweit ich weiß haben wir alle defines in Zeos7 für Compiler, älter als D7 rausgeschmissen. Außerdem ist ist das UTF8Encode/UTF8Decode da auch schon überall drin.

Es gab da eine kurze Absprache, ob irgendwer noch Interesse an solchen Compilern haben könnte. Das gleiche Spiel mit FPC2.2../Kylix

Mit 6.6.6 könnte das alles noch gehen, du bräuchtest jedoch irgendwelche UTF8 oder WideString Componenten wie TNT o.ä..

Altenativen für:

uses windows;

UTF8Decode

Delphi-Quellcode:

function AnsiToWide(const S: AnsiString): WideString;
var
  l: Integer;
begin
  l := MultiByteToWideChar(CP, 0, PAnsiChar(@s[1]), - 1, nil, 0); //Checkout the Result-Lengh
  if l = 0 then Exit;
  SetLength(Result, l - 1);
  MultiByteToWideChar(65001, 0, PAnsiChar(@s[1]),
    - 1, PWideChar(@Result[1]), l - 1); //Convert Ansi to Wide with supported Chars
end;

UTF8Encode:

Delphi-Quellcode:

function WideToAnsi(const ws: WideString): AnsiString;
var
  L: Integer;
begin
  l := WideCharToMultiByte(65001,0, @ws[1], - 1, nil, 0, nil, nil); //Checkout the result length
  if l = 0 then Exit;
  SetLength(Result, l - 1); //SetResult Length
  WideCharToMultiByte(65001,0, @ws[1], - 1, @Result[1], l - 1, nil, nil); // Convert Wide down to Ansi
end;

Du kannst die CP65001(UTF8) auch mit 1252 austauschen (dann aber dwFlags anstatt 0 mit WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR austauschen), somit WideToAnsi oder AnsiToWide erstellen, was deine Controls dann darstellen können.

Habe das alles so bei Zeos reingebröselt und funzt wunderbar. Jedoch werden unter CP1252 alle nicht unterstützen Bytesequenzen zu '?' umgewandelt.

Gruß Michael

[sahimba]

Zitat von stahli:

Vielleicht kannst Du auch irgendwo ein günstiges D2009 bekommen

Ich hätte eines zu verkaufen http://ddobjects.de/delphi-2007-and-2009-for-sale

LG

[Getox]

Zitat von sh17:

Warum soll es denn eigentlich auf D5 laufen? Aus Kostengründen? In XE3 schien ja alles gut geklappt zu haben. Klang oben zumindest so. Für die Stunden, die Du jetzt mit dem rumgefrickel Zeit verlierst, kannst Du Dir auch XE3 Pro zulegen.

Zitat von Bernhard Geyer:

Kannst du nicht mindestens auf D7 hochgehen? Diese müsste noch von mehr Bibliotheken unterstützt werden so das du keine Antiken Versionen einsetzen musst.

Zitat von sahimba:

Zitat von stahli:

Vielleicht kannst Du auch irgendwo ein günstiges D2009 bekommen

Ich hätte eines zu verkaufen http://ddobjects.de/delphi-2007-and-2009-for-sale

LG

Ich hatte die Testversion von XE3 und nun habe ich nur noch das 5er. leider stehen mir keine anderen Alternativen zur Verfügung.

Ich bin grade am erlernen dieser Programmiersprache.Da ist 1000 Euro für nen XE3 Pro etwas mit Kanonen auf Spatzen geschossen finde ich. Auch das angebot mit dem 2009er finde ich nett, aber 200 Euros sind auch ne Stange Geld. Was nutzt die schönste IDE, wenn man am Ende des monats verhungert ist?

Dass ist in meinen Augen eh das größte Problem von Delphi. Wenn man als Neuling vor der Wahlsteht, ob man eine IDE einer beliebigen anderen Sprache gratis runterlädt oder 200 Euro auf den Tisch latzt, um Delphi zu lernen, kann man schon fast erraten, was dieser wählen wird. ich persönlich bin nunmal drauf angewiesen speziell Delphi zu lernen, aber wenn dies nicht so wäre, würde ich umgehend eine ander Sprache wählen, wo ich weniger probleme, bei überhauptkeinen Kosten habe. Zudem hat man vermutlich mit weiter verbreiteten Sprachen bessere Berufsaussichten, als mit Delphi - wo eh die Mehrheit der Leute nicht auf dem aktuellen stand ist und noch denkt, dass Delphi unter Borlands Führung im sterben liegt.