Thema: Delphi MySQL ohne Komponenten

Einzelnen Beitrag anzeigen

Troka

Registriert seit: 11. Aug 2005
1 Beiträge
 
#120

Re: MySQL ohne Komponenten

  Alt 30. Jan 2006, 13:52
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;
  Mit Zitat antworten Zitat