Форум программистов, компьютерный форум CyberForum.ru

Список IP-адресов в локальной сети - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ как в VC++ создать ActiveX и использовать его методом позднего связывания? http://www.cyberforum.ru/cpp-beginners/thread461490.html
Уважаемые знатоки! Подскажите, пожалуйста, как в VC++ создать ActiveX и использовать его методом позднего связывания? То есть, подобие тому, что в VB делается так: Set MyCtrl=CreateObject('MyClass') MyCtrl.DoSomething('Hello world!') Set MyCtrl=Nothing Заранее спасибо.
C++ Голосовая передача - Протокол Сжатия Меня интересует какой протакол использовать,для сжатия речи перед тем как её кидать в темп... и как он реализуется в C++... какой лучше для UDP,а какой для TCP... кинте пару ссылок пожалуйста... Заранее благодарен VLAD! http://www.cyberforum.ru/cpp-beginners/thread461489.html
После запуска приложения только 2 колонки таблицы C++
Помогите, пожалуйста, разобраться с ADO!!! Я создала SDI приложение. За базовый класс представления взяла CFormView. На форму кинула Microsoft ADO Data Control Vertion 6.0 (OLEDB). Связала её с базой данных через ODBC Data Source Name. Связала с таблицей. Затем на форму кинула Microsoft Data Grid Control Vertion 6.0 (OLEDB) и связала с его ADO Data Control. После запуска приложения у меня...
C++ ADO Data Grid Control
Помогите, пожалуйста, разобраться с ADO!!! Я создала SDI приложение. За базовый класс представления взяла CFormView. На форму кинула Microsoft ADO Data Control Vertion 6.0 (OLEDB). Связала её с базой данных через ODBC Data Source Name. Связала с таблицей. Затем на форму кинула Microsoft Data Grid Control Vertion 6.0 (OLEDB) и связала с его ADO Data Control. После запуска приложения у меня...
C++ Нужно вставить блок на асме, но он не понимает asm и __asm http://www.cyberforum.ru/cpp-beginners/thread461443.html
VC понимает директиву __asm, я пишу в данное время под Linux c компилером g++ v.3.0 нужно вставить блок на асме... Но он не понимает не asm и __asm... Если кто сталкивался , не сочтите за труд растолковать... Best Regards Stan
C++ Как заставить программу управлять программами? Подскажите как заставить программу управлять программами, в случае если необходимо применить много раз одну и ту же операцию из стандартной программы сторонних разработчиков? подробнее

Показать сообщение отдельно
lapitsky
Сообщений: n/a
03.01.2011, 14:45     Список IP-адресов в локальной сети
можно просто вычислить самому:

procedure GetAddressesRange(IPAddress: string; SubnetMask: string; var Ips: TStringList);

var Count: LongInt;
I:LongInt;
IP: LongInt;
tmpStr: string;
addr, mask: LongInt;
Str: string;
begin
tmpStr := ''
Str := '$'
if ipAddress[Length(ipAddress)] <> '.' then
ipAddress := ipAddress + '.'

if SubnetMask[Length(SubnetMask)] <> '.' then
SubnetMask := SubnetMask + '.'

for I:=1 to Length(ipAddress) do
begin
if ipAddress[i] <> '.' then
tmpStr := tmpStr + ipAddress[i]
else
begin
Str := Str + IntToHex(StrToInt(tmpStr),2);
tmpStr := ''
end;
end;
Addr := StrToInt(Str);

tmpStr := ''
Str := '$'

for I:=1 to Length(SubnetMask) do
begin
if SubnetMask[i] <> '.' then
tmpStr := tmpStr + SubnetMask[i]
else
begin
Str := Str + IntToHex(StrToInt(tmpStr),2);
tmpStr := ''
end;
end;
Mask := StrToInt(Str);

Ips := nil;
Ips := TstringList.Create;
Ips.Clear;

I:=0;
Count := LongInt($FFFFFFFF - mask);

for IP := (addr and mask) to ((addr and mask) + Count) do
begin
tmpStr := IntToStr(StrToInt('$' + copy(IntToHex(ip,2),1,2))) + '.'+
IntToStr(StrToInt('$' + copy(IntToHex(IP,2),3,2))) + '.'+
IntToStr(StrToInt('$' + copy(IntToHex(IP,2),5,2))) + '.'+
IntToStr(StrToInt('$' + copy(IntToHex(IP,2),7,2)));
Ips.Add(TmpStr);
Inc(I);
end;
end;
 
Текущее время: 12:04. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru