Mysql und D2009 - connection funktioniert nicht

[mkinzler]

utf8encode() sollte dir helfen

[emsländer]

Zitat von mkinzler:

utf8encode() sollte dir helfen

Die Frage ist: wo packe ich das rein?

in die mysql.pas oder vorher wo ich den Aufruf in die MYSQL.PAS mache?

Gruss

EL

[mkinzler]

Versuch es mal im Aufruf

[emsländer]

Zitat von mkinzler:

Versuch es mal im Aufruf

Hi mkinzler,

das scheint zu klappen! Zuminstens schon einmal im Connect.

Vielen Dank für die Hilfe

Jetzt darf ich ne RiesenApp durchgehen um alles durchzuforsten *iggitt*

Gruss

EL

[emsländer]

Zu früh gefreut

die Aufrufe mysql_query und mysql_store_result funktionieren so zumindest einmal nicht.... so ein Dreck
Ich hab schon alle möglichen und unmöglichen Kombinationen durch.

Korrektur:

Ich komme der Sache näher.

var sstring : rawbytestring;

begin ....

mysql_query(_dbserver, pchar(sstring));

Gruss

EL

[mjustin]

Zitat von mkinzler:

Delphi verwendet wie Windows UTF-16 für Unicod, MySQL UTF-8. Hierbei sind die Zeichen variable breit, bei UTF-16 immer 16Bit

Fix 16 Bit wäre UCS-2, UTF-16 verwendet für die Kodierung eines Unicodezeichens 16 oder 32 Bit und kann daher mehr Zeichen darstellen: http://de.wikipedia.org/wiki/Utf-16

[emsländer]

Jetzt habe ich den Kasten soweit, das er zumindest mal SQL-Kommandos akzeptiert und ich das durch z.B. reccount nachvollziehen kann.
Allerdings gibt er mir bei der Ausgabe von Datenfeldern nur Blödsinn raus.

Delphi-Quellcode:

      if reccount <> 0 then begin
        such_bar.Max := reccount;
        such_bar.Refresh;
        showbutton(inttostr(reccount)+' Treffer');
        for i := 0 to RecCount -1 do begin              => bis hierhin kann ich es nachvollziehen und es stimmt
          such_bar.StepIt;
          such_bar.Refresh;
          _myRow := mysql_fetch_row(_MyRes);            => hier muss der Fehler passieren.
          ausgabeliste.addrow();
          ausgabeliste.cells[0,i] := _MyRow[0];  //Datensatz-ID
          ausgabeliste.cell[1,i].AsString := _MyRow[1];  // Anlagedatum
          ausgabeliste.cells[2,i] := _myrow[2];  // Vermittler
          ausgabeliste.cells[3,i] := get_vermittler(_myrow[2]);  // Vermittler

Gruss

EL

[mkinzler]

Was für Datenfelder?

[emsländer]

Zitat von mkinzler:

Was für Datenfelder?

Das erste ist ein Integer, die anderen varchar.

Gruss

EL

[mkinzler]

Integer hat ja eigentlich nichts mit Unicode zu tun
Zeig mal den Code zum kompletten Vorgang