mainform.cpp

C++ BUILDER精彩编程实例集锦(源码)2 第三部分 文件操作 第四部分 图像处理

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

#include <vcl.h>
#pragma hdrstop
#include <vcl\printers.hpp>
#include "MainForm.h"
#include <dir.h>

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  this->Memo1->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  this->Memo1->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
  int iFileHandle;
  int iFileLength;
  int iBytesRead;
  char *pszBuffer;
  if (OpenDialog1->Execute())
  {
    try
    {
      iFileHandle = FileOpen(OpenDialog1->FileName, fmOpenRead);
      iFileLength = FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      pszBuffer = new char[iFileLength+1];
      iBytesRead = FileRead(iFileHandle, pszBuffer, iFileLength);
      FileClose(iFileHandle);
      this->Memo1->Text=pszBuffer;
      delete [] pszBuffer;
    }
    catch(...)
    {
      Application->MessageBox("Can't perform one of the  file read operation", "Alert", IDOK);
    }
   }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
  char szFileName[MAXFILE+4];
  int iFileHandle;
  int iLength;
  if (SaveDialog1->Execute())
  {
    if (FileExists(SaveDialog1->FileName))
    {
      fnsplit(SaveDialog1->FileName.c_str(), 0, 0, szFileName, 0);
      strcat(szFileName, ".BAK");
      RenameFile(SaveDialog1->FileName, szFileName);
    }
    iFileHandle = FileCreate(SaveDialog1->FileName);
    FileWrite(iFileHandle,this->Memo1->Text.c_str(),this->Memo1->Text.Length());
    FileClose(iFileHandle);
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn4Click(TObject *Sender)
{
  AnsiString PageNum;
  int Ctr,i,PHeight,LineSpace,x;
  Printer()->BeginDoc();
  x=0;
  Ctr=1;
  PHeight=Printer()->PageHeight;
  LineSpace=PHeight/60;
  PageNum=IntToStr(Printer()->PageNumber);
  this->Label1->Caption="现在正在打印第"+PageNum+"页的数据...";
  for(i=0;i<(Memo1->Lines->Count);i++)
  {
    Printer()->Canvas->TextOutA(0,x,Memo1->Lines->Strings[i]);
    x+=LineSpace;
    Ctr++;
    if(Ctr>59)
    {
      Printer()->NewPage();
      x=0;
      Ctr=0;
      PageNum=IntToStr(Printer()->PageNumber);
      this->Label1->Caption="现在正在打印第"+PageNum+"页的数据...";
    }
  }
  Printer()->EndDoc();
  this->Label1->Caption="打印完成，一共打印了"+PageNum+"页";
}
//---------------------------------------------------------------------------