Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
5 / 5 / 1
Регистрация: 22.05.2013
Сообщений: 174
1

Переход в Rad Studio

22.09.2017, 16:04. Просмотров 944. Ответов 3
Метки нет (Все метки)

Здравствуйте, подскажите пожалуйста.. В С++_Builder_6 были компоненты FastNet... В Rad Studio 10.2 таких нет... Чем их можно заменить? В примере использован компонент NMUDP1 со вкладки FastNet..

Запрос
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
void __fastcall TMainForm::Timer1Timer(TObject *Sender)
{
DWORD Tick;
 
unsigned long Val;
unsigned char Buffer[1024];
Tick = GetTickCount();
 
Buffer[0] = RPC_REQ_MAGIC1;
Buffer[1] = RPC_REQ_MAGIC2;
Buffer[2] = Tick&0xFF;
Buffer[3] = (Tick>>8)&0xFF;
Buffer[4] = RPC_GET_INFO;
 
for(int i=1;i<255;i++)
        {
        AnsiString RemoteIP;
        RemoteIP = "192.168.1." + AnsiString(i);
        NMUDP1->RemoteHost = RemoteIP;
        NMUDP1->SendBuffer(Buffer, 5, 5);
        }
 
Shape1->Visible = !Shape1->Visible;
if (NodeList->Forget())
        {
        UpdateNodeList();
        }
}
Ответ
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
//---------------------------------------------------------------------------
void __fastcall TMainForm::NMUDP1DataReceived(TComponent *Sender,
      int NumberBytes, AnsiString FromIP, int Port)
{
unsigned char Buffer[1024];
bool NeedUpdate;
if (NumberBytes == 32)
        {
        CNode *Node;
        int len;
        AnsiString NodeName;
        NeedUpdate = false;
        NMUDP1->ReadBuffer(Buffer, 32, len);
        Node = NodeList->FindByIP(FromIP);
        if (Node == NULL)       // íîâîå
                {
                Node = NodeList->Create();
                Node->RemoteIP = FromIP;
                NeedUpdate = true;
                }
 
        if (Node->Type != Buffer[5]) NeedUpdate = true;
        if (Node->Status != Buffer[6]) NeedUpdate = true;
        if (Node->HardwareVersion != Buffer[7]) NeedUpdate = true;
        if (Node->FirmwareVersion != Buffer[8]) NeedUpdate = true;
 
        if (Node->IP[0] != Buffer[9]) NeedUpdate = true;
        if (Node->IP[1] != Buffer[10]) NeedUpdate = true;
        if (Node->IP[2] != Buffer[11]) NeedUpdate = true;
        if (Node->IP[3] != Buffer[12]) NeedUpdate = true;
 
        Node->Refresh();
        if (NeedUpdate)
                {
                Node->Type = Buffer[5];
                Node->Status = Buffer[6];
                Node->HardwareVersion = Buffer[7];
                Node->FirmwareVersion = Buffer[8];
                Node->IP[0] = Buffer[9];
                Node->IP[1] = Buffer[10];
                Node->IP[2] = Buffer[11];
                Node->IP[3] = Buffer[12];
                Node->Ver = AnsiString((char *)(Buffer + 15));
                UpdateNodeList();
                }
        }
}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.09.2017, 16:04
Ответы с готовыми решениями:

RAD Studio. Как форматирование кода максимально приблизить к Visual Studio?
Доброго времени суток! Прошу ответа на вопрос: как в Embarcadero RAD Studio XE2 (2011)...

Переход с Borland на RAD
Здравствуйте! Я программирую на Borland C++ Builder 6.0 2002 года) Решил перейти с этого старья на...

Переход с Builder 6 на Rad 2010
Всем добрый вечер, ребята возникла проблема, можно проэкты которые написаны изначально были на C++...

Переход с RAD 2010 на XE2 и OLE
Есть проблемка. Код AnsiString FileName; Variant WordDocOpen; . . . FileName =...

3
110 / 5 / 13
Регистрация: 07.10.2015
Сообщений: 39
28.09.2017, 13:08 2
а это собственно что, пинг по ip, проверка ip в диапазоне или ?
0
5 / 5 / 1
Регистрация: 22.05.2013
Сообщений: 174
28.09.2017, 13:55  [ТС] 3
DevC, В сети 192.168.1.0/24 контроллеры ... Они отвечают .. IP и версия прошивки
0
684 / 478 / 123
Регистрация: 31.05.2013
Сообщений: 2,627
Записей в блоге: 3
28.09.2017, 15:00 4
NMUDP это вроде соединение по UDP...данный функционал Вы найдете как в обычных сокетах, так и в политре компонентов Indy....на крайняк, эти NM компоненты Вы можете взять с прошлой среды и попробовать их импортировать.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.09.2017, 15:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Модуль для Rad Studio типа VAssist для Visual Studio
Здравствуйте. Подскажите, какую программку установить для подсветки синтаксиса и всплывающих...

Переход с Borland на RAD - C++ Builder (модификация интерфейса программы)
Проект написан на Borland C++. Открыл в RAD Studio 2010. Хочу переделать интерфейс программы. Но в...

Графика в RAD Studio
Можно ли в RAD Studio XE7 подключить графику или она не предусматривает это?

Настройки Rad Studio XE
Добрый вечер! Проблема собственно не сложная а своими мозгами не решается, ну так вот во время...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.