在GemBox.Document.dll中發生未處理的類型'System.StackOverflowException'的異常

Question

我已經使用GemBox.Document編寫了一個包含接口的c＃包裝類來完成文檔轉換。在課堂上，我有以下方法來保存文件：

public string SourcePath{get;set;} 
public string DestinationType{get;set;} 
public string DestinationPath{get;set;} 
private static DocumentModel document; 

public void ConvertDocument() 
{ 
      try 
      { 
       string filename = Path.GetFileNameWithoutExtension(SourcePath); 
       ComponentInfo.SetLicense(GemboxLicence); 
       string savePath = String.Format("{0}\\{1}.{2}", DestinationPath, filename, DestinationType);    
       document = DocumentModel.Load(SourcePath); 
       document.Save(savePath); 

      } 
      catch (Exception e) 
      {    
       throw (new Exception("An error occured while saving the document: " + e.Message)); 
      } 

} 

類工作得很好，當我把它從另一個C＃程序。

我註冊的類DLL對COM並創建了一個TLB文件與regasm如下：

regasm MBD.GemBox.Document.dll /tlb 

我想通過德爾福COM訪問的dll，所以我進口TLB文件到德爾福2009年我然後創建調用C＃DLL的包裝德爾福庫：

procedure ConvertDocument(sourcePath : string ; destinationType : string ; destinationPath : string); 
var 
    doc : TDocumentConvertor; 
begin 
    try 
     OleInitialize(nil); 
     doc := TDocumentConvertor.Create(nil); 
     doc.Connect; 
     doc.SourcePath := sourcePath ; 
     doc.DestinationType := destinationType; 
     doc.DestinationPath := destinationPath; 
     doc.ConvertDocument; 
     doc.Disconnect; 
     doc.Free; 
     CoUninitialize; 
    except 
    on E:Exception do 
    begin 
     Writeln(E.Classname, ': ', E.Message); 
    end; 
    end; 
end; 

不過，我得到了

「未處理在GemBox.Document.dll中發生類型'System.StackOverflowException'異常「

當我嘗試通過delphi調用該方法時。有誰知道爲什麼發生這種情況？

Answer 1

我由Gembox文檔轉換部分移動到C＃代碼一個單獨的線程解決了這個問題：

string filename = Path.GetFileNameWithoutExtension(SourcePath); 
       ComponentInfo.SetLicense(GemboxLicence); 
       string savePath = String.Format("{0}\\{1}.{2}", DestinationPath, filename, DestinationType);    
       document = DocumentModel.Load(SourcePath); 
       document.Save(savePath); 

解決方案，我創建了一個單獨的類，它產生一個獨立的線程來處理文檔轉換：

using System; 
using System.Collections; 
using System.Collections.Concurrent; 
using System.Threading; 
using GemBox.Document; 
using System.Runtime.InteropServices; 

namespace GB.Document 
{ 
    public class GbWorkItem 
    { 
     public string Source; 
     public string Destination; 
    } 

    internal class GbThreadData 
    { 
     public bool Running; 
     public Queue WorkQueue = Queue.Synchronized(new Queue()); 
    } 

    public class GemBox : IDisposable 
    { 
     private static GbThreadData _data = new GbThreadData(); 
     private bool _disposed = false; 

     public GemBox() 
     { 
      Thread thread = new Thread(ThreadExec); 
      thread.Start(_data); 
     } 

     internal static void ThreadExec(object o) 
     { 
      _data = o as GbThreadData; 
      _data.Running = true; 

      while (_data.Running) 
      { 
       if (_data.WorkQueue.Count == 0) Thread.Sleep(250); 
       else 
       { 
        lock (_data.WorkQueue.SyncRoot) 
        { 
         try 
         { 
          GbWorkItem work = _data.WorkQueue.Dequeue() as GbWorkItem; 
          DocumentModel document = DocumentModel.Load(work.Source); 
          document.Save(work.Destination); 
         } 
         catch (InvalidOperationException) { } 
        } 
       } 
      } 
     } 

     public void QueueDocument(GbWorkItem item) 
     { 
      lock (_data) 
      { 
       _data.WorkQueue.Enqueue(item); 
      } 
     } 
     public void Dispose() 
     { 
      Dispose(true); 
      GC.SuppressFinalize(this); 
     } 
     protected virtual void Dispose(bool disposing) 
     { 
      if (_disposed) 
       return; 

      if (disposing) 
      { 
       _data.Running = false; 
      } 
      _disposed = true; 
     } 
    } 
} 

，然後我做了如下修改初始類：

public string SourcePath{get;set;} 
     public string DestinationType{get;set;} 
     public string DestinationPath{get;set;} 
     private static DocumentModel document; 
     private GemBox _gemBox; 

     public DocumentConvertor() 
     {  
     Initialise(); 
     } 

     public void ConvertDocument() 
     { 
        try 
        { 
         // string filename = Path.GetFileNameWithoutExtension(SourcePath); 
         //ComponentInfo.SetLicense(GemboxLicence); 
         string savePath = String.Format("{0}\\{1}.{2}", DestinationPath, filename, DestinationType);    
         // document = DocumentModel.Load(SourcePath); 
         // document.Save(savePath); 
         _gemBox.QueueDocument(new GbWorkItem { Source = SourcePath, Destination = savePath });     

        } 
        catch (Exception e) 
        {    
         throw (new Exception("An error occured while saving the document: " + e.Message)); 
        } 
        finally 
        { 
         Destroy(); 
        } 

     } 

     private void Initialise() 
      {   
      _gemBox = new GemBox(); 
      } 

     private void Destroy() 
      {  
      _gemBox.Dispose(); 
      } 

Delphi代碼保持不變。