NetworkTrafficMeter

Éljen az OpenSource!

Agymenésem oly' határtalan, hogy megint alkottam egy aprócska, ám de felettébb hasznos programot.
A neten találtam egy nyílt forráskódú kis programot, ami megmutatta hogyan lehet használni az IPHelper-t és ezt alapulvéve kissé továbbfejlesztettem az eredeti ötletet. Persze az, hogy alkossak egy ilyen programot nem csak az én ötletem volt. Ugyanis egyik kedves ismerősömnek kellett egy aprócska, ingyenes program, ami többféle képpen képes megjeleníteni a le és a feltöltési sebességeket. No akkor meg is írtam. Ez lett a NetworkTrafficMeter, mivel az összes többi név már látszólag foglalt a Google keresője szerint. Így megint egy olyan nevet kellett "kitalálni", ami még nem terjedt el annyira. :) Pár jóbarátom kipróbálta Linux alatt, Wine környezetben. Nem volt semmilyen észlelhető különbség, csak a GDI probléma, amit már megszokhattunk. Erre még egy PNG lib-et írnom kell, mert Delphi-hez nem találtam komponenst, így hát rám hárul a feladat, hogy írjak egyet magamnak. Segond! Legalább működik a program szépen.

Persze, mint minden programnál, a felhasználók véleményeit szívesen fogadom. Építőjellegű kritikákat is szívesen olvasnék.

Webcím: http://networktrafficm.sourceforge.net :)

Na ez is egy blogbejegyzés volt.

( Elbandi v | 2008. 03. 27., cs – 16:55 )

Delphihez PNG cucc: http://pngdelphi.sourceforge.net/

Kiraly cucc, beepul az egesz "rendszerbe", pl Timage-ban is tudsz pngket hasznalni. mukodik a picture.assign(pngvaltozo). kvazi olyan mint a tbitmap. Es a formod is kisebb lesz, mert azert a pngben van tomorites is. az alpha channelrol meg nem is szolva.

--
A vegtelen ciklus is vegeter egyszer, csak kelloen eros hardver kell hozza!

Köszi szépen, de az az a Lib, ami nekem valahogy még nem akart "összeállni". De megnézem még alaposabban.

Ugyebár Linux + Wine alatt a gond az áttetsző részeknél jelentkezik, ahol az átlátszó szín ugyanúgy megmarad. Ez nagyon zavaró tud lenni. A formon most BMP-t használok, Run Length Encode -al. ( ~ 100KByte a teljes form képe ) Mondjuk ugyanez PNG-ben meg lenne minőségromlás nélkül 30KB :D Azért ez a nemmindegy.

Mégegyszer is köszönöm szépen az infót.

( Elbandi v | 2008. 03. 27., cs – 17:09 )

huha, beleneztem a kodba.... 


  for I := 0 to DownScope.Lines.Lines[0].Values.Count do
  begin
    if DMax < DownScope.Lines.Lines[0].Values.Items[I] then
      DMax := DownScope.Lines.Lines[0].Values.Items[I];
  end;

Ez nagyon hibas!! A count darabszamot ad, vagyik 0-tol count-1 -ig van adott szamu elemunk. Nem is ertem miert nem dob ez itt hibat.

--
A vegtelen ciklus is vegeter egyszer, csak kelloen eros hardver kell hozza!

Mert annyinak kell lennie :D
De, ha zavar, átírom egyébként. Lehetnek benne hibák még, amik eddigi tesztelésekkor nem jöttek elő.
Ha hibát okozna, (Kritikus kivételt) akkor tuti átírtam volna.
Egyébként a StreamHijacker forrása még ennél is csúnyább. Hiába no, én nem suliban tanultam a programozgatást, hanem itthon pár könyvből, no meg pár ismerős útmutatásával.

azert nem dobott hibat, mert a itt a kod ugy van megirva. (ugyanis az ertekeket egy "fix" hosszu tombben tarolja, es csak rotalja az ertekeket) tehat a value[count-1] az "utolso" elemet olvassa, a values[count], meg mar ujbol a 0-at.

de pl egy listbox1.items[box1.items.count] akkora hibaval fog elszallni, mint a haz...

--
A vegtelen ciklus is vegeter egyszer, csak kelloen eros hardver kell hozza![/]