C#で作成したDLLをVB6より呼び出せるようにしたい

Question

2023年9月29日　修正

業務内容漏洩リスクを指摘されたため、質問の内容を伏せさせていただきます。
協力していただいた方々、大変申し訳ありません。

動作はできたもののまだテストはしていない状況です。
テストが通り世に出回りましたら、ブログなど何らかの方法で公開させていただきます。

Answer 1

今だと、NativeAOT+UnmanagedCallersOnlyAttributeで作成する方法もあるようです。

C#で書いたライブラリをPHPやGoから呼び出す

Comments

[KOZ6.0]

oh! これは知りませんでした。
tototomo さんは、おそらく VS2019 Community を使ってらっしゃいますが
怪しげなものを使うより、VS2022 と .NET7 を入れておきかえたほうがいいかも。
ソースはほぼそのまま使えるので。

[退会済みユーザー]

VS2019 Communityを使っています。
送信システムを利用している顧客が、自由にWindowsのインストールできない厳格な管理下ですので、Win10に標準で入っているであろう.NET4をターゲットにしました。
この方法も1手段として考えてみます。

Answer 2

DLLExport を使ったクラスのサンプルです。
SendMailInternal にメール送信処理を書いてください。
SmtpClient ではなく、MailKit を使いましょう。

using System;
using System.Text;
using System.Runtime.InteropServices;

namespace smtpmail
{
    public class SendMailCaller
    {
        // VB の宣言
        //Private Declare Function SendMail Lib "smtpmail" _
        //      (sServer As String, sTo As String, sFrom As String, _
        //       sSubject As String, sBody As String, sFile As String) As String

        [DllExport(CallingConvention.StdCall)]
        public static IntPtr SendMail(
            ref IntPtr iServer, ref IntPtr iTo, ref IntPtr iFrom,
            ref IntPtr iSubject, ref IntPtr iBody, ref IntPtr iFile) {

            string sServer = GetByRefString(iServer);
            string sTo = GetByRefString(iTo);
            string sFrom = GetByRefString(iFrom);
            string sSubject = GetByRefString(iSubject);
            string sBody = GetByRefString(iBody);
            string sFile = GetByRefString(iFile);

            string result = SendMailInternal(
                                sServer, sTo, sFrom,
                                sSubject, sBody, sFile);

            return ResultString(result);
        }

        private static string GetByRefString(IntPtr ptr) {
            if (ptr == IntPtr.Zero) {
                return string.Empty;
            }
            return Marshal.PtrToStringAnsi(ptr);
        }

        private static IntPtr ResultString(string value) {
            if (string.IsNullOrEmpty(value)) {
                return IntPtr.Zero;
            }
            var enc = Encoding.GetEncoding("SHIFT_JIS");
            var bytes = enc.GetBytes(value);
            return SysAllocStringByteLen(bytes, bytes.Length);
        }

        [DllImport("oleaut32.dll", CharSet = CharSet.Ansi)]
        private static extern IntPtr SysAllocStringByteLen(
                                 byte[] bytes, int len);

        private static string SendMailInternal(
            string sServer, string sTo, string sFrom,
            string sSubject, string sBody, string sFile) {

            Console.WriteLine($"sServer={sServer.Length}{sServer}");
            Console.WriteLine($"sTo={sTo.Length}{sTo}");
            Console.WriteLine($"sFrom={sFrom.Length}{sFrom}");
            Console.WriteLine($"sSubject={sSubject.Length}{sSubject}");
            Console.WriteLine($"sBody={sBody.Length}{sBody}");
            Console.WriteLine($"sFile={sFile.Length}{sFile}");

            // ここにメール送信処理を書いてください。

            return "SendMail Success!";
        }

    }
}

Comments

[退会済みユーザー]

VB6からの情報を渡せるようになりました。ありがとうございます。
しかし、まだ問題がありまして、
実行すると
エラーが発生しました: ファイルまたはアセンブリ 'System.Runtime.CompilerServices.Unsafe, Version=4.0.4.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'、またはその依存関係の 1 つが読み込めませんでした。見つかったアセンブリのマニフェスト定義はアセンブリ参照に一致しません。 (HRESULT からの例外:0x80131040)
となります。

MailKitなど別DLLもVB6の実行フォルダに置いてはいるのですが、参照ができないようです。
ここで苦戦しています。

[KOZ6.0]

VB6 から渡された文字を C# で認識できる形にし、文字列を戻す処理までは確認しましたが、その先はわかりません。
Visual Studio で VB6 の Exe をアタッチしてデバッグしてください。
https://learn.microsoft.com/ja-jp/visualstudio/debugger/attach-to-running-processes-with-the-visual-studio-debugger

[退会済みユーザー]

VB6 とC#のやりとりは出来ています。内部のメール処理を外した単純な形にしたところ、引数も渡すことができ、戻り値も受け取ることができました。
ただ、MailKitの実行箇所でエラーとなってしまいます。
この質問は一旦完了としましたので、別質問であげさせていただきました。
よろしければ一度ご確認いただければと思います。ここまで進めたことに本当に感謝です。
https://teratail.com/questions/7ttit0ui1ufccf

Answer 3

まず、C# .NETで新しいDLLプロジェクトを作成します。そのプロジェクト内でメール送信などの必要な機能を実装します。 VB6からC# .NET DLLを呼び出すには、DLLをCOM相互運用可能にする必要があります。Pay by Plate Ma .NETプロジェクトのプロパティで、[プロパティ] > [ビルド] タブに移動し、[COM相互運用を有効にする]オプションをチェックします。

[ComVisible(true)]
public interface IMyMailSender
{
void SendMail(string to, string subject, string body);
}

Answer 4

C# で VB6 から呼び出せる dll を作るなら、 COM を作ってください。

まずは本家。

「COM クラスの例」
https://learn.microsoft.com/ja-jp/dotnet/csharp/advanced-topics/interop/example-com-class

あとは、VBA 用に作った先人がいらっしゃいますので、「VBA C# COM」でネット検索するとでてくるでしょう。

どこかの偉い人がレガシー dll として作る方法を提供していますが、裏技なのでお勧めしません。

おすすめのページです。

「C# で COM オブジェクトを作ってみる」
https://qiita.com/tomochan154/items/1ce33f2aef167c0fed9d

AnyCPU でビルドすると、32bit/64bit 双方で動く dll になるようです。
VB6 なので、32bit だけで良いのですが、ここで注意事項。

Visual Studio 2019 までは 32bit だったので、ビルドすると 32bit の COM として登録されますが、2020 は 64bit なので 64bit の COM として登録されるので手動で登録する必要があります。

---

追記：VB6側は変更できないというのを見落としていたので

前述したとおり、C# は基本的にレガシー DLL を作成できません。
なので、C# の DLL を呼び出したいのであれば、C++/CLR でラッパー DLL を作ることになるでしょう。

VB6 → C++/CLR → C# という感じで呼び出すわけですね。

VB の宣言が

Private Declare Function SendMail Lib "smtpmail" _
      (sServer As String, sTo As String, sFrom As String, _
      sSubject As String, sBody As String, sFile As String) As String

のようになっているので C++/CLR 側は

extern "C" {
    __declspec(dllexport) BSTR WINAPI SendMail(
        BSTR* sServer, BSTR* sTo, BSTR* sFrom,
        BSTR* sSubject, BSTR* sBody, BSTR* sFile) {
        char buf[] = "this is a pen";
        return SysAllocStringByteLen(buf, lstrlenA(buf));
    }
}

という感じになるかと思います。

文字列は BSTR で渡されますが、困ったことに VB 側が Unicode から Ansi に変換してしまいます。

ですから、Ansi → Unicode の変換を行ってから C# の DLL を呼び出す必要があります。

逆に C# から渡された文字列は、Unicode から Ansi への変換を行ってから VB6 に戻す必要があります。

Comments

[退会済みユーザー]

ありがとうございます。Visual Studio 2019でx86指定でビルドしています。
また、参考サイトでC#ソースを手直ししました。
が、状況は変わりませんでした。

[KOZ6.0]

参照設定して使うんですよ

[KOZ6.0]

「参照設定方法」
http://hanatyan.sakura.ne.jp/vb6/ide04.htm

[退会済みユーザー]

ありがとうございます。冒頭に書いたとおり、
VB6の開発環境は作れないので、現状の記述のままで利用できるDLLをC#で作成する必要があります。

[退会済みユーザー]

VB6は現在リリースしているexeのまま活用し、呼び出しているDLLのみを入れ替える、ということです。

[KOZ6.0]

では DllExport.bat を使ってみてください。
「C++からC# DLL を直接利用する方法」
https://qiita.com/Midoliy/items/58d56e202f104ebf867a

[KOZ6.0]

Private Declare Function SendMail Lib "smtpmail" _
(sServer As String, sTo As String, sFrom As String, _
sSubject As String, sBody As String, sFile As String) As String
これって String の引数に ByVal はついてないんですか？

[退会済みユーザー]

はい、ByVal はついておりません。

[退会済みユーザー]

解決しました。dumpbinコマンドで関数名が表示されるようになりました。
```
C:\Program Files (x86)\Microsoft Visual Studio\2019\Community\SDK\ScopeCppSDK\vc15\VC\bin>dumpbin /exports "C:\Users\user\source\repos\smtpmail\bin\Debug\x86\smtpmail.dll"
Microsoft (R) COFF/PE Dumper Version 14.12.25835.0
Copyright (C) Microsoft Corporation. All rights reserved.

Dump of file C:\Users\user\source\repos\smtpmail\bin\Debug\x86\smtpmail.dll

File Type: DLL

Section contains the following exports for \smtpmail.dll

00000000 characteristics
650CF0D1 time date stamp Fri Sep 22 10:41:37 2023
0.00 version
1 ordinal base
1 number of functions
1 number of names

ordinal hint RVA name

1 0 0000391E SendMail

Summary

2000 .reloc
2000 .rsrc
2000 .sdata
2000 .text
```

ラッパーを作るのは、引き継ぎを考えると難しいと思ったので下記アドバイスを実施しました。

```
では DllExport.bat を使ってみてください。
「C++からC# DLL を直接利用する方法」
https://qiita.com/Midoliy/items/58d56e202f104ebf867a
```

ソースはこれだけで、プロジェクトをアセンブリ登録する必要もありませんでした。
```
using System;
using System.Threading.Tasks;
using MimeKit;
using MimeKit.Text;
using MailKit.Net.Smtp;
using MailKit.Security;
using System.Runtime.InteropServices;
using System.Security.Cryptography.X509Certificates;
using System.Net.Security;

namespace smtpmail
{
public class smtpmail
{
// VB6から呼び出す関数の宣言
[DllExport]
public static string SendMail(
string szServer, string szTo, string szFrom,
string szSubject, string szBody, string szFile)
{
```

SendMailが見つからないエラーは解消され、また新たなエラーとなりましたが、VB6とC#間も文字コードの問題だと思いますので、
ログを仕込んでこれから調べていきます。

ありがとうございました。