unit1.cpp

嵌入式打印机源代码 已经调试通过 炜煌系列打印机

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "tccolor.h"
#include <stdio.h>
#include <sys\stat.h>
#include <io.h>
#include <stdlib.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CGRID"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



void __fastcall TForm1::SaveFile1Click(TObject *Sender)
{
 AnsiString Filename;
 openpicture->Execute();
 Filename=openpicture->FileName;
 picture->Picture->LoadFromFile(Filename);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveFile2Click(TObject *Sender)
{
 AnsiString Filename;
 savepicture->Execute();
 Filename=savepicture->FileName;
 picture->Picture ->SaveToFile(Filename);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::openClick(TObject *Sender)
{
 unsigned char picwidth;
 unsigned char picheight;
 AnsiString Filename;
 if(openpicture->Execute())
 {
  Filename=openpicture->FileName;
  picture->Picture->LoadFromFile(Filename);
  picwidth=picture->Picture->Width;
  picheight=picture->Picture->Height;
  if((picwidth%2)!=0)
  {
   picwidth=picwidth-1;
  }
  L1->Caption=IntToStr(picwidth)+" X "+IntToStr(picheight)+" 象素";
 } 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::saveClick(TObject *Sender)
{
 AnsiString Filename;
 savepicture->Execute();
 Filename=savepicture->FileName;
 picture->Picture ->SaveToFile(Filename);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::savefileClick(TObject *Sender)
{
 AnsiString Filename;
 savetxt->Execute();
 Filename=savetxt->FileName;
 out->Lines->SaveToFile(Filename);
 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::openfileClick(TObject *Sender)
{
 AnsiString Filename;
 opentxt->Execute() ;
 Filename=opentxt->FileName;
 out->Lines->LoadFromFile(Filename);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::button1Click(TObject *Sender)
{
unsigned char x,y;
FILE *fp;
unsigned char data=0x00;
unsigned char picwidth;
unsigned char picheight;
unsigned char endy;
unsigned char r,g,b;
picwidth=picture->Picture->Width;
picheight=picture->Picture->Height;
if((picwidth%2)!=0)
 {
  picwidth=picwidth-1;
 }
endy=picture->Picture->Height-1;
prog->Max=picheight;
for(y=0;y<picheight;y++)
  {
    prog->Position=y;
    for(x=0;x<picwidth;x++)
     {
      fp=fopen("guoyaoming.txt","a+b");
      if(x==0&&y==0)
        {
          fprintf(fp,"uchar code MENU_HZ[%d][%d]=\r",picheight,picwidth/8);
          fprintf(fp,"{\r{");
        }
      TCColor c=picture->Canvas->Pixels[x][y];
      r=(unsigned char)c.Red;
      g=(unsigned char)c.Green;
      b=(unsigned char)c.Blue;
      if(r==0x00&&g==0x00&&b==0x00)
       {
        data=data<<1;
       }
      else
      {
       data=(data<<1)|0x01;
      }
      if(x%8==7)
      {
       fprintf(fp,"0x%02X",data);
       data=0x00;
      }
      else
        {
         if(x!=0&&x%8==0) fprintf(fp,",");
        }
     if(x==picwidth-1)
        {
         if(y==endy)
          {
           fprintf(fp,"}\r};");
          }
         else
          {
           fprintf(fp,"}");
           fprintf(fp,",\r{");
          }
        }
     
      fclose(fp);
     }
   }
 out->Lines->LoadFromFile("guoyaoming.txt");
 remove("guoyaoming.txt");
 prog->Position=0;
 MessageBeep(MB_OK);
     // 0xFFFFFF
     // MB_ICONASTERISK
     // MB_ICONEXCLAMATION
     // MB_ICONHAND
     // MB_ICONQUESTION
     // MB_OK
}
//---------------------------------------------------------------------------


void __fastcall TForm1::clearClick(TObject *Sender)
{
 out->Clear();        
}
//---------------------------------------------------------------------------





void __fastcall TForm1::Exit1Click(TObject *Sender)
{
   Form1->Close();
}
//---------------------------------------------------------------------------






void __fastcall TForm1::N1Click(TObject *Sender)
{
 AnsiString Filename;
 savetxt->Execute();
 Filename=savetxt->FileName;
 out->Lines->SaveToFile(Filename);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::N2Click(TObject *Sender)
{
  out->SelectAll();
  out->CopyToClipboard();
  out->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pictureMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{

    picture->Stretch =true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::pictureMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    picture->Stretch =false;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::N3Click(TObject *Sender)
{
 out->SelectAll();      
}
//---------------------------------------------------------------------------


void __fastcall TForm1::N7Click(TObject *Sender)
{
  Form2->Show();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)
{
  out->SelectAll();
  out->CopyToClipboard();
  out->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)
{
   out->SelectAll();          
}
//---------------------------------------------------------------------------


void __fastcall TForm1::q1Click(TObject *Sender)
{
   Form1->Close();
}
//---------------------------------------------------------------------------