Отчет по практике: Разработка программы контроля изделий и подготовка программной документации
MessageBox(NULL, received_data, "Ошибка", MB_OK);
logmsg(received_data);
}
Form1->WindowState = wsMinimized;
}
else {
sprintf(received_data, "Ошибка %d при открытии канала выдачи данных на экран", res);
logmsg(AnsiString(received_data));
logmsg(AnsiString("Режим автономной работы"));
Form1->WindowState = wsNormal;
}
cor_count = get_correction(&Correction);
// открытие XML-файла
Form1->XMLDocument1->FileName = "device_list.xml";
Form1->XMLDocument1->Active = true;
item_type = DeviceOrModule(ParamStr(1), &index);
// получение списка модулей входящих в состав прибора
if (item_type == 0){
MessageBox(NULL, "Прибор или модуль не был найден", "Ошибка", MB_ICONERROR | MB_OK );
PostMessage(Form1->Handle, WM_CLOSE, 0,0);
return;
}
if (item_type == 1) {
GetModuleList(ParamStr(1), &Module, index, &modules_counter);
if(index == -1) {
PostMessage(Form1->Handle, WM_CLOSE, 0,0);
return;
}
mes = AnsiString("Проверка версии прибора: ") + ParamStr(1);