Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Netzwerkverkehr: Auswerten der Logdatei (https://www.delphipraxis.net/65664-netzwerkverkehr-auswerten-der-logdatei.html)

EConvertError 19. Mär 2006 17:49


Netzwerkverkehr: Auswerten der Logdatei
 
Guten Tag!

Ich habe mir einen kleinen Netzwerklogger geschrieben, der den gesamten Netzwerkverkehr mitloggt.
Konkret sieht das so aus, dass er ein Logdatei erzeugt, in der z.B. drinnen steht:

Code:
[18.03.2006] Download: 1,1 GB; Upload 890 KB
[19.03.2006] Download: 45,6 MB; Upload: 23,4 MB
Nun möchte ich die Summe der Down- und Uploads für den jeweiligen Monat berechnen.
Wie ich die Zahlen herauslesen kann, weiß ich schon (Stichwort: Parsen), aber ich habe ein ganz anderes Problem:

In welcher Einheit berechne ich die Summe? Wenn ich in Bytes rechne, dann bekomme ich irrsinnig große Zahlen. Birgt das nicht irgendwie die Gefahr irgendeines Overflows?
Anderseits kann ich auch nicht nur in GB rechnen, wenn ich vielleicht wirklich nur wenig Traffic habe.

Kurz gesagt: Wie mache ich das am Besten?

Vielen Dank,
Andreas

3_of_8 19. Mär 2006 17:52

Re: Netzwerkverkehr: Auswerten der Logdatei
 
Wie wärs mit Extended und einheit Megabytes? Da hast du das ganze bei kleinen Zahlen bytegenau, kannst aber auch locker ein paartausend Terabyte Traffic haben.

EConvertError 19. Mär 2006 18:00

Re: Netzwerkverkehr: Auswerten der Logdatei
 
Danke für die Antwort!

Ich frage mich, ob es auch möglich wäre, die Einheit ganz flexibel anzupassen, wenn die Zahlen zu hoch werden?

Was sagst du/sagt ihr dazu?

Andreas

3_of_8 19. Mär 2006 19:01

Re: Netzwerkverkehr: Auswerten der Logdatei
 
Klar ist das möglich. Aber unnötig kompliziert. Bei der Ausgabe der Dateigröße kannst du das immer noch machen:

Delphi-Quellcode:
procedure FormatSize(SizeMB: Extended): String;
begin
if SizeMB>1024*1024 then result:=Format('%f TB',[SizeMB/1024/1024]) else
if SizeMB>1024 then result:=Format('%f GB',[SizeMB/1024]) else
if SizeMB>1 then result:=Format('%f MB',[SizeMB]) else
if SizeMB>1/1024 then result:=Format('%f KB',[SizeMB*1024]) else
result:=Format('%f B',[SizeMB/1024/1024]);
end;

EConvertError 24. Mär 2006 17:40

Re: Netzwerkverkehr: Auswerten der Logdatei
 
Danke, deine Lösung funktioniert wunderbar!

Andreas

EConvertError 13. Okt 2006 07:08

Re: Netzwerkverkehr: Auswerten der Logdatei
 
Hallo nochmal!

Beim Überarbeiten des Quellcodes ist mir der Gedanke gekommen, dass Int64 noch besser wäre, als Extended.
Was meint ihr dazu?

Vielen Dank,
Andreas

Klaus01 13. Okt 2006 07:18

Re: Netzwerkverkehr: Auswerten der Logdatei
 
wenn Du es noch dem Beispiel von 3_of_8 programmiert hast,
bekommst Du wenn Du int64 nimmst als kleinsten Wert Mbyte.
Extended ist jedoch ein FloatType und kann dann auch Werte kleiner als
MByte darstellen.

Wenn Dein kleinste Einheit MByte ist kannst Du ohne weiteres Int64 nehmen.

Grüße
Klaus

EConvertError 13. Okt 2006 18:11

Re: Netzwerkverkehr: Auswerten der Logdatei
 
Vielen Dank für die Antwort!

Mit Int64 würde ich Byte als kleinste Einheit nehmen. Sollte ausreichen, oder liege ich hierbei falsch?

Danke,
Andreas


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz