<b>超星格局转换BMP的办法</b>[VC/C++编程]

flywolf(mailto:flywolf@ynmail.com)

近来,我无意发现了一个超星 -> 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辨认的效果并不好,假如各位有什么高见,拿出来大伙公分享吧!