Matrix Orbital Corp

Code: Select all

void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{
  TCanvas *pCanvas = Image1->Canvas;
  char BitCounter = 0;
  unsigned char dat, HSval;
  unsigned short int Size16;
  float Size;

  if (BRSmode)
  {
    ZComm1->WriteCommByte(0xfe); // Leave Buffer Return Status Mode
    ZComm1->WriteCommByte(';');
    BRSmode = false;
  }

  int Len;

  // Send the Command and preamble
  ZComm1->WriteCommByte(0xfe);  // Command prefix
  ZComm1->WriteCommByte('^');   // Upload Bitmap command
  dat = CSpinEdit1->Value;      // Retrieve the reference number from the user

  ZComm1->WriteCommByte(dat);   // Send Reference Number
  while (!ZComm1->ReadComm(&HSval,1)); // Wait for return from LCD
  if (dat != HSval)
  {
    ShowMessage("Error in transmission - 1");
    ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
    return;
  }
  ZComm1->WriteCommByte(0x01);  // Confirm Echo

  if (CheckBox1->Checked)
    Size = Image1->Width * Image1->Height; // number of pixels in image
  else
    Size = Image1->Picture->Width * Image1->Picture->Height; // number of pixels in image

  if (fmod(Size,8)) // Does the data need to be padded?
  {
    Size /= 8;      // Calculate number of whole bytes
    Size++;         // add one for padding
  }
  else
    Size /= 8;      // Calculate number of whole bytes

  // Size at this point still includes fraction
  Size16 = Size; // cheesy conversion to 16 bit value
  Size16 += 4;  // This is to add the header info
  dat = Size16 & 0x00ff; // Low byte - too lazy for pointers
  ZComm1->WriteCommByte(dat);   // Send Low part of size

  while (!ZComm1->ReadComm(&HSval,1)); // Wait for return from LCD
  if (dat != HSval)
  {
    ShowMessage("Error in transmission - 2");
    ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
    return;
  }
  ZComm1->WriteCommByte(0x01);  // Confirm Echo

  dat = Size16 / 256; // high byte - mmmm cheesy!
  ZComm1->WriteCommByte(dat);   // Send High part of size
  while (!ZComm1->ReadComm(&HSval,1)); // Wait for return from LCD
  if (dat != HSval)
  {
    ShowMessage("Error in transmission - 3");
    ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
    return;
  }

  while (!ZComm1->ReadComm(&HSval,1)); // Wait for status from LCD
  if (HSval != 0x01)
  {
    ShowMessage("Error in transmission - 4");
    ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
    return;
  }

  ZComm1->WriteCommByte(0xff);   // Send First byte of spacer
  while (!ZComm1->ReadComm(&HSval,1)); // Wait for return from LCD
  if (HSval != 0xff)
  {
    ShowMessage("Error in transmission - 5");
    ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
    return;
  }
  ZComm1->WriteCommByte(0x01);  // Confirm Echo

  ZComm1->WriteCommByte(0xff);   // Send second byte of spacer
  while (!ZComm1->ReadComm(&HSval,1)); // Wait for return from LCD
  if (HSval != 0xff)
  {
    ShowMessage("Error in transmission - 6");
    ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
    return;
  }
  ZComm1->WriteCommByte(0x01);  // Confirm Echo

  ZComm1->WriteCommByte((unsigned char)Image1->Picture->Width);// Send X size of bitmap
  while (!ZComm1->ReadComm(&HSval,1));      // Wait for return from LCD
  if (HSval != (unsigned char)Image1->Picture->Width)
  {
    ShowMessage("Error in transmission - 7");
    ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
    return;
  }
  ZComm1->WriteCommByte(0x01);  // Confirm Echo

  ZComm1->WriteCommByte((unsigned char)Image1->Picture->Height);// Send Y size of bitmap
  while (!ZComm1->ReadComm(&HSval,1));      // Wait for return from LCD
  if (HSval != (unsigned char)Image1->Picture->Height)
  {
    ShowMessage("Error in transmission - 8");
    ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
    return;
  }
  ZComm1->WriteCommByte(0x01);  // Confirm Echo

  for (int x = 0; x < Image1->Picture->Width; x++)
  {
    for (int y = 0; y < Image1->Picture->Height; y++)
    {
      if (!pCanvas->Pixels[x][y])
      {
        // Black Pixel
        dat |= Bits[BitCounter];
      }

      if (BitCounter == 7)
      {
        // send the byte now that it is full

        ZComm1->WriteCommByte(dat);  // Send data
        while (!ZComm1->QCountIn);   // Wait for return from LCD
        ZComm1->ReadComm(&HSval,1);
        if (HSval != dat)
        {
          ShowMessage("Error in transmission - 9");
          ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
          return;
        }
        ZComm1->WriteCommByte(0x01);  // Confirm Echo
        BitCounter = 0;
        dat = 0;
      }
      else
        BitCounter++;
    }
    float progress = ((float)x/(float)Image1->Picture->Width)*100+1;
    ProgressBar1->Position = progress;
  }
  if (BitCounter) // There is a little left over
  {
    ZComm1->WriteCommByte(dat);  // Send data
    while (!ZComm1->ReadComm(&HSval,1)); // Wait for return from LCD
    if (HSval != dat)
    {
      ShowMessage("Error in transmission - 10");
      ZComm1->WriteCommByte(0x08);  // Send bad confirmation just in case
      return;
    }
    ZComm1->WriteCommByte(0x01);  // Confirm Echo
  }
}