kake26/bandmon
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed the GUI finally

Browse source
This commit is contained in:
kake26 2023-01-09 19:33:11 -06:00
parent 58dded8116
commit e2b4c2c8a3
17 changed files with 324 additions and 249 deletions
Download patch file Download diff file Expand all files Collapse all files

15
fpc/backup/unit1.pas
View file

@ -72,17 +72,18 @@ end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
webres := TFPCustomHTTPClient.SimpleGet('https://192.168.1.113/bnd.dat');
webres := TFPCustomHTTPClient.SimpleGet('http://192.168.1.168/band/bnd.dat');
parse := splitstring(webres,' ');
vnstats.dom := parse[6];
vnstats.cm := parse[8];
vnstats.vnhourly := parse[10];
vnstats.vnmonthly := parse[13];
vnstats.dom := parse[4];
vnstats.cm := concat(parse[6],' GiB');
vnstats.vnhourly := concat(parse[8],parse[9]);
vnstats.vnmonthly := concat(parse[11],parse[12]);
Label2.Caption := vnstats.vnhourly;
Label6.Caption := vnstats.vnmonthly;
Label4.Caption := vnstats.cm;
Label7.Caption:= parse[11] ;
Label8.Caption:= parse[14];
//Label7.Caption:= parse[12] ;
// Label8.Caption:= parse[15];
Button1.Caption := 'Hide';
except
// Blah