Einzelnen Beitrag anzeigen

Benutzerbild von Gollum
Gollum

Registriert seit: 14. Jan 2003
Ort: Boxberg
456 Beiträge
 
Delphi 10.1 Berlin Professional
 
#2

Re: [mysql] SHOW STATUS in Programm verwenden

  Alt 9. Jan 2006, 14:44
Hallo,

natürlich kann man.

Folgendes Beispiel funktioniert mit eine ZQuery:
Delphi-Quellcode:
var received, send:DWord;
...
  with ZQuery1 do
  begin
    Close;
    SQL.Text:='SHOW STATUS LIKE "Byte%"';
    Open;
    if (RecordCount=2) then
    begin
      received:=Fields[1].AsInteger;
      Next;
      send:=Fields[1].AsInteger;

      ShowMessage(Format('Empfangen: %d; Gesendet: %d', [received, send]);
    end; // if
  end; // with
...
  Mit Zitat antworten Zitat