超星格式->BMP

2016-02-19 15:32 9 1 收藏

有了下面这个超星格式->BMP教程,不懂超星格式->BMP的也能装懂了,赶紧get起来装逼一下吧!

【 tulaoshi.com - 编程语言 】

  flywolf(mailto:flywolf@ynmail.com)

  最近,我偶然发现了一个超星 - BMP的方法。

  首先,请下载最新的超星3.4Beta 7,安装后,运行Delphi5,选择Component-Import ActiveX Control,然后,你会发现Import ActiveX中有一个选择为Pdg2 Type Library(Version 1.0).....,剩下的事不用我说了吧。

  我的方法:

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  

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;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  另外,如果对整个目录下的文件连续进行转换,请在相邻两次转换过程中插入

  Sleep(1000);//给超星一点时间,否则她会有意见,不干活啦!!!

  且 Mypdg.Visible必须设置True;

  我发现转为BMP后用清华OCR识别的效果并不好,如果各位有什么高见,拿出来大伙公分享吧!

来源:http://www.tulaoshi.com/n/20160219/1609856.html

延伸阅读
标签: ASP
  说明: 在256色位图中打印文字并输出 字体大小跟类型是固定的12*12宋体,如果需要其它字体可以联系本人 因为不是封装在DLL中所以执行效率不是很高 调用示列: Set objbmp = New Wh_bmpText '建立objbmp对象 objbmp.FontPath = server.mappath("font_12.asp") '汉字点阵字库地址 objbmp.loadBMP(server.mappath("bb.bmp")) '调...
虽然在高手看来这是垃圾问题,但对于我们这些菜鸟,这是很必须的.因为高手很不屑写这些的,我刚刚学会,为了挽救普天之下和我一样的菜鸟们,就写了这样一篇文章。 在vc中显示BMP并不象VB那么简单,用个loadpicture,什么格式全部ok,在vc中又需要做一些额外工作.我们用 SDI作示范。 新建一个SDI的工程,所有都是默认.打开资源编辑器,右键...
标签: 电脑入门
MKV(Matroska)格式介绍 mkv不是一种压缩格式,DivX、XviD才是视频压缩格式,mp3、ogg才是音频压缩格式。而mkv是个组合和封装的格式。 举个例子,把只有视频的XviD和只有音频的mp3组合起来,然后以一种多媒体介质的形式出现,最常见的就是avi,其次就是ogm,还有mp4等不太常见的。 avi的出现已经超过了10年,渐渐体现出老态了,除了近年通过V...
标签: excel
Excel条件格式如何转化普通格式   Excel表格中的条件格式怎么转化成普通格式?相信有朋友在使用excel表格时会遇到相同的问题。下面就为大家分享excel条件格式转化普通格式方法技巧。 第一步、工作表里设置了一个条件格式,工作表就变成了漂亮的地砖: 第二步、贴到 WORD 里以后: 第三步、再贴回 EXCEL 中,没...
格式工厂怎么转换视频格式?   第一步、打开格式工厂软件,选择你想转换的视频格式。 第二步、添加文件,修改转换要求(一般没有特殊要求默认就行)。 第三步、选择完文件之后,建议按下键盘的F2键更改一下输出路径。 如果不更改,可以在c盘的administrator文件夹里的FFOutput这个文件夹下找到转换好的文件。最...

经验教程

793

收藏

84
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部