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;