Ich habe meine ersten Versuche bezüglich MySQL in Delphi gemacht, vorher nur in .NET oder PHP oder so.
Es scheint mir halt eine andere Sache zu sein wie bei den Entwicklungsumgebungen.
Nun habe ich anhand eine tutorials mir meinen Gewünschten Process zusammengereimt, ich weiß zwar das es nicht sauber ist aber bisher hat es gereicht.
Bei mir läuft es wunderbar, bei manch anderen auch nur tritt auf einmal bei mehreren Leuten auch ein Problem auf. Und zwar folgendes habe ich bekommen.
Bisher kann ich den uhrsprung nicht raußfinden und nach Internet suche habe ich nichts brauchbares gefunden da es sich immer um andere .dll oder ka handelte.
Ich poste mal den Code des Procedure.
Diese wurde im Tutorial genutzt. Würde es am besten ohne aber wegen Verständnis und Zeitdruck bin ich nicht zu gekommen es anders zu machen, es lief ja auch.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| type
TPostEntry = record
level: Integer;
charname: String[50];
exp: Integer;
end;
TPostEntries = Array of TPostEntry; |
Und hier die Prozedur. Die DB liegt auf einem Internet server
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
| procedure Tmain.InsertDB(Charname : string; Level : integer; BaseExp : integer);
var
query: PChar;
queryString : string;
_myCon: PMySQL;
host, user, pass, db: PChar;
_myRes: PMySQL_Res;
_myRow: PMySQL_Row; _mySubRow: PMySQL_Row;
_mySubRes: PMySQL_Res;
charIS : string;
Posts: TPostEntries;
BaseExpe : integer;
idAuthor: String; i: Integer;
begin
charIS := 'NOT';
host := 'Zensiert';
user := 'Zensiert';
pass := 'Zensiert';
db := 'Zensiert';
_myCon := mysql_init(nil);
if _myCon = nil then
begin
ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
Exit;
end;
if mysql_real_connect(_myCon, host, user, pass, db, 3306, nil, 0) = nil then
begin
Exit;
end;
query := 'SELECT * FROM highscore ORDER BY level';
mysql_real_query(_myCon, query, Length(query));
_myRes := mysql_store_result(_myCon); if _myRes = nil then
begin
Exit;
end;
SetLength(Posts, mysql_num_rows(_myRes)); for i := 0 to High(Posts) do
begin
_myRow := mysql_fetch_row(_myRes); Posts[i].charname := _myRow[0]; idAuthor := _myRow[1];
_mySubRes := mysql_store_result(_myCon);
if (Charname =_myRow[0]) then
begin
charIS := 'OK';
BaseExpe := StrToInt(_myRow[2]);
end;
mysql_free_result(_mySubRes); end;
mysql_free_result(_myRes);
if (charIS = 'OK') then
begin
if (BaseExp > BaseExpe) then begin
queryString := 'UPDATE highscore SET LEVEL = '+ IntToStr(Level) +', BaseExp = '+ IntToStr(BaseExp) +' WHERE charname = "'+Charname+'"';
query := PChar(queryString);
mysql_real_query(_myCon, query, Length(query));
mysql_close(_myCon);
end
else begin
end;
end
else begin
queryString := 'INSERT INTO highscore(charname,LEVEL , BaseExp )VALUES ("'+Charname+'",'+IntToStr(Level)+','+IntToStr(BaseExp)+')';
query := PChar(QueryString);
mysql_real_query(_myCon, query, Length(query));
mysql_close(_myCon);
end;
end; |
Nicht erschrecken, der Code sieht halt schlimm aus da es erster Versuch war und ich froh war das es geht. Und nun kann ich halt nicht Debuggen da der Fehler bei mir ja nicht auftritt.
Also wenn mir jemand bezüglich des Fehler helfen könnte, ich wäre dankbar. Wenn jemand tipps für eine bessere Nutzung diese Ergebnisses hat wäre ich es erst recht, ist halt schlecht gelöst.
Suchfunktion und Co habe ich genutzt, danke euch.
Mfg Bieberpelz
P.S. Delphi 6
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt
