1

GemBox.Document を使用してドキュメント変換を行うためのインターフェイスを備えた ac# ラッパー クラスを作成しました。クラスには、ドキュメントを保存する次のメソッドがあります。

 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 に登録し、次のように regasm で tlb ファイルを作成しました。

regasm MBD.GemBox.Document.dll /tlb

Delphi から com を介して dll にアクセスしたかったので、tlb ファイルを Delphi 2009 にインポートしました。次に、c# dll を呼び出すラッパー Delphi ライブラリを作成しました。

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;

しかし、私は

「タイプ 'System.StackOverflowException' の未処理の例外が GemBox.Document.dll で発生しました」

デルファイを介してメソッドを呼び出そうとすると。なぜこれが起こるのか誰か知っていますか？

4

1 に答える 1

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 コードは同じままです。

于 2016-02-09T13:17:59.247 に答える