开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：2k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <stdio.h>
  4. #pragma hdrstop
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13.         : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  18. void __fastcall TForm1::Button1Click(TObject *Sender)
  19. {
  20.   unsigned char c;
  21.   char ss[10];
  22.   int ct=0,ii,nn;
  23.   TFileStream * fm;
  24.   TMemoryStream * Msm;
  25.   fm=new TFileStream("bmp.txt",fmCreate);
  26.   Msm = new TMemoryStream();
  27.   Image1->Picture->Bitmap->SaveToStream(Msm);
  28.   Msm->Position=0;
  29.   nn=Msm->Size;
  31.   for(ii=0;ii<nn;ii++)
  32.   {
  33.     Msm->Read(&c,1);
  34.     sprintf(ss,"%.2x",c);
  35.     fm->Write(ss,2);
  36.     ct++;
  37.     if(ct>40)
  38.     {
  39.       ct=0;
  40.       ss[0]=0x0d;ss[1]=0x0a;
  41.       fm->Write(ss,2);
  42.     }
  43.   }
  44.   ss[0]=0x0d;ss[1]=0x0a;
  45.   fm->Write(ss,2);
  47.   delete Msm;
  48.   delete fm;
  49. }
  50. //---------------------------------------------------------------------------
  51. AnsiString TForm1::Read2Byte(TStream *sm)
  52. {
  53.   char ss[4];
  54.   int ii,ll;
  55.   unsigned char c;
  56.   ii=0;ss[0]=0;
  57.   for(;;)
  58.   {
  59.     ll=sm->Read(&c,1);
  60.     if(ll<1)return "END";
  61.     if((c!=0x0d)&&(c!=0x0a))
  62.     {
  63.       ss[ii]=c;ii++;
  64.       if(ii>1){ss[ii]=0;break;}
  65.     }
  66.   }
  67.   return (AnsiString)ss;
  68. }
  69. //---------------------------------------------------------------------------
  70. void __fastcall TForm1::Button2Click(TObject *Sender)
  71. {
  73.   unsigned char c;
  74.   AnsiString ass;
  75.   char ss[2];
  76.   ss[1]=0;
  77.   TFileStream * fm;
  78.   TMemoryStream * Msm;
  79.   fm=new TFileStream("bmp.txt",fmOpenRead);
  80.   Msm = new TMemoryStream();
  81.   for(;;)
  82.   {
  83.     ass=Read2Byte(fm);
  84.     if(ass=="END")break;
  85.     sscanf(ass.c_str(),"%x",&c);
  86.     ss[0]=c;
  87.     Msm->Write(ss,1);
  88. //    buff.c_str()[ii]=c;
  89. //    ii++;
  90.   }
  91.   Msm->Position=0;
  92.   Image2->Picture->Bitmap->LoadFromStream(Msm);
  93.   delete Msm;
  94.   delete fm;
  95. }
  96. //---------------------------------------------------------------------------