Опять Delphi

[nikoTEEN]

Есть ли такой progressbar у которого два параметра цвета. Один до какого то значения другой дальше.

ну например вот progressbar ----------=======

там где минусы, там красный, а где равно, там зеленый.

если есть, то скажите pliz как называется.

[nikoTEEN]

И ещё компонент, который дает сведения о переданном, полученном количестве байт данного инет подключения и скорость этого подключения.

я бы и так поискал, но все компоненты качать не очень интересно. может здесь на форуме кто то работал с такими, дак сразу скажет.

[donatas]

1е - помоему в RxLib ест ьтакой прогрессбар,там типа стартколор и ендколор
а насчет инета - в реестре есть скорость коннекта...если еще надо - могу поискать...

[nikoTEEN]

я знаю один такой, где стартколор и ендколор - это чтоб красивее было, типа переливается от начала к концу. а в rxlib щас посмотрю.

спасибо. а насчет передано, отправлено ?

[nikoTEEN]

фигвам. нету там такого компонента

теоретически можно сделать прогрессбар из двух прогресс баров, а потом менять координаты, чтобы они слипались как бы в один, но это слишком геморойно, боюсь, что мне придется делать именно так.

ну да ладно с прогресс баром. скажите мне теперь про инет, а именно transmit(bytes), recv(bytes), speed(bit/sec) текущего инет соединения. как это узнать, каким компонентом или ещё как нибудь.

[donatas]

насчет бара - делаешь
progressbar1.onchange:
progressbar2.left:=progressbar1.left+progressbar1.width
и усе

[donatas]

насчет инета то:
ShellExecute(Application.Handle, 'open', 'rascpl.cpl', nil, nil,sw_Shownormal);
это окошко с мониторчиками стандартными....
или
http://msdn.microsoft.com -> Perfomance Monitoring
или ручками в реестре - ключ: HKEY_PERFORMANCE_DATA

[nikoTEEN]

нее. там с этим прогрессбаром все намного геморройнее, но все равно спасибо.

а в реестре ты где такой ключ нашел ??

[donatas]

http://msdn.microsoft.com/library/de...e_data_key.asp

но у меня такого ключа тоже нет

[donatas]

дело пошло на принцип

procedure TForm1.Button1Click(Sender: TObject);
var
Registry:TRegistry;
Buf:array[0..3]of byte;
ST:TStringList;
I,Y:integer;
begin
Registry:=TRegistry.Create;
ST:=TStringList.Create;

Registry.RootKey:=HKEY_DYN_DATA;
Registry.OpenKeyReadOnly('PerfStats\StatData');
Registry.GetValueNames(ST);

for I:=0 to ST.Count -1 do begin
         if (Pos('ConnectSpeed',ST.Strings[I])<> 0)then begin
             Registry.ReadBinaryData(ST.Strings[I],Buf,Sizeof(Buf));
             Y:=Buf[0] + (256*Buf[1]) + (4096*Buf[2]) + (65536*Buf[3]);
             Memo1.Lines.Add('ConnectSpeed: ' + inttostr(Y));
             end;
   end;

ST.Free;
Registry.free;
end;

[nikoTEEN]

закатал в пятак, тоесть пятак

[nikoTEEN]

Фигфам. =((

не работает. ничего не пишет

[vadian]

Может, у вас версии разные? Шестая не все поддерживает, что пятая держала... Или операционки разные...

[ReapeR]

У меня на седьмых тоже не пашет.

[nikoTEEN]

у меня 5 Enterprise.

[ReapeR]

nikoTEEN
а соединение с инетом какое?

[donatas]

эта......тестировалось под 98SE/5я дельфя(хотя без разницы)
естьпредположение,что под просто 98м или кривым СЕ - надо диалап апгрейдить.... под ХП/НТ не проверялось....
под какую ось надо?
упссс..... стоп,а че я за диалап зацеплися? тебе под диал ап или сетку?

[nikoTEEN]

значит так. поставил вторую ось 98ую. там есть такой раздел в реестре HKEY_DYN_DATA
я аж удивился =))

дак вот, то, что donatas мне дал это все работает в 98ом, а в XP 2k нет.

вопрос остается. как узнать скорость коннекта и кол-во переданных, полученных байт.

[donatas]

ты не сказал,тебе под мамед или сетку?
если под сеть - то держи:

var
		GetIfTable:function(	pIfTable: PMibIfTable; 
					pdwSize	: PULONG;  
					bOrder	: Boolean ): DWORD; stdcall;

type
 TMibIfTable = packed record
   dwNumEntries	: DWORD;
   Table    	: TMibIfArray;
 end;
 PMibIfTable = ^ TMibIfTable;

type  
  TMibIfRow = packed record
    wszName		: array[0..255] of WideChar;
    dwIndex		: DWORD;
    dwType		: DWORD;
    dwMtu		: DWORD;
    dwSpeed		: DWORD;
    dwPhysAddrLen	: DWORD;
    bPhysAddr		: array[0..7] of Byte;
    dwAdminStatus	: DWORD;
    dwOperStatus	: DWORD;
    dwLastChange	: DWORD;
    dwInOctets		: DWORD;
    dwInUcastPkts	: DWORD;
    dwInNUCastPkts	: DWORD;
    dwInDiscards	: DWORD;
    dwInErrors		: DWORD;
    dwInUnknownProtos	: DWORD;
    dwOutOctets		: DWORD;
    dwOutUCastPkts	: DWORD;
    dwOutNUCastPkts	: DWORD;
    dwOutDiscards	: DWORD;
    dwOutErrors		: DWORD;
    dwOutQLen		: DWORD;
    dwDescrLen		: DWORD;
    bDescr		: array[0..255] of Char; 
  end;
  TMibIfArray = array [0..512] of TMibIfRow;
  PMibIfRow = ^TMibIfRow;
  PmibIfArray = ^TmibIfArray;


procedure TMainForm.tmrTrafficTimer(Sender: TObject);
  // Вспомогательная функция, преобразующая МАС адрес к "нормальному" виду
  //Определяем специальный тип, чтобы можно было передать в функцию массив
  type TMAC = array [0..7] of Byte;
  //В качестве первого значения массив, второе значение, размер данных в массиве
  function GetMAC(Value: TMAC; Length: DWORD): String;
  var
    i: Integer;
  begin
    if Length = 0 then Result := '00-00-00-00-00-00' else
    begin
      Result := '';
      for i:= 0 to Length -2 do
        Result := Result + IntToHex(Value[i],2)+'-';
      Result := Result + IntToHex(Value[Length-1],2);
    end;
  end;

//Сама процедура
var
  FLibHandle 	: THandle;
  Table		: TMibIfTable;
  i 		: Integer;
  Size   	: Integer;
begin
  tmrTraffic.Enabled := False; //Приостанавливаем на всякий случай таймер
  lvTraffic.Items.BeginUpdate;
  lvTraffic.Items.Clear;  //Очищаем список
  FLibHandle := LoadLibrary('IPHLPAPI.DLL'); //Загружаем библиотеку
  if FLibHandle = 0 then Exit;
  @GetIfTable := GetProcAddress(FLibHandle, 'GetIfTable');
  if not Assigned(GetIfTable) then
  begin
    FreeLibrary(FLibHandle);
    Close;
  end;

  Size := SizeOf(Table);
  if GetIfTable(@Table, @Size, False ) = 0 then //Выполняем функцию
    for i:= 0 to Table.dwNumEntries-1 do begin
      with lvTraffic.Items.Add do begin //Выводим результаты
        Caption := String(Table.Table[i].bDescr); //Наименование интерфейса
        SubItems.Add(GetMAC(TMAC(Table.Table[i].bPhysAddr),
          Table.Table[i].dwPhysAddrLen)); //MAC адрес
        SubItems.Add(IntToStr(Table.Table[i].dwInOctets)); //Всего принято байт
        SubItems.Add(IntToStr(Table.Table[i].dwOutOctets)); //Всего отправлено байт
      end;
    end;
  lvTraffic.Items.EndUpdate;
  FreeLibrary(FLibHandle);
  tmrTraffic.Enabled := True; //Не забываем активировать таймер
end;

ой и чего это я такой добрый?

[nikoTEEN]

вопрос остается. как узнать скорость коннекта и кол-во переданных, полученных байт.

ну вроде как момеда =)) а не локалки