Private WithEvents mmiDoc As MODI.Document
Private mblnCancel As Boolean  
Private Sub cmdCancel_Click()      
  ' Set a flag indicating that the user wants to cancel.  
  mblnCancel = True   
End Sub  
  
Private Sub cmdOCR_Click() 
   ' Load an existing TIF file.  
   Set mmiDoc = New MODI.Document   
   mmiDoc.Create "C:\document1.tif"      
   ' Perform OCR on the document   
   Screen.MousePointer = vbHourglass   
   mmiDoc.OCR    
   Screen.MousePointer = vbDefault   
   
   Set mmiDoc = Nothing    
End Sub      Private Sub mmiDoc_OnOCRProgress(ByVal Progress As Long, _        Cancel As Boolean)  
   ' Cancel if user has clicked the Cancel button. 
   If mblnCancel Then      
      Cancel = True    
   End If            ' Indicate progress on the ProgressBar control  
   pbrOCRProgress.Value = Progress  
End Sub
=======================================================================  
  
1.請問紅字體那行程式碼是什麼意思 ? 
 
2.請問如何將上面之VB程式碼改為Delphi程式碼 ?

編輯記錄

 http://www.delphi3000.com/articles/article_4253.asp?SK=
http://www.delphipages.com/forum/showthread.php?t=197335

都沒講到以下兩段碼

Option Explicit
Private WithEvents mmiDoc As MODI.Document



Private Sub mmiDoc_OnOCRProgress(ByVal Progress As Long, _ Cancel As Boolean)
' Cancel if user has clicked the Cancel button.
If mblnCancel Then
Cancel = True
End If
' Indicate progress on the ProgressBar control
pbrOCRProgress.Value = Progress
End Sub

===================引 用 rick060 文 章===================
http://www.delphi3000.com/articles/article_4253.asp?SK=
http://www.delphipages.com/forum/showthread.php?t=197335

編輯記錄

 
procedure TMainForm.Document1OCRProgress(ASender: TObject;
Progress: Integer; var Cancel: WordBool);
begin
if mClick then
Cancel := True
else
pProgress.Position := Progress;
end;

http://msdn.microsoft.com/zh-tw/library/y9341s4f(v=vs.80).aspx
再下一行，宣告 event 的進入點

編輯記錄

rick060你好:

照你說去做無作用 ,你可不可以再講清楚點呢?

===================引 用 rick060 文 章===================

procedure TMainForm.Document1OCRProgress(ASender: TObject;
Progress: Integer; var Cancel: WordBool);
begin
if mClick then
Cancel := True
else
pProgress.Position := Progress;
end;

http://msdn.microsoft.com/zh-tw/library/y9341s4f(v=vs.80).aspx
再下一行，宣告 event 的進入點

 以下為例，我想很容易理解。

編輯記錄

rick060你好:

1.請問是要搭配microsoft office document imaging 11.0 type library 或 microsoft office document imaging 12.0 type library ?

2.若是microsoft office document imaging 12.0 type library,是要安裝office 2007還是office 2003還是有其他取得之方式 ?

3.以下程式碼是否是使用MODI-TLB.pas而不是MODI_TLB.pas, MODI-TLB.pas要如何產生MODI-TLB.dcu ?


===================引 用 rick060 文 章===================

procedure TMainForm.Document1OCRProgress(ASender: TObject;
Progress: Integer; var Cancel: WordBool);
begin
if mClick then
Cancel := True
else
pProgress.Position := Progress;
end;

http://msdn.microsoft.com/zh-tw/library/y9341s4f(v=vs.80).aspx
再下一行，宣告 event 的進入點

===================引 用 ry_lee 文 章===================
rick060你好:

1.請問是要搭配microsoft office document imaging 11.0 type library 或 microsoft office document imaging 12.0 type library ?

2.若是microsoft office document imaging 12.0 type library,是要安裝office 2007還是office 2003還是有其他取得之方式 ?

3.以下程式碼是否是使用MODI-TLB.pas而不是MODI_TLB.pas, MODI-TLB.pas要如何產生MODI-TLB.dcu ?


===================引 用 rick060 文 章===================
1. 皆可，版本不同而以
2.office 2003/2007 皆可，版本不同而以 2011 已移除 modi
3.Project -> Import Type Library(d7) / Component -> Import Components 完成後就會產生相應 dcu/pas 所需檔案

rick060你好:

在win xp delphi 7環境下

1.相同程式在office 2003之 MODI可執行,在office 2007之MODI執行卻有錯誤發生,不曉得你有沒有在OFFICE 2007之MODI測試過 ?

2.可否把你的程式碼給秀出來

===================引 用 ry_lee 文 章===================
rick060你好:

1.請問是要搭配microsoft office document imaging 11.0 type library 或 microsoft office document imaging 12.0 type library ?

2.若是microsoft office document imaging 12.0 type library,是要安裝office 2007還是office 2003還是有其他取得之方式 ?

3.以下程式碼是否是使用MODI-TLB.pas而不是MODI_TLB.pas, MODI-TLB.pas要如何產生MODI-TLB.dcu ?


===================引 用 rick060 文 章===================
1. 皆可，版本不同而以
2.office 2003/2007 皆可，版本不同而以 2011 已移除 modi
3.Project -> Import Type Library(d7) / Component -> Import Components 完成後就會產生相應 dcu/pas 所需檔案

編輯記錄

 手邊沒有 office 2007 可以玩..