以下是程式碼(WIN XP+delphi 7)

1.為何執行Button5Click第一次會跑出類別未登錄之錯誤訊息,第二次執行就可正確地執行呢?

2.如何寫程式碼在procedure OnOCRProgress,以獲取執行OCR時之進度 ? (有上網GOOGLE,但只看到VB之範例碼,無DELPHI之範例碼)


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Comobj,MODI_TLB, ExtCtrls, ComCtrls,ActiveX;
type
TForm1 = class(TForm)
Memo1: TMemo;
OpenDialog1: TOpenDialog;
Image1: TImage;
ProgressBar1: TProgressBar;
Button4: TButton;
Button5: TButton;
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

{ _IDocumentEvents = dispinterface
['{0CF31963-5E4D-4772-AE8D-82FE5A082B26}']
procedure OnOCRProgress(Progress: SYSINT; var Cancel: WordBool); dispid 1;}


procedure TForm1.Button5Click(Sender: TObject);
Var
doc :IDocument;
Img :IImage;
Layout :ILayout;
//idoc:_IDocumentEvents;
//f: textfile;
begin
if OpenDialog1.FileName = '' then
begin
ShowMessage('please select a tiff image file first!');
exit;
end;
doc := CreateOleObject('MODI.Document') as IDocument;//ok
doc.create(OpenDialog1.FileName);
doc.ocr(1028,true,true);

Img := doc.Images[0] as IImage;
Layout := Img.Layout as ILayout;
memo1.Text:=layout.text;
doc.Close(false);
doc:=nil;
Img := nil;
Layout := nil;
end;
end.

編輯記錄