⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 20000925001.htm

📁 C++Builder教学大全
💻 HTM
字号:
🔍 
<HTML>

<HEAD>

 

<TITLE>超星格式-&gt;BMP</TITLE>



<META content="MSHTML 5.00.2314.1000" name=GENERATOR>

</HEAD>

<BODY aLink=#FF0000 bgColor=#ffffff leftMargin=0 link=#187800 topMargin=0 

vLink=#990099>



<div align="center">

  <table width="744" border="0" cellspacing="0" cellpadding="0" height="76">

    <tr> 

      <td>

        <h4 align=center><font size="3"><br>

          超星格式-&gt;BMP</font></h4>

        <h5 align=center><font size="2">flywolf(<a 

href="mailto:flywolf@ynmail.com">mailto:flywolf@ynmail.com</a>)</font></h5>

        <p>最近，我偶然发现了一个超星&nbsp;-&gt;&nbsp;BMP的方法。 <br>

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

          <br>

          　　我的方法： <br>

          procedure&nbsp;TMainForm.PdgToBmp(FPdgName,&nbsp;FBmpName:&nbsp;string);//FPdgname--超星格式文件名&nbsp;FBmpName--要保存的BMP文件名。 

          <br>

          var&nbsp;i:integer; <br>

          &nbsp; &nbsp; j:boolean; <br>

          begin <br>

          &nbsp; &nbsp; ClipBoard.Clear; <br>

          &nbsp; &nbsp; MyPdg.LoadPage(FPdgName,0,0,10); <br>

          &nbsp; &nbsp; Mypdg.Refresh; <br>

          &nbsp; &nbsp; MyPdg.CopyToClipBoard&nbsp;(0,0,MyPdg.PageWidth&nbsp;,MyPdg.PageHeight);　//这一操作需要一段时间 

          <br>

          &nbsp; &nbsp; j:=false; <br>

          &nbsp; &nbsp; while&nbsp;j=false&nbsp;do <br>

          &nbsp; &nbsp; begin <br>

          &nbsp; &nbsp; &nbsp; &nbsp;MyPdg.CopyToClipBoard&nbsp;(0,0,MyPdg.PageWidth&nbsp;,MyPdg.PageHeight); 

          <br>

          &nbsp; &nbsp; &nbsp; &nbsp;for&nbsp;i:=0&nbsp;to&nbsp;clipboard.FormatCount&nbsp;-1&nbsp;do&nbsp; 

          //检测ClipBoard中是否有位图,因为我在调试中发现有时执行MyPdg.CopyToClipBoard&nbsp;(0,0,MyPdg.PageWidth&nbsp;,MyPdg.PageHeight);会出错,只有检测到有位图存在时,再进行复制. 

          <br>

          &nbsp; &nbsp; &nbsp; &nbsp;if&nbsp;Clipboard.Formats[i]=2&nbsp;then&nbsp;j:=true; 

          <br>

          &nbsp; &nbsp; end; <br>

          &nbsp; &nbsp; Bmp.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0); 

          <br>

          &nbsp; &nbsp; bmp.PixelFormat:=pf1bit&nbsp;;&nbsp; <br>

          &nbsp; &nbsp; bmp.SaveToFile(FBmpName); <br>

          end; <br>

          &nbsp; <br>

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

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

          <br>

          且&nbsp;Mypdg.Visible必须设置True; <br>

          <br>

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

 </p>

    </td>

    </tr>

  </table>

 

</div>

</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -