Mysql und D2009 - connection funktioniert nicht

[mkinzler]

utf8encode() sollte dir helfen

[emsländer]

Zitat:

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:

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 :pale:

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:

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:

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 :gruebel:
Zeig mal den Code zum kompletten Vorgang