从经典 ASP 调用 .Net C# DLL 方法

Question

我正在处理一个经典的asp项目，需要将一个字符串发送到一个DLL中进行序列化并发送到Zebra热敏打印机。

我已经构建了我的DLL并使用regasm注册它，然后使用/codebase使IIS识别它。

虽然我能够使用Server.CreateObject("MyDLL")无错误地设置我的对象，但我在尝试访问其中的C#方法时遇到了麻烦。

该DLL的C#代码如下：

using System;
using System.Runtime.InteropServices;
using System.IO;

//[assembly: ComVisible(true)]
//[assembly: Guid("6c87161d-1e02-40ef-8512-82f30bc1ae3e")]
namespace PrintZebra
{
    //[ClassInterface(ClassInterfaceType.None)]
    /// <summary>
    /// Classe 
    /// </summary>
    public class RawPrinterHelper

    {
        // Structure and API declarions:
        /// <summary>
        /// 
        /// </summary>
        [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Ansi)]
        public class DOCINFOA
        {
            [MarshalAs(UnmanagedType.LPStr)] public string pDocName;
            [MarshalAs(UnmanagedType.LPStr)] public string pOutputFile;
            [MarshalAs(UnmanagedType.LPStr)] public string pDataType;
        }
        [DllImport("winspool.Drv", EntryPoint = "OpenPrinterA", SetLastError = true, CharSet = CharSet.Ansi, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        public static extern bool OpenPrinter([MarshalAs(UnmanagedType.LPStr)] string szPrinter, out IntPtr hPrinter, IntPtr pd);

        [DllImport("winspool.Drv", EntryPoint = "ClosePrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        public static extern bool ClosePrinter(IntPtr hPrinter);

        [DllImport("winspool.Drv", EntryPoint = "StartDocPrinterA", SetLastError = true, CharSet = CharSet.Ansi, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        public static extern bool StartDocPrinter(IntPtr hPrinter, Int32 level, [In, MarshalAs(UnmanagedType.LPStruct)] DOCINFOA di);

        [DllImport("winspool.Drv", EntryPoint = "EndDocPrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        public static extern bool EndDocPrinter(IntPtr hPrinter);

        [DllImport("winspool.Drv", EntryPoint = "StartPagePrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        public static extern bool StartPagePrinter(IntPtr hPrinter);

        [DllImport("winspool.Drv", EntryPoint = "EndPagePrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        public static extern bool EndPagePrinter(IntPtr hPrinter);

        [DllImport("winspool.Drv", EntryPoint = "WritePrinter", SetLastError = true, ExactSpelling = true, CallingConvention = CallingConvention.StdCall)]
        public static extern bool WritePrinter(IntPtr hPrinter, IntPtr pBytes, Int32 dwCount, out Int32 dwWritten);

        // SendBytesToPrinter()
        // When the function is given a printer name and an unmanaged array
        // of bytes, the function sends those bytes to the print queue.
        // Returns true on success, false on failure.
        public static bool SendBytesToPrinter(string szPrinterName, IntPtr pBytes, Int32 dwCount)
        {
            Int32 dwError = 0, dwWritten = 0;
            IntPtr hPrinter = new IntPtr(0);
            DOCINFOA di = new DOCINFOA();
            bool bSuccess = false; // Assume failure unless you specifically succeed.

            di.pDocName = ".NET RAW Document";
            di.pDataType = "RAW";

            // Open the printer.
            if (OpenPrinter(szPrinterName.Normalize(), out hPrinter, IntPtr.Zero))
            {
                // Start a document.
                if (StartDocPrinter(hPrinter, 1, di))
                {
                    // Start a page.
                    if (StartPagePrinter(hPrinter))
                    {
                        // Write your bytes.
                        bSuccess = WritePrinter(hPrinter, pBytes, dwCount, out dwWritten);
                        EndPagePrinter(hPrinter);
                    }
                    EndDocPrinter(hPrinter);
                }
                ClosePrinter(hPrinter);
            }
            // If you did not succeed, GetLastError may give more information
            // about why not.
            if (bSuccess == false)
            {
                dwError = Marshal.GetLastWin32Error();
            }
            return bSuccess;
        }

        public static bool SendFileToPrinter(string szPrinterName, string szFileName)
        {
            // Open the file.
            FileStream fs = new FileStream(szFileName, FileMode.Open);
            // Create a BinaryReader on the file.
            BinaryReader br = new BinaryReader(fs);
            // Dim an array of bytes big enough to hold the file's contents.
            Byte[] bytes = new Byte[fs.Length];
            bool bSuccess = false;
            // Your unmanaged pointer.
            IntPtr pUnmanagedBytes = new IntPtr(0);
            int nLength;

            nLength = Convert.ToInt32(fs.Length);
            // Read the contents of the file into the array.
            bytes = br.ReadBytes(nLength);
            // Allocate some unmanaged memory for those bytes.
            pUnmanagedBytes = Marshal.AllocCoTaskMem(nLength);
            // Copy the managed byte array into the unmanaged array.
            Marshal.Copy(bytes, 0, pUnmanagedBytes, nLength);
            // Send the unmanaged bytes to the printer.
            bSuccess = SendBytesToPrinter(szPrinterName, pUnmanagedBytes, nLength);
            // Free the unmanaged memory that you allocated earlier.
            Marshal.FreeCoTaskMem(pUnmanagedBytes);
            return bSuccess;
        }

        public static Int32 SendStringToPrinter(string szPrinterName, string szString)
        {
            IntPtr pBytes;
            Int32 dwCount;
            // How many characters are in the string?
            //dwCount = szString.Length;joao
            dwCount = (szString.Length + 1) * Marshal.SystemMaxDBCSCharSize;
            // Assume that the printer is expecting ANSI text, and then convert
            // the string to ANSI text.
            pBytes = Marshal.StringToCoTaskMemAnsi(szString);
            // Send the converted ANSI string to the printer.
            bool bSuccess = SendBytesToPrinter(szPrinterName, pBytes, dwCount);
            Int32 dwError = 0;
            if (bSuccess == false)
               {
                  dwError = Marshal.GetLastWin32Error();
               }
               Marshal.FreeCoTaskMem(pBytes);
            return dwError;
        }            

    }
}

我的ASP应用程序中，我尝试通过以下方式访问SendStringToPrinter方法：

Dim objZebra    
set objZebra = Server.CreateObject("Opus127Etiquetas.RawPrinterHelper")

objZebra.SendStringToPrinter

但是调试器说objZebra不支持SendStringToPrinter属性或方法。

需要说明的是，所有访问DLL的权限都已授予，如果我在Visual Studio 2015上启动一个新的VB项目并将我的自定义DLL作为引用添加进去，它会像魔术一样运行。

真正的问题是：我正在尝试做的事情是否可能？

编辑

在与评论中的一些成员讨论后，我意识到我真正需要知道的是如何将上面的C#方法从静态更改为实例。

正如我之前所说，如果我在Windows应用程序中使用此DLL，它可以正常工作，但在ASP上却不能。

我现在知道问题所在，但不知道如何解决它。

- A. Cristian Nogueira

---

你需要使用COM互操作和实例方法。 - SLaks

请问您能具体说明一下吗？我已经阅读了很多关于COM互操作性的文章，但是并没有找到特别针对这种情况的真正解决方案。 - A. Cristian Nogueira

如果我从我的方法中删掉static这个词，比如_public static Int32 SendStringToPrinter（string szPrinterName，string szString），那么我的asp对象能够调用它吗？ 在这种情况下，我将不得不传递两个字符串作为方法所需的：(PrinterName、stringText)_。从asp的角度来看，最好的方法是什么？这才是问题的真正关键。我之前阅读了@Lankymart说过的话题，但对我来说并不清楚，我对一个能够满足我的问题的答案感到绝望。对此我感到非常抱歉。 - A. Cristian Nogueira

抱歉，我不太理解问题。您是否将其从静态方法更改为实例方法并重试了ASP代码？关于如何传递参数，它不只是objZebra.SendStringToPrinter "PrinterName", "StringValue"吗？ - user692942

感谢您的回复和耐心，@Lankymart。我不确定如何将它从静态方法更改为实例方法。我知道这是面向对象编程的基础，但我想我错过了那节课。在VB Windows应用程序上工作时，这个DLL很好用。但现在我需要在ASP应用程序上使用它，这对我来说成了一场噩梦。关于参数，我认为这正是我所需要的。 - A. Cristian Nogueira

Answer 1

经过大量的研究和不眠之夜，我意识到我的代码存在问题。

首先，我要感谢 @Lankymart 和 @SLaks 给我指出了方向。

让我们来看看代码：

首先，我进入了 AssemblyInfo.cs 并更改了 [assembly: ComVisible(false)]，在每个我想让其对 COM 可见的类之前，我添加了 [ComVisible(true)]，我在这个 MSDN 文档中找到了这个内容：https://msdn.microsoft.com/en-us/library/ms182198.aspx

之后，对我来说最困难的部分就是将静态方法转换为实例方法。

但是，通过进一步的研究并坚持尝试，我将我的代码从以下形式进行了更改：

public static Int32 SendStringToPrinter(string szPrinterName, string szString)   
{
     ...
}

public class PrintHandler
{
    [MethodImpl(MethodImplOptions.NoInlining)]
    public Int32 SendStringToPrinter(string text, string printerName)
    {            
        return RawPrinterHelper.SendStringToPrinter(printerName, text);
    }
}

致：

[ComVisible(true)]
public Int32 SendStringToPrinter(string szPrinterName, string szString)
{
     ...
}

[ComVisible(true)]
public class PrintHandler
{
    RawPrinterHelper rph = new RawPrinterHelper();
    [MethodImpl(MethodImplOptions.NoInlining)]
    [ComVisible(true)]
    public Int32 SendStringToPrinter(string text, string printerName)
    {            
        return rph.SendStringToPrinter(printerName, text);
    }
}

之后一切顺利，我能够按照以下方式调用该方法：

set objZebra = Server.CreateObject("PrintZebra.RawPrinterHelper")   
objZebra.SendStringToPrinter strPrinterName, strText

这就是全部内容。希望这能帮助其他遇到类似或相同问题的人。

- A. Cristian Nogueira

---

非常感谢您发布这篇文章。对我帮助很大。 - mjk6035