Thema: Delphi MySQL ohne Komponenten

Einzelnen Beitrag anzeigen

childen

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

Re: MySQL ohne Komponenten

  Alt 4. Okt 2005, 20:10
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 ...
  Mit Zitat antworten Zitat