Guten tag ich benutze folgenden code um mich zu einer
Mysql datenbank bei db4free.net zu verbinden:
Delphi-Quellcode:
procedure TForm1.startconnection(
db,host, user, pass: PChar);
begin
_myCon:= mysql_init(
nil);
if _myCon =
nil then begin
MessageDlg('
Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren',mterror,[mbOk],0);
Exit;
end;
if mysql_real_connect(_myCon, host, user, pass,
db, 3306,
nil, 0) =
nil then begin
Messagedlg('
Die Verbindung konnte leider nicht hergestellt werden. Ursache: ' + mysql_error(_myCon),mterror,[mbOk],0);
if Form2.Showing=false
then
Form2.Showmodal;
Exit;
end;
MessageDlg('
Die Verbindung wurde erfolgreich hergestellt',mtinformation,[mbOK],0);
connectbtn.Caption:='
Trennen';
if Form2.Showing=true
then
Form2.Close;
end;
Ich kann mich auch super mit dieser verbinden nur wenn ich das programm jemandem aders schicke erhält dieser eine zugriffsverletzung während des verbindens. Hab aber bei der datenbank extra alle ips zugelassen wo könnte de fehler liegen?