При випуску нової версії модуля, тег "name" у відповідному теге "module" доповнюється датою випуску наступної версії. Потім створюється новий тег "module" з найменуванням модуля і оновленими значеннями версій в тезі "version".

Структура TXT-файлу "corrections.txt"

Якщо є необхідність перевірити прилад з більш ранніми версіями яких-небудь модулів, що входять до його складу, складається файл поправок "corrections.txt". Структура файла "corrections.txt" за п. REF _Ref202681050 \ n \ h \ * MERGEFORMAT 0 .
Якщо в папці з програмою міститься файл "corrections.txt", то програма робить обробку цього файлу.
У процесі обробки заповнюється масив поправок, що містять два найменування модулів: з ранніми версіями і з більш ранньою версією.
Файл "corrections.txt" призначений для внесення поправок в роботу програми.
Файл складається із записів види:
<name> = <new_name>;
Тут "name" - найменування модуля, який потрібно перевірити з особливими значеннями версій; "new_name" - найменування модуля у файлі "module_list.txt" з особливими значеннями версій.

Висновок

У ході переддипломної практики (у період з 15 грудня 2008 по 15 лютого 2009 р .) Мною були виконані поставлені попередньо завдання:
- Отримані практичні навички роботи в колективі інженерів,
- Розроблено програму перевірки версій компонент виробів,
- Підготовлена ​​до випуску програмна документація.

Додаток 1 - Вихідні тексти програми

//------------------------------------------------ --------------
# Ifndef Unit2H
# Define Unit2H
//------------------------------------------------ --------------# include <Classes.hpp>
//------------------------------------------------ -------------- class Executing: public TThread
{
private:
protected:
void __fastcall Execute ();
public:
bool end;
__fastcall Executing (bool CreateSuspended);
};
//------------------------------------------------ --------------# endif
//------------------------------------------------ --------------
# Include <vcl.h>
# Pragma hdrstop
# Include "Unit1.h"
# Include "Unit2.h"
# Include <stdio.h>
# Include "ProgExchCl_b.h"
# Include "Udevices.h"
# Define SecondLevelNodeAccess Form1-> XMLDocument1-> DocumentElement-> ChildNodes
# Define ThirdLevelNodeAccess (a) Form1-> XMLDocument1-> DocumentElement-> ChildNodes-> GetNode (a) -> ChildNodes

# Define FourthLevelNodeAccess (a, b) Form1-> XMLDocument1-> DocumentElement-> ChildNodes-> GetNode (a) -> ChildNodes-> GetNode (b) -> ChildNodes
char received_data [255];
PModule Module; / / масив модулів
PCorrection Correction; / / масив виправлень
HANDLE m_Disp = NULL; / / для монітора
int wrtd, / / ​​для функції mWrite
cor_count; / / кількість виправлень
TCom * ComPort; / / порт
//------------------------------------------------ --------------
void __fastcall msg (char * str) / / повідомлення для монітора
{
if (! mWrite (m_Disp, (AnsiString (str) + AnsiString ("\ n \ r")). c_str (), strlen (str) +2, & wrtd));
}
void __fastcall logmsg (AnsiString mes) / / повідомлення в полі мемо
{
Form1-> LogText-> Lines-> Add (mes);
}
//------------------------------------------------ -------------- char __fastcall DeviceOrModule (AnsiString Parameter, int * item_index) / / визначити що було передано з початковими параметрами: прилад або модуль і видати порядковий номер потрібного тега.
{
int i, all_nodes;
/ / Шукаємо прилад
all_nodes = SecondLevelNodeAccess-> GetCount (); / / кількість тегів другого рівня
for (i = 0; i <all_nodes; i + +) {
if (AnsiString (SecondLevelNodeAccess-> GetNode (i) -> Attributes [WideString ("name")]) == Parameter) {
* Item_index = i;
return 1;
}
}
/ / Якщо прилад не знайдено, шукаємо модуль в тезі default
all_nodes = SecondLevelNodeAccess-> FindNode ("default") -> ChildNodes-> GetCount (); / / кількість тегів третього рівня в теге default
for (i = 0; i <all_nodes; i + +) {
if (AnsiString (SecondLevelNodeAccess-> FindNode ("default") -> ChildNodes-> GetNode (i) -> Text) == Parameter) {
* Item_index = i;
return 2;
}
}
return 0;
}
//------------------------------------------------ --------------
void __fastcall GetModuleList (AnsiString Parameter, PModule * ModuleList, int item_index, int * modules_counter) / / отримання списку модулів входять до складу приладу
{
int i, j, k, p, all_modules, version_count;
AnsiString mes;
* Modules_counter = ThirdLevelNodeAccess (item_index) -> GetCount (); / / кількість модулів у приладі
* ModuleList = new TModule [* modules_counter]; / / виділяємо пам'ять під масив модулів

for (i = 0; i <* modules_counter; i + +) {/ / заповнюємо поля name і baseaddress
if (cor_count)
{
for (j = 0; j <cor_count; j + +) {
if (AnsiString (ThirdLevelNodeAccess (item_index) -> GetNode (i) -> GetNodeValue ()) == Correction [j]. name) {
(* ModuleList) [i]. Name = Correction [j]. New_name;
break;
}
else (* ModuleList) [i]. name = AnsiString (ThirdLevelNodeAccess (item_index) -> GetNode (i) -> GetNodeValue ());
}
}
else (* ModuleList) [i]. name = AnsiString (ThirdLevelNodeAccess (item_index) -> GetNode (i) -> GetNodeValue ());
(* ModuleList) [i]. Baseaddress = StrToInt (ThirdLevelNodeAccess (item_index) -> GetNode (i) -> Attributes [WideString ("baseaddress ")]);
}
/ / LOG-> Add (AnsiString ());
/ / Активізація dll зі списком модулів
Form1-> XMLDocument1-> FileName = "module_list.xml";
Form1-> XMLDocument1-> Active = true;
all_modules = SecondLevelNodeAccess-> GetCount (); / / скільки всього модулів в базі
for (i = 0; i <* modules_counter; i + +) {
for (j = 0; j <= all_modules; j + +) {/ / заповнюємо поля version
if (j> = all_modules) {/ / не знайшли модуль (помилка у файлі з виправленнями)
mes = AnsiString ("Не знайдено модуль") + (* ModuleList) [i]. name;
MessageBox (NULL, mes.c_str (), "Помилка", MB_ICONERROR | MB_OK);
break;
}
if ((* ModuleList) [i]. name == AnsiString (ThirdLevelNodeAccess (j) -> GetNode (0) -> GetNodeValue ())) {
(* ModuleList) [i]. Version_count = ThirdLevelNodeAccess (j) -> GetCount () - 1;
for (k = 0; k <(* ModuleList) [i]. version_count; k + +) {
(* ModuleList) [i]. Version [k] = new TVersion;
(* ModuleList) [i]. Version [k] -> address = StrToInt (FourthLevelNodeAccess (j, k +1) -> GetNode (0) -> NodeValue);
(* ModuleList) [i]. Version [k] -> value = StrToInt (FourthLevelNodeAccess (j, k +1) -> GetNode (1) -> NodeValue);
(* ModuleList) [i]. Version [k] -> type = StrToInt (FourthLevelNodeAccess (j, k +1) -> GetNode (2) -> NodeValue);
(* ModuleList) [i]. Version [k] -> description = AnsiString (ThirdLevelNodeAccess (j) -> GetNode (k +1) -> Attributes [WideString ("description ")]);
}
break;
}
}
/ / LOG-> Add (ModuleList [i]. Name + AnsiString ("") + ModuleList [i]. Baseaddress);
}
}
//------------------------------------------------ --------------

void __fastcall GetModule (AnsiString Parameter, PModule * ModuleList, int item_index) / / отримуємо інформацію для одного модуля
{
int i, j, all_modules;
* ModuleList = new (TModule);
(* ModuleList) [0]. Name = AnsiString (Form1-> XMLDocument1-> DocumentElement-> ChildNodes-> FindNode ("default") -> ChildNodes-> GetNode (item_index) -> GetNodeValue ());
(* ModuleList) [0]. Baseaddress = StrToInt (Form1-> XMLDocument1-> DocumentElement-> ChildNodes-> FindNode ("default") -> ChildNodes-> GetNode (item_index) -> Attributes [WideString ("baseaddress")] );
Form1-> XMLDocument1-> FileName = "module_list.xml";
Form1-> XMLDocument1-> Active = true;
all_modules = SecondLevelNodeAccess-> GetCount ();
for (i = 0; i <= all_modules; i + +) {
if (i> = all_modules) {
MessageBox (NULL, "Модуль не був знайдений. Версія недоступна", "Error", MB_ICONERROR | MB_OK);
break;
}
if ((* ModuleList) [0]. name == AnsiString (ThirdLevelNodeAccess (i) -> GetNode (0) -> GetNodeValue ())) {
(* ModuleList) [0]. Version_count = ThirdLevelNodeAccess (i) -> GetCount () - 1;
for (j = 0; j <(* ModuleList) [0]. version_count; j + +) {
(* ModuleList) [0]. Version [j] = new TVersion;
(* ModuleList) [0]. Version [j] -> address = StrToInt (FourthLevelNodeAccess (i, j +1) -> GetNode (0) -> NodeValue);
(* ModuleList) [0]. Version [j] -> value = StrToInt (FourthLevelNodeAccess (i, j +1) -> GetNode (1) -> NodeValue);
(* ModuleList) [0]. Version [j] -> type = StrToInt (FourthLevelNodeAccess (i, j +1) -> GetNode (2) -> NodeValue);
(* ModuleList) [0]. Version [j] -> description = AnsiString (ThirdLevelNodeAccess (i) -> GetNode (j +1) -> Attributes [WideString ("description ")]);
}
break;
}
}
/ * LOG-> Add ((* ModuleList) [0]. Name + AnsiString ("") + (* ModuleList) [0]. Baseaddress);
for (i = 0; i <(* ModuleList) [0]. version_count; i + +) {
LOG-> Add ((* ModuleList) [0]. Version [i] -> address);
LOG-> Add ((* ModuleList) [0]. Version [i] -> value);
LOG-> Add ((* ModuleList) [0]. Version [i] -> type);
} * /
}
//------------------------------------------------ --------------
unsigned int _fastcall get_version (unsigned int BaseAddress, unsigned int type) / / зчитуємо версію з модуля
{
unsigned short i, j;
unsigned short SHsum; / / контрольна сума
unsigned char * pTarget = new unsigned char [10];
unsigned char * pReceived;
unsigned short MessageSize = 6;
unsigned int version;
ComPort = new TCom ("COM2", 115 200);
i = ComPort-> link_on ();
if (i) {
MessageBox (NULL, AnsiString (i). C_str (), "Помилка ініціалізації порту", MB_OK);
return 0;
}
pTarget [0] = 0x31;
pTarget [1] = (unsigned char) (MessageSize); / / молодший байт
pTarget [2] = (unsigned char) (MessageSize>> 8); / / старший байт
pTarget [3] = 0x04;
pTarget [4] = (unsigned char) type;
* (Int *) (pTarget + 0x05) = BaseAddress;
version = 0;
SHsum = 0x0;
for (i = 3; i <= 8; i + +) {SHsum + = pTarget [i];} / / підрахунок КС
/ / MessageBox (NULL, AnsiString (SHsum). C_str (), "Контрольна сума", MB_OK);
pTarget [9] = (unsigned char) (SHsum); / / молодший байт
pTarget [10] = (unsigned char) (SHsum>> 8); / / старший байт
ComPort-> write (pTarget, 3 + MessageSize +2);
delete [] pTarget;
Sleep (100);
i = ComPort-> read ();
if (i> 0)
{
/ / MessageBox (NULL, AnsiString (i). C_str (), "Прийнято байт", MB_OK);
pReceived = ComPort-> get_receiver_ptr (); / / зчитуємо отримане значення
if (pReceived [0]! = 0x55 | | pReceived [1]! = 0xAA) {
MessageBox (NULL, pReceived, "Помилка", MB_OK);
return 0;
}
/ / Накладення масок
switch (type) {
case 1:
version = (unsigned int) (* (char *) (pReceived + 5)) &0x000000FF;
break;
case 2:
version = (unsigned int) (* (short *) (pReceived + 5)) &0x0000FFFF;
break;
case 4:
version = (unsigned int) * (int *) (pReceived + 5);
break;
default:
version = (unsigned int) (* (short *) (pReceived + 5)) &0x0000FFFF;
break;
}
}
ComPort-> link_off ();
return version;
}
__fastcall Executing:: Executing (bool CreateSuspended) / / конструктор
: TThread (CreateSuspended)
{
end = false; / / мітка закінчення = брехливо
}
//------------------------------------------------ --------------
int __fastcall get_correction (PCorrection * CorrectionList) / / обробка файлу виправлень
{
int i = 0;
int j = 0;
int n = 0;
int correction_counter = 0; / / кількість виправлень
FILE * CorrectFilePtr; / / файл з виправленнями
char tempchar = '';
char * tempFile; / / масив під файл з сіправленіямі
char control_buff [20]; / / масив знаків пунктуації
if ((CorrectFilePtr = fopen ("corrections.txt", "r")) == NULL) {
return 0;
}
/ / Дізнаємося розмір файлу і виділяємо тимчасовий масив під файл
fseek (CorrectFilePtr, 0L, SEEK_END);
n = ftell (CorrectFilePtr);
fseek (CorrectFilePtr, 0L, SEEK_SET);
tempFile = new char [n];
/ / Виправляємо можливі помилки пунктуації
while (tempchar == '\ n' | | tempchar == '') {
tempchar = fgetc (CorrectFilePtr);
}
tempFile [0] = tempchar;
i = 1;
while (1) {
tempchar = fgetc (CorrectFilePtr);
if (tempchar == '\ n') {
continue;
}
if (tempchar == '') {
continue;
}
if (tempchar =='='){
control_buff [j] = tempchar;
j + +;
}
if (tempchar ==';'){
control_buff [j] = tempchar;
correction_counter + +;
j + +;
}
if (tempchar == EOF) {
tempFile [i] = tempchar;
control_buff [j] = tempchar;
break;
}
tempFile [i] = tempchar;
i + +;
}
/ / Чи правильно розставлені знаки пріпенанія
for (i = 0; i <= j; i + +) {
if (control_buff [i] =='='){
if (control_buff [i +1]! =';'){
logmsg ("У файлі коригування виявлена ​​помилка. Коригування враховані не будут33");
return 0;
}
}
if (control_buff [i] ==';'){
if (! (control_buff [i +1] == '=' | | control_buff [i +1] == EOF)) {
logmsg ("У файлі коригування виявлена ​​помилка. Коригування враховані не будут331");
return 0;
}
}
}
/ / MessageBox (NULL, tempFile, "прочитав", MB_OK);
* CorrectionList = new TCorrection [correction_counter];
/ / Заполянем масив виправлень
tempchar = 0;
i = 0;
n = 0;
while (tempchar! = EOF) {
while (tempFile [i]! = '=') {
(* CorrectionList) [n]. Name + = tempFile [i + +];
}
/ / (* CorrectionList) [n]. Name [j] = '\ 0';
i + +;
while (tempFile [i]! = ';') {
(* CorrectionList) [n]. New_name + = tempFile [i + +];
}
/ / (* CorrectionList) [n]. New_name [j] = '\ 0';
n + +;
tempchar = tempFile [+ + i];
}
/ * For (j = 0; j <correction_counter; j + +) {
MessageBox (NULL, (* CorrectionList) [j]. Name, "", MB_OK);
MessageBox (NULL, (* CorrectionList) [j]. New_name, "", MB_OK);
} * /
delete [] tempFile;
fclose (CorrectFilePtr);
return correction_counter;
}
//------------------------------------------------ -------------- void __fastcall Executing:: Execute ()
{
CoInitialize (NULL);
char item_type;
DWORD res;
char received_data [255];
unsigned int received_version = 0;
AnsiString mes;
int i, j, index, modules_counter, all_modules, p, param_num;
int error = 0;
if (! FileExists ("device_list.xml")) {
MessageBox (NULL, "Файл device_list.xml не був знайдений", "Помилка", MB_ICONERROR | MB_OK);
PostMessage (Form1-> Handle, WM_CLOSE, 0,0);
return;
}
if (! FileExists ("module_list.xml")) {
MessageBox (NULL, "Файл module_list.xml не був знайдений", "Помилка", MB_ICONERROR | MB_OK);
PostMessage (Form1-> Handle, WM_CLOSE, 0,0);
return;
}
/ / Обробка вхідних параметрів
if (ParamCount () == 0) {
MessageBox (NULL, "Не було передано жодного параметра!", "Помилка", MB_ICONERROR | MB_OK);
PostMessage (Form1-> Handle, WM_CLOSE, 0,0);
return;
}
/ / Отримати управління над функціями бібліотеки ProgExchCl.dll
res = ProgExchCl_LoadLibrary ();
if (res! = 0x0)
{
sprintf (received_data, "Отримано помилку% d при зверненні до бібліотеки \" ProgExchCl.dll \ ".", res);
MessageBox (NULL, received_data, "Помилка", MB_OK);
}
/ / Відкриття каналу видачі даних на екран
sprintf (received_data, "PipeDisplay% d", GetCurrentProcessId ());
res = mOpen (received_data, & m_Disp);
if (res == 0x0)
{
/ / Перевести висновок в режим налагоджувальної (0x01 0x02) або звітної (0x01 0x01) інформації
received_data [0] = 0x01; received_data [1] = 0x01;
res = mWrite (m_Disp, received_data, 2, & wrtd);
if (res! = 0x0)
{
sprintf (received_data, "Отримано помилку% d при перекладі виведення в режим налагоджувальної інформації", res);
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);
/ / Отримання списку модулів входять до складу приладу