Ich bekomme beim Auslesen der Daten folgenden Fehler:
'
Access violation at adress 00BB357A in module 'libmysql.dll'. Read of address 00000388'
Delphi-Quellcode:
procedure TForm1.listboxfill;
var
Posts: TPostEntries;
query: PChar;
_myCon: PMySQL;
_myRes: PMySQL_Res;
//hier wird der gesamte Ergebnissatz gespeichert
_myRow: PMySQL_Row;
//enthält den aktuellen Datensatz
i: Integer;
begin
{Verbindung herstellen}
query := '
SELECT * FROM link ORDER BY id';
_myCon:=PMySQL('
0');
//Damit Variable initalisiert wird
mysql_real_query(_myCon,
query, Length(
query));
_myRes := mysql_store_result(_myCon);
//alle Datensätze vom Server anfordern
if _myRes =
nil then
begin
ShowMessage('
Es konnten keine Datensätze zurückgebenen werden. Ursache: ' + mysql_error(_myCon));
Exit;
end;
SetLength(Posts, mysql_num_rows(_myRes));
//Posts-Array-Größe auf Anzahl der Datensätze setzen
for i := 0
to High(Posts)
do
begin
_myRow := mysql_fetch_row(_myRes);
//Datensatz abholen
Posts[i].link := _myRow[0];
//Link ist erstes Feld im Datensatz
Posts[i].nummer := StrToInt(_myRow[1]);
//ID ist das zweite Feld
Posts[i].
name := _myRow[2];
listbox1.Items.Add(Posts[i].
name);
end;
mysql_free_result(_myRes);
//Ergebnissätze löschen
end;