|
Разработка программы контроля изделий и подготовка программной документации |
reak;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,"Пpочитано",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 if(!FileExists("module_list.xml"))MessageBox(NULL, "Файл module_list.xml не был найден ", "Ошибка", MB_ICONERROR // обработка входных параметровif (ParamCount() == 0) MB_OK );PostMessage(Form1->Handle, WM_CLOSE, 0,0);return;// получить управление над функциями библиотеки ProgExchCl.dllres = 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);// получение списка модулей входящих в состав прибораif (item_type == 0) 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);}if (item_type == 2) {GetModule(ParamStr(1), &Module, index);if(index == -1) {PostMessage(Form1->Handle, WM_CLOSE, 0,0);return;}mes = AnsiString("Проверка версии модуля: ") + ParamStr(1);modules_counter = 1;}msg(" ");msg(" ");msg(mes.c_str());logmsg(mes.c_str());// перевести вывод в режим отладочной (0x01 0x02) или отчетной (0x01 0x01) информацииreceived_data[0] = 0x01; received_data[1] = 0x02;res = mWrite(m_Disp, received_data, 2, &wrtd);if(res != 0x0){// sprintf(received_data, "Ошибка %d при переводе вывода в режим отладочной информации", res);// MessageBox(NULL, received_data, "Ошибка", MB_OK);}// вывод результатов тестирования по каждому модулюfor (i = 0; i < modules_counter; i++) {// название модуляmsg(" ");msg(Module[i].name.c_str());logmsg(" ");logmsg(Module[i].name.c_str());for (j = 0; j < Module[i].version_count ; j++) {received_version = get_version( (unsigned int) (Module[i].baseaddress + Module[i].version[j]->address), Module[i].version[j]->type);// если версии совпадают, то НОРМА, если не совпадают, то НЕНОРМАif(received_version == Module[i].version[j]->value){mes =AnsiString(" ") + Module[i].version[j]->description + AnsiString(" 0x") + IntToHex((int) Module[i].version[j]->value, Module[i].version[j]->type) + AnsiString(" :HOPMA ");msg(mes.c_str());logmsg(mes.c_str());}else {mes =AnsiString(" ") + Module[i].version[j]->description + AnsiString(" 0x") + IntToHex((int) received_version, Module[i].version[j]->type) + AnsiString(" :HEHOPMA ") + AnsiString("(должно быть 0x") + IntToHex((int) Module[i].version[j]->value, Module[i].version[j]->type) + AnsiString(")");msg(mes.c_str());logmsg(mes.c_str());error+=1;}}}// перевести вывод в режим отладочной (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);}// общий результат тестированияif(error) {msg(" ");msg("Результат: НЕНОРМА");logmsg(" ");logmsg("Результат: НЕНОРМА");}else {msg(" ");msg("Результат: НОРМА");logmsg(" ");logmsg("Результат: НОРМА");}// освобождаем динамически выделенную памятьif (item_type == 1) {delete [] Module;}else delete Module;delete [] Correction;if(mClose != NULL){// отключить каналы обменаmClose(m_Disp);}ProgExchCl_FreeLibrary();CoUninitialize();PostMessage(Form1->Handle, WM_CLOSE, 0,0);}//--------------------------------------------------------------#ifndef Unit1H#define Unit1H//--------------------------------------------------------------#include <Classes.hpp>#include <Controls.hpp>#include <StdCtrls.hpp>#include <Forms.hpp>#include <msxmldom.hpp>#include <XMLDoc.hpp>#include <xmldom.hpp>#include <XMLIntf.hpp>//--------------------------------------------------------------typedef struct _SVersion{unsigned int address; //адрес регистра версииunsigned int value; //считанное значение версииunsigned int type; //разрядность версииAnsiString description;//описание версии} TVersion,* PVersion;typedef struct _SModule{AnsiString name; //имя модуляunsigned int baseaddress; //базовый адрес модуляint version_count;//количество версий у модуляPVersion version[10]; //массив версий модуля} TModule,* PModule;typedef struct _SCorrection{AnsiString name;AnsiString new_name;} TCorrection,* PCorrection;class TForm1 : public TForm{__published: // IDE-managed ComponentsTXMLDocument *XMLDocument1;TMemo *LogText;void __fastcall FormActivate(TObject *Sender);void __fastcall FormClose(TObject *Sender, TCloseAction &Action);private: // User declarationspublic: // User declarations__fastcall TForm1(TComponent* Owner);};//--------------------------------------------------------------extern PACKAGE TForm1 *Form1;//--------------------------------------------------------------#endif//--------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "Unit1.h"#include "Unit2.h"#include <stdio.h>//--------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"Executing *Thread;TForm1 *Form1;tagMSG lpMsg;//--------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner){}//--------------------------------------------------------------void __fastcall TForm1::FormActivate(TObject *Sender){Thread = new Executing(FALSE); // запускаем поток}//--------------------------------------------------------------void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action){Thread->WaitFor();delete (Thread);}//--------------------------------------------------------------//---------------------------------------------------------------------------#ifndef UdevicesH#define UdevicesH#include <classes.hpp>//#include "U_MK_pipe.h"#include <Mask.hpp>//--------------------------------------------------------------// Абстрактный класс, реализующий базовые функции любого устройстваclass TDevFather: public TObject{__published:private: // User declarationsprotected:bool active;char receiver[0x1000];//априорно выделено 4кб буфера, приготовлены для отправки классу мониторуint receiver_size;//размер реально принятых байт в буфереpublic:virtual __fastcall TDevFather();virtual __fastcall ~TDevFather();virtual int __fastcall link_on();virtual int __fastcall link_off();//функции для работы с мостом в целях ввода/вывода//чтение из буфера устройтваvirtual int __fastcall scan();//Возвращает признак состояния устройстваvirtual int __fastcall read();//Если положительное число, то это число пинятых байт, если отрицательное, то это код ошибкиvirtual char* __fastcall get_receiver_ptr();////отправить данныеvirtual int __fastcall write(char* chs, int size);//передача символов/байтов на устройство//запись в буфер//virtual int __fastcall add_to_sender(char* chs, int size);//передача символов/байтов в передающий буфер};//--------------------------------------------------------------class TCom: public TDevFather{__published:private: // User declarationsprotected:AnsiString comname;int baudrate;HANDLE com_hndl;DCB st_dcb;public:virtual __fastcall TCom(char* comname, int baudrate);virtual __fastcall ~TCom();int __fastcall link_on();int __fastcall link_off();//функции для работы с мостом в целях ввода/вывода//чтение из буфера устройтваint __fastcall scan();//Возвращает признак состояния устройстваint __fastcall read();//Если положительное число, то это число пинятых байт, если отрицательное, то это код ошибки//virtual char* __fastcall get_receiver_ptr();// метод наследуется без изменения//отправить данныеvirtual int __fastcall write(char* chs, int size);//передача символов/байтов на устройство//запись в буфер//virtual int __fastcall add_to_sender(char* chs, int size);//передача символов/байтов в передающий буферvoid __fastcall set_comname(AnsiString comname);void __fastcall set_baudrate(int baudrate);AnsiString __fastcall get_comname();int __fastcall get_baudrate();};//--------------------------------------------------------------#endif//--------------------------------------------------------------#pragma hdrstop#include <Forms.hpp>#include <Mask.hpp>#include "Udevices.h"//--------------------------------------------------------------__fastcall TDevFather::TDevFather(){}//--------------------------------------------------------------__fastcall TDevFather::~TDevFather(){}//--------------------------------------------------------------int __fastcall TDevFather::link_on(){ return 0; }//--------------------------------------------------------------int __fastcall TDevFather::link_off(){ return 0; }//-------------------------------------------------------------- //функции для работы с мостомint __fastcall TDevFather::scan()//Возвращает признак состояния устройства{//return receiver_size;}//---------------------------------------------------------------------------int __fastcall TDevFather::read()//Если положительное число, то это число принятых байт, если отрицательное, то это код ошибки{//return receiver_size;}//---------------------------------------------------------------------------char* __fastcall TDevFather::get_receiver_ptr()//{return receiver;}//---------------------------------------------------------------------------int __fastcall TDevFather::write(char* chs, int size){return size;}//---------------TCom-------------------------------------------__fastcall TCom::TCom(char* comname, int baudrate){//TCom::comname=comname; //="COM1";TCom::baudrate=baudrate; //=115200;active=false;}//--------------------------------------------------------------__fastcall TCom::~TCom(){//if(active){link_off();}}//--------------------------------------------------------------int __fastcall TCom::link_on(){//if (!active){com_hndl=CreateFile(comname.c_str(), GENERIC_READ | GENERIC_WRITE , 0, NULL, OPEN_EXISTING, 0, 0);if (com_hndl == INVALID_HANDLE_VALUE){//MessageBoxA(0,"Invalid handle value","Simple_COM", MB_OK);active=false;return -1;}//настройка параметров соединенияst_dcb.DCBlength= sizeof(DCB);st_dcb.Parity=NOPARITY; //NOPARITY, ODDPARITY, MARKPARITY , EVENPARITYst_dcb.StopBits=ONESTOPBIT; //ONESTOPBIT , ONE5STOPBITS , TWOSTOPBITSst_dcb.ByteSize=8; //4-8st_dcb.BaudRate=baudrate; //CBR_115200SetCommState(com_hndl, &st_dcb);if ( com_hndl == INVALID_HANDLE_VALUE){//MessageBoxA(0,"Invalid handle value","Simple_COM", MB_OK);active=false;return -1;}SetupComm(com_hndl, 40000, 40000);//размеры банковif (com_hndl == INVALID_HANDLE_VALUE){//MessageBoxA(0,"Invalid handle value","Simple_COM", MB_OK);active=false;return -1;}SetCommMask(com_hndl,EV_RXCHAR);if (com_hndl == INVALID_HANDLE_VALUE){//MessageBoxA(0,"Invalid handle value","Simple_COM", MB_OK);active=false;return -1;}active=true;};if (!active){return -1;}else{return 0;}}//--------------------------------------------------------------int __fastcall TCom::link_off(){//if (active){active=false;CloseHandle(com_hndl);return 0;}else{active=false;return -1;}}//--------------------------------------------------------------int __fastcall TCom::scan()//Возвращает признак состояния устройства{COMSTAT st;unsigned long Err;if (active){if ( ClearCommError(com_hndl, &Err, &st) ){return st.cbInQue;}else{//MessageBoxA(0,"Com scan error","Simple_COM", MB_OK);return -1;}}else{return 0;}}//--------------------------------------------------------------int __fastcall TCom::read()//Если положительное число, то это число пинятых байт, если отрицательное, то это код ошибки{COMSTAT st;unsigned long Err;unsigned long readed_bytes;//readed_bytes=0;if (active){if ( ClearCommError(com_hndl, &Err, &st) ){if ( (Err & CE_BREAK)>0 ){//MessageBoxA(0,"Com read error : CE_BREAK","Simple_COM", MB_OK);return -2;}if ( 0x1000>st.cbInQue ){if (! ReadFile(com_hndl, receiver, st.cbInQue, &readed_bytes, NULL) ){//MessageBoxA(0,"Com read error : ReadFile 1","Simple_COM", MB_OK);return -3;}}else{if (! ReadFile(com_hndl, receiver, 0x1000, &readed_bytes, NULL) ){//MessageBoxA(0,"Com read error : ReadFile 2","Simple_COM", MB_OK);return -4;}}}else{//MessageBoxA(0,"0шибка сканирования устройства COM","Simple_COM", MB_OK);}}return (int)readed_bytes;}//--------------------------------------------------------------int __fastcall TCom::write(char* chs, int size){unsigned long sended;//sended=0;if (! WriteFile(com_hndl, chs, (unsigned long)size, &sended, NULL) ){//ошибка//MessageBoxA(0, "Ошибка передачи данных", "Simple_COM", MB_OK);return -1;}return (int)sended;}//--------------------------------------------------------------void __fastcall TCom::set_comname(AnsiString comname){}void __fastcall TCom::set_baudrate(int baudrate){}AnsiString __fastcall TCom::get_comname(){//return comname;}//--------------------------------------------------------------int __fastcall TCom::get_baudrate(){//return baudrate;}
Страницы: 1, 2, 3
|
|
|
© 2003-2013
Рефераты бесплатно, курсовые, рефераты биология, большая бибилиотека рефератов, дипломы, научные работы, рефераты право, рефераты, рефераты скачать, рефераты литература, курсовые работы, реферат, доклады, рефераты медицина, рефераты на тему, сочинения, реферат бесплатно, рефераты авиация, рефераты психология, рефераты математика, рефераты кулинария, рефераты логистика, рефераты анатомия, рефераты маркетинг, рефераты релиния, рефераты социология, рефераты менеджемент. |
|
|