Hallo Zusammen,
ich habe eine Delphi Anwendung, mit der ich ohne Komponenten auf einen
MySQL Server zugreife. Nach einigen Aktionen beschwert sich dieser, dass zu viele Verbindungen bestehen.
Ich habe dann mal nachgesehen und bemerkt, dass die Verbindungen nicht wieder geschlossen werden. Damit ist also nicht die maximale Verbindungsanzahl das Problem, sondern das beenden der Verbindungen...
Hier sind meine Codes:
Connect:
Delphi-Quellcode:
procedure connect;
begin
host:= '
localhost';
user:= '
root';
pass:= '
01971156';
db:= '
NedCom';
_myCon := mysql_init(
nil);
if _mycon=nil
then
begin
showmessage('
Nicht genügend freier Speicher!');
Exit;
end;
if mysql_real_connect(_mycon, host, user, pass,
db, 3306,
nil,0)=nil
then
begin
showmessage('
Die Verbindung konnte nicht hergestellt werden! Ursache:' + mysql_error(_mycon));
exit;
end;
end;
Disconnect:
Delphi-Quellcode:
procedure disconnect;
begin
mysql_close(_mycon);
end;
Hat jemand eine Idee, wie ich die Verbindungen "ganz" beenden kann?
Danke
Ykcim