Простой плагин на Delphi

 

1. Назначение

Плагин реализует функцию простейшего XY осциллографа.
  • Работа как в реальном масштабе времени, так и в режиме просмотра файла.
  • Может использоваться как пример при разработке плагинов на языке Borland C.

2. Исходный текст плагина

/* Плагин XY осциллографа. Среда разработки Borland C 5.02 */ #include "windows.h" #include "math.h" #include "..\\include\\plugin.h" // индексы визуальных элементов #define VISUAL_INDEX_GRAPH 0 // график #define VISUAL_INDEX_MX_X 1 // значение MX канала X #define VISUAL_INDEX_DX_X 2 // значение DX канала X #define VISUAL_INDEX_MX_Y 3 // значение MX канала Y #define VISUAL_INDEX_DX_Y 4 // значение DX канала Y #define VISUAL_INDEX_N 5 // размер выборки // индексы параметров #define PARM_DURATION_SCALE 0 // масштаб времени #define PARM_DURATION 1 // продолжительность выборки #define PARM_PRECISION 2 // число знаков после запятой #define PARM_LINE 3 // тип линии #define MAX_SIZE 100000 // максимальное число кадров, которые можно обработать за один раз double FindFRQ(double *TEMP, int N, double DFRQ); static struct PluginDataInfoStr DataInfo; // структура с настройками АЦП struct PluginVisualMainStr LgraphVisual; // структура с настройками LGraph2 static int device_index=0; // работаем с первым модулем АЦП static double *YData, *XData, *YNewData, *Yout, *Yfreq; // указатели на временные буфера int Points; int LineTypeArray[2]={VAL_THIN_LINE, VAL_FAT_LINE}; // ********************************************************************************************************* // главная функция обмена данными void __stdcall PluginDataExchange(struct PluginDataStr *data_str) { int i, j, chan, index, n, mode, imax, imin, good, inverse_flag, f_detect_flag=0, n1; int chan1, chan2, nch; double pi, *ptr, x_freq, y_freq, freq, dt1, mx, dx, duration; double x_interp[4], y_interp[4], x_new, y_new, error, dt, channel_delay; chan1=DataInfo.adc_channels[0]; // запомним номер канала X плагина (от 0 до 31) chan2=DataInfo.adc_channels[1]; // запомним номер канала Y плагина (от 0 до 31) n=data_str->n; // сколько кадров будем обрабатывать dt=1000000./DataInfo.rate[device_index]; // интервал в микросекундах for(chan=0, nch=DataInfo.nch[device_index]; chan < 2; chan++) // цикл по двум каналам { // переложим в XData, YData данные АЦП index=(chan) ? DataInfo.chan_kadr_offset[device_index][chan2] : DataInfo.chan_kadr_offset[device_index][chan1]; ptr=(chan) ? YData : XData; for(i=0; i < n; i++, index += nch) *ptr++=data_str->data_to_plugin[index]; // найдем среднее и лисперсию ptr=(chan) ? YData : XData; for(i=mx=0; i < n; i++) mx += ptr[i]; mx /= n; for(i=dx=0; i < n; i++) dx += (ptr[i]-mx)*(ptr[i]-mx); dx=sqrt(dx/n); data_str->slow_data[(chan) ? VISUAL_INDEX_MX_Y : VISUAL_INDEX_MX_X]=mx; data_str->slow_data[(chan) ? VISUAL_INDEX_DX_Y : VISUAL_INDEX_DX_X]=dx; } // определим длительность отображаемой выборки в нужном масштабе switch(DataInfo.parameters_int[PARM_DURATION_SCALE]) { case 0: duration=n*dt/1000000.; break; case 1: duration=n*dt/1000.; break; case 2: duration=n*dt; break; case 3: duration=n; break; } data_str->slow_data[VISUAL_INDEX_N]=duration; // сохраним данные для передачи в ЛГраф data_str->n_from_graph[0]=n; data_str->x_data[0]=XData; data_str->data_from_graph[0]=YData; data_str->control_index[0]=0; // номер графического элемента, в котором будет нарисован график data_str->color[0]=VAL_RED; // цвет графика data_str->line_type[0]=VAL_SOLID; // тип линии (сплошной, точки и т.п.) data_str->line_mode[0]=LineTypeArray[DataInfo.parameters_int[PARM_LINE]]; } //********************************************************************************************************* // информационная функция void __stdcall PluginInfo(struct PluginInfoStr *p_info) { // установим общие переменные strcpy(p_info->name, "XY oscilloscope"); // название плагина p_info->version=0x00010000; // версия 1.0 p_info->lgraph_version=0x222; // плагин разработан для версии 2.33 p_info->max_nch=p_info->min_nch=2; // максимальное число каналов, которые может обработать плагин 2 // установим параметры входных каналов плагина strcpy(p_info->channel_names[0], "Канал X"); strcpy(p_info->channel_names[1], "Канал Y"); p_info->parameters=7; // всего 7 параметров // Масштаб временного интервала отображения strcpy(p_info->parameters_names[PARM_DURATION_SCALE], "Масштаб временного интервала отображения"); p_info->parameters_type[PARM_DURATION_SCALE]=L_TYPE_RING; strncpy(p_info->ring_names[PARM_DURATION_SCALE][0], "Секунды", 63); strncpy(p_info->ring_names[PARM_DURATION_SCALE][1], "Миллисекунды", 63); strncpy(p_info->ring_names[PARM_DURATION_SCALE][2], "Микросекунды", 63); strncpy(p_info->ring_names[PARM_DURATION_SCALE][3], "Кадры", 63); p_info->default_parameters_int[PARM_DURATION_SCALE]=0; // Временной интервал отображения strcpy(p_info->parameters_names[PARM_DURATION], "Временной интервал отображения"); p_info->parameters_type[PARM_DURATION]=L_TYPE_DOUBLE; p_info->default_parameters_dbl[PARM_DURATION]=0.1; // Число знаков после запятой strcpy(p_info->parameters_names[PARM_PRECISION], "Число знаков после запятой."); p_info->parameters_type[PARM_PRECISION]=L_TYPE_INT; p_info->default_parameters_int[PARM_PRECISION]=3; p_info->min_parameters_int[PARM_PRECISION]=1; p_info->max_parameters_int[PARM_PRECISION]=10; // Тип линии strcpy(p_info->parameters_names[PARM_LINE], "Тип линии"); p_info->parameters_type[PARM_LINE]=L_TYPE_RING; strncpy(p_info->ring_names[PARM_LINE][0], "Тонкая", 63); strncpy(p_info->ring_names[PARM_LINE][1], "Толстая", 63); if(XData == NULL) { // выделим память XData=malloc(MAX_SIZE*sizeof(double)); if(XData == NULL) { strcpy(p_info->error, "Не хватает памяти"); return; } YData=malloc(MAX_SIZE*sizeof(double)); if(YData == NULL) { free(XData); XData=0; strcpy(p_info->error, "Не хватает памяти"); return; } YNewData=malloc(MAX_SIZE*sizeof(double)); if(YNewData == NULL) { free(XData); XData=0; free(YData); strcpy(p_info->error, "Не хватает памяти"); return; } if(Yout == NULL) Yout=malloc(sizeof(double)*MAX_SIZE/2); if(Yout == NULL) { free(XData); XData=0; strcpy(p_info->error, "Не хватает памяти"); return; } if(Yfreq == NULL) Yfreq=malloc(sizeof(double)*MAX_SIZE); if(Yfreq == NULL) { free(XData); XData=0; strcpy(p_info->error, "Не хватает памяти"); return; } } } // ********************************************************************************************************* // обработка данных о параметрах модулей АЦП от LGraph void __stdcall PluginDataInfo(struct PluginDataInfoStr *d_info) { int chan_x, chan_y; if(!d_info->devices) { strcpy(d_info->error, "Нет модуля АЦП"); return; } if(!d_info->nch[device_index]) { strcpy(d_info->error, "Не выбраны каналы АЦП"); return; } if(d_info->adc_nch < 2) { strcpy(d_info->error, "Не выбраны каналы АЦП"); return; } DataInfo=*d_info; // запомним параметры АЦП chan_x=d_info->adc_channels[0]; // запомним номер канала (от 0 до 31) chan_y=d_info->adc_channels[1]; // запомним номер канала (от 0 до 31) // проверим включен ли канал if(!d_info->chan_on[device_index][chan_x]) { sprintf(d_info->error, "Не выбран канал X"); return; } if(!d_info->chan_on[device_index][chan_y]) { sprintf(d_info->error, "Не выбран канал Y"); return; } // определим сколько точек будем обрабатывать switch(d_info->parameters_int[PARM_DURATION_SCALE]) { case 0: Points=d_info->parameters_dbl[PARM_DURATION]*d_info->rate[device_index]+0.5; break; case 1: Points=d_info->parameters_dbl[PARM_DURATION]*d_info->rate[device_index]/1000.+0.5; break; case 2: Points=d_info->parameters_dbl[PARM_DURATION]*d_info->rate[device_index]/1000000.+0.5; break; case 3: Points=d_info->parameters_dbl[PARM_DURATION]; break; } if(Points < 3) { sprintf(d_info->error, "Слишком мало точек"); return; } if(Points > MAX_SIZE) { sprintf(d_info->error, "Слишком много точек"); return; } d_info->input_kadrs_min=d_info->input_kadrs_max=Points; d_info->no_omit_old_data=1; } //********************************************************************************************************* // настройка визуальных элементов void __stdcall PluginVisualSetting(struct PluginVisualMainStr *main_visual_settings, struct PluginVisualStr p_visual[]) { int graph_height, graph_width, m_top, m_left; char *duration_names[]={"T, секунды", "T, миллисекунды", "T, микросекукнды", "T, кадры"}; LgraphVisual=*main_visual_settings; main_visual_settings->n=6; // создаем 8 визуальных элементов main_visual_settings->plugin_height=main_visual_settings->height*0.7; // высота 0.7 экрана // ********** НАСТРОЙКИ ГРАФИКА graph_height=main_visual_settings->plugin_height-40; graph_width=main_visual_settings->width-120; m_top=25; m_left=graph_width+20; p_visual[VISUAL_INDEX_GRAPH].type=L_VISUAL_GRAPH; // настроим графические координаты p_visual[VISUAL_INDEX_GRAPH].top=20; // координата по вертикали графика p_visual[VISUAL_INDEX_GRAPH].height=graph_height; // высота графика p_visual[VISUAL_INDEX_GRAPH].width=graph_width; // ширина графика p_visual[VISUAL_INDEX_GRAPH].left=10; // горизонтальная координата // сконфигурируем ось X p_visual[VISUAL_INDEX_GRAPH].x_axis_mode=1; // по умолчанию включим автомасштаб по оси X // сконфигурируем ось Y p_visual[VISUAL_INDEX_GRAPH].y_axis_mode=1; // по умолчанию включим автомасштаб по оси X //************ настройка остальных визуальных элементов p_visual[VISUAL_INDEX_MX_X].type=L_VISUAL_NUMERIC; strcpy(p_visual[VISUAL_INDEX_MX_X].label_text, "MX (X)"); p_visual[VISUAL_INDEX_MX_X].top=m_top; // координата по вертикали p_visual[VISUAL_INDEX_MX_X].left=m_left; // координата по горизонтали p_visual[VISUAL_INDEX_MX_X].y_precision=DataInfo.parameters_int[PARM_PRECISION]; p_visual[VISUAL_INDEX_DX_X].type=L_VISUAL_NUMERIC; strcpy(p_visual[VISUAL_INDEX_DX_X].label_text, "DX (X)"); p_visual[VISUAL_INDEX_DX_X].top=m_top+50; // координата по вертикали p_visual[VISUAL_INDEX_DX_X].left=m_left; // координата по горизонтали p_visual[VISUAL_INDEX_DX_X].y_precision=DataInfo.parameters_int[PARM_PRECISION]; p_visual[VISUAL_INDEX_MX_Y].type=L_VISUAL_NUMERIC; strcpy(p_visual[VISUAL_INDEX_MX_Y].label_text, "MX (Y)"); p_visual[VISUAL_INDEX_MX_Y].top=m_top+50*3+20; // координата по вертикали p_visual[VISUAL_INDEX_MX_Y].left=m_left; // координата по горизонтали p_visual[VISUAL_INDEX_MX_Y].y_precision=DataInfo.parameters_int[PARM_PRECISION]; p_visual[VISUAL_INDEX_DX_Y].type=L_VISUAL_NUMERIC; strcpy(p_visual[VISUAL_INDEX_DX_Y].label_text, "DX (Y)"); p_visual[VISUAL_INDEX_DX_Y].top=m_top+50*4+20; // координата по вертикали p_visual[VISUAL_INDEX_DX_Y].left=m_left; // координата по горизонтали p_visual[VISUAL_INDEX_DX_Y].y_precision=DataInfo.parameters_int[PARM_PRECISION]; p_visual[VISUAL_INDEX_N].type=L_VISUAL_NUMERIC; strcpy(p_visual[VISUAL_INDEX_N].label_text, duration_names[DataInfo.parameters_int[PARM_DURATION_SCALE]]); p_visual[VISUAL_INDEX_N].top=m_top+50*6+40; // координата по вертикали p_visual[VISUAL_INDEX_N].left=m_left; // координата по горизонтали p_visual[VISUAL_INDEX_N].y_precision=DataInfo.parameters_int[PARM_PRECISION]; } // Функция сообщает плагину, что начался/закончился сбор данных (в данном плагине не используем) void __stdcall PluginStartInput(struct PluginDataStr *data_str) {} void __stdcall PluginStopInput(struct PluginDataStr *data_str) {} //********************************************************************************************************* // Функция вызываемая при загрузке - выгрузке DLL плагина int __stdcall DllMain (HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved) { switch (fdwReason) { case DLL_PROCESS_ATTACH: break; case DLL_PROCESS_DETACH: if(XData != NULL) free(XData); if(YData != NULL) free(YData); if(YNewData != NULL) free(YNewData); if(Yout != NULL) free(Yout); if(Yfreq != NULL) free(Yfreq); break; } return 1; }

Контакты

Адрес: 117105, Москва, Варшавское шоссе, д. 5, корп. 4, стр. 2

Многоканальный телефон:
+7 (495) 785-95-25
Факс: +7 (495) 785-95-14

Отдел продаж: sale@lcard.ru
Техническая поддержка: support@lcard.ru

Время работы: с 9-00 до 19-00 мск

L-CARD в проектах