Thema: Delphi MySQL ohne Komponenten

Einzelnen Beitrag anzeigen

childen

Registriert seit: 4. Okt 2005
5 Beiträge
 
#111

Re: MySQL ohne Komponenten

  Alt 4. Okt 2005, 20:23
So, ich hab den Code jetzt noch mal einbisschen verändert, allerdings hat sich an dem Problem wie erwartet nichst geänder:

Delphi-Quellcode:
type tserverdata = record
                      host:string;
                      user:string;
                      passwd:string;
                    end;

procedure connect(serverdata:tserverdata);
function getserverdata():tserverdata;

implementation

procedure connect(serverdata:tserverdata);
var _myCon: PMySQL;
    host,user,passwd,db:string;
begin
  host := serverdata.host;
  user := serverdata.user;
  passwd := serverdata.passwd;
  db := 'test1';
  _mycon := mysql_init(nil); //<--- hier wird der Fehler ausgegeben
 
  if mysql_real_connect(_myCon, pchar(host), pchar(user), pchar(passwd), pchar(db), 3306, nil, 0) = nil then
  begin
    ShowMessage('Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(_myCon));
    Exit;
  end;
end;

function getserverdata():tserverdata;
begin
  result.host := edit1.text;
  result.user := edit2.text;
  result.passwd := edit3.text;
end;
  Mit Zitat antworten Zitat