Vielen Dank schon mal für die Idee allerdings hat es leider nicht ganz so funktioniert.
Hab jetzt folgendes:
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:PChar;
begin
host := pchar(serverdata.host);
user := pchar(serverdata.user);
passwd := pchar(serverdata.passwd);
db := '
test1';
_mycon := mysql_init(
nil);
if mysql_real_connect(_myCon, host, user, passwd,
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;
nacheinander werden aufgerufen getserverdata
und dann connect mit dem ergebniss von get serverdata
leider bekomm ich immernoch bei der Zeile: _mycon := mysql_init(nil);
Zitat:
Im Projekt 'Projekt1.exe' ist eine
Exception der Klasse EAccessViolation aufgetreten.
Meldung: 'Zugriffsverletzung bei Adresse 00000000'. Prozess wurde angehalten.
Weiter mit ...