超星格式-BMP

幼稚青春鱼

幼稚青春鱼

2016-02-19 12:41

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享超星格式-BMP,希望可以让热爱学习的朋友们体会到设计的小小的乐趣。

  最近,我偶然发现了一个超星 - BMP的方法。
    首先,请下载最新的“超星3.4Beta 7”,安装后,运行Delphi5,选择Component-Import ActiveX Control,然后,你会发现“Import ActiveX”中有一个选择为“Pdg2 Type Library(Version 1.0)”.....,剩下的事不用我说了吧。
    我的方法:
  procedure TMainForm.PdgToBmp(FPdgName, FBmpName: string);//FPdgname--超星格式文件名 FBmpName--要保存的BMP文件名。
  var i:integer;
      j:boolean;
  begin
      ClipBoard.Clear;
      MyPdg.LoadPage(FPdgName,0,0,10);
      Mypdg.Refresh;
      MyPdg.CopyToClipBoard (0,0,MyPdg.PageWidth ,MyPdg.PageHeight); //这一操作需要一段时间
      j:=false;
      while j=false do
      begin
         MyPdg.CopyToClipBoard (0,0,MyPdg.PageWidth ,MyPdg.PageHeight);
         for i:=0 to clipboard.FormatCount -1 do  //检测ClipBoard中是否有位图,因为我在调试中发现有时执行MyPdg.CopyToClipBoard (0,0,MyPdg.PageWidth ,MyPdg.PageHeight);会出错,只有检测到有位图存在时,再进行复制.
         if Clipboard.Formats[i]=2 then j:=true;
      end;
      Bmp.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
      bmp.PixelFormat:=pf1bit ;  
      bmp.SaveToFile(FBmpName);
  end;
    
  另外,假如对整个目录下的文件连续进行转换,请在相邻两次转换过程中插入
      Sleep(1000);//给超星一点时间,否则她会有意见,不干活啦!!!
  
  且 Mypdg.Visible必须设置True;
  
  我发现转为BMP后用清华OCR识别的效果并不好,假如各位有什么高见,拿出来大伙公分享吧!!! 
展开更多 50%)
分享

猜你喜欢

超星格式->BMP

编程语言 网络编程
超星格式->BMP

超星格式-BMP

编程语言 网络编程
超星格式-BMP

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

显示“BMP”格式图像

设计软件 平面设计软件 广告设计软件
显示“BMP”格式图像

常用Web图像格式简述:bmp/jpg/gif

Web开发
常用Web图像格式简述:bmp/jpg/gif

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用Authorware显示BMP图像

Authorware 设计软件 平面设计软件 广告设计软件
用Authorware显示BMP图像

也谈“用Authorware显示BMP图像”

设计软件 平面设计软件 广告设计软件
也谈“用Authorware显示BMP图像”

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

C++箴言:资源管理类的拷贝行为

C++箴言:资源管理类的拷贝行为

PHP5/ZendEngine2的改进

PHP5/ZendEngine2的改进
下拉加载更多内容 ↓