Hallo Himitsu,
kann gut sein, dass mein Wrapper nicht gerade vollständig ist.
In 95% aller Fälle brauche ich sowas:
Delphi-Quellcode:
unit Unit1;
interface
uses
MySQL;
implementation
procedure Test;
var
bEx, bUseSSL: Boolean;
sqlClient : TMySQLClient;
sqlResult : TMySQLResult;
sName :
String;
iPort, iNumber : Integer;
begin
sqlClient := TMysqlClient.Create;
iPort := 3306;
bUseSSL := True;
bEx := sqlClient.connect_db('
DB', '
User', '
Passwort', '
Host', iPort, bUseSSL);
if bEx
then
begin
sqlResult := sqlClient.query('
SELECT * FROM TEST WHERE X > 5', True, bEx);
if bEx
then
begin
with sqlResult
do
begin
First;
while not Eof
do
begin
sName := FieldByName('
Name').AsString;
iNumber := FieldByName('
Number').AsInteger;
Next;
end;
Free;
end;
end;
sqlClient.disconnect_db;
sqlClient.Free;
end;
end;
end.
Das funktioniert soweit und ich muss mich nicht weiter um das ganze "Außenrum" der
mysql.pas kümmern.
TMyRow brauche ich nur intern. Nach "außen" sind es wirklich nur 2 Klassen.
Mit FieldByIndex, FieldByName, FieldValueByName konnte ich bisher alle Fälle abdecken.
Mit TMyBinding und TMyStatement habe ich bis jetzt noch nichts gemacht. Wozu ist das? Stored Procedures?
Grüße,
Uwe