Работа с весовым терминалом CI-5010A по RS-232/422

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma link "Grids"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
 
// ГЛОБАЛЬНЫЕ ---------------------------------------------------------------
 
HINSTANCE LibHandle;
 
// описываем прототипы функции согласно соглашению STDCALL (см. мое описание)
typedef void (__stdcall *getdata)(unsigned char *& mode,
                                  unsigned char *& weight,
                                  unsigned char *& weightu,
                                  byte & numdevice,
                                  byte & stable,
                                  byte & high,
                                  byte & loww,
                                  byte & hold,
                                  byte & gross,
                                  byte & tare,
                                  byte & zero,
                                  double & vvalue,
                                  int & glcount);
 
typedef void (__stdcall *reinit)(byte comnum,
                                 int baud,
                                 boolean enable,
                                 boolean log);
 
FARPROC agetdata;
FARPROC areinit;
 
unsigned char * mode;
unsigned char * weight;
unsigned char * weightu;
byte numdevice;
byte stable;
byte high;
byte loww;
byte hold;
byte gross;
byte tare;
byte zero;
double vvalue;
int glcount;
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 LibHandle = LoadLibrary("test\\CI5010RS422.dll"); // указание отн.пути в билдере
 if (LibHandle!=0) {
  agetdata = GetProcAddress(LibHandle, "getdata");
  areinit = GetProcAddress(LibHandle, "reinit");
 
  ((reinit)areinit)(5,
                    9600,
                    true,
                    true);
  Form1->Caption = "ok";
 }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
if (LibHandle) {
  // деактивируем поток захвата
  ((reinit)areinit)(5,
                    9600,
                    false,
                    false);
 
  FreeLibrary(LibHandle);
  }
    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (LibHandle!=0) {
  // визуализация
  Memo1->Clear();
 
  ((getdata)agetdata)(mode,
                      weight,
                      weightu,
                      numdevice,
                      stable,
                      high,
                      loww,
                      hold,
                      gross,
                      tare,
                      zero,
                      vvalue,
                      glcount
                      );
        
   // отобразить результаты
   Memo1->Lines->Add("Packet: " + IntToStr(glcount));
 
   Memo1->Lines->Add("Mode work: " + AnsiString((char *)mode));
   Memo1->Lines->Add("Weight brutto/netto: " + AnsiString((char *)weight));
   Memo1->Lines->Add("Weight unit: " + AnsiString((char *)weightu));
 
   Memo1->Lines->Add("Value: " + FloatToStr(vvalue));
  }
 
}
//---------------------------------------------------------------------------