MySQL Abfrage

[chrigu99]

Hi zusammen

Also, ich habe mir eine MySQL-Abfrage zusammengebastelt, welche mir aber beim Ausführen des Programmes (nicht beim kompilieren) einen Fehler ausgibt. Hier der Code:

Delphi-Quellcode:

uses
  ... mysql ...;

    procedure DoTimer (Sender: TObject);

procedure TForm1.DoTimer(Sender: TObject);
var
  _myCon: PMySQL;   
  host, user, pass, db: PChar; 
  idAuthor: String;  
  count: Integer;
  query: PChar;
  _myRes: PMySQL_Res; 
  _myRow: PMySQL_Row; 
   error: String;
begin
  host := 'www.fire-pics.ch';
  user := 'root';
  pass := 'XXXXX';
  db := 'firepics2';
  msg1 := 'Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren';
  msg3 := 'Verbindung mit fire-pics.ch-Server hergestellt';

  _myCon := mysql_init(nil);
  if _myCon = nil then
  begin
    ShowBalloon(msg1);
    Exit;
  end;

  //anschließend wird die Verbindung hergestellt
  if mysql_real_connect(_myCon, host, user, pass, db, 3306, nil, 0) = nil then
  begin
    msg2 := 'Die Verbindung konnte nicht hergestellt werden. Ursache: ' + mysql_error(_myCon);
    ShowBalloon(msg2);
    Exit;
  end;

  ShowBalloon(msg3);

  query := PChar('SELECT uid FROM firepics2_members WHERE username=chrigu99');
  mysql_real_query(_myCon, query, Length(query));

  _myRes := mysql_store_result(_myCon);  //alle Datensätze vom Server anfordern
  _myRow := mysql_fetch_row(_myRes);
  idAuthor := _myRow[0];

    error := idAuthor;
    ShowBalloon(error);
    Exit;

  mysql_close(_myCon);
end;

wo liegt da der Fehler?

Grüsse, Chris