Show Processlist in Delphi anwenden

[Marcel Gascoyne]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.TimerTimer(Sender: TObject);
begin
  dbMain.HostName:= '10.156.104.250';
  dbMain.User:= 'root';
  dbMain.Password:= '';
  dbMain.Database:= 'digitalauskunft';
  dbMain.Connected:=True;
  qrMain.SQL.Clear;
  qrMain.SQL.Add('Show Processlist;');
  qrMain.Open;
  Memo1.Lines.Text := qrMain.FieldByName('Info').AsString; // Feldinhalt abrufen
end;

Gruß,
Marcel