А типы аргументов как получить?
Да всё так же, вознёй с ITypeInfo. Класс в аттаче - много строк, используется как-то так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
public string GetInfo(object instance)
{
try
{
var sb = new StringBuilder();
var reflector = ComReflector.Create(instance);
sb.AppendLine($"Reflected type: {reflector.ReflectedType}");
sb.AppendLine($"Type name: {reflector.TypeName}");
foreach (var i in reflector.Interfaces)
sb.AppendLine($"Implements: {i}");
sb.AppendLine($"Methods: {reflector.MethodsCount}");
sb.AppendLine("========================================");
foreach (var mi in reflector.Methods.Where(m => m != null))
{
sb.AppendLine($"Method name={mi.Name}, PropertyGet={mi.PropertyGet}, PropertySet={mi.PropertySet}, PropertySetRef={mi.PropertySetRef}");
sb.AppendLine($"Parameters: {mi.ParametersCount}");
foreach (var pi in mi.Parameters.Where(p => p != null))
sb.AppendLine(string.Format("\tName={0}, IsOut={1}, type={2}", pi.Name, pi.IsOut,
pi.TypeDescription == null ? "null" : "\r\n" + pi.TypeDescription.ToString(2)
));
if (mi.IsProperty) continue;
sb.AppendLine(string.Format("Return type: {0}", mi.ReturnType == null ? "void" : mi.ReturnType.ToString(0)));
sb.AppendLine("------------------------------------------------------");
}
return sb.ToString();
}
catch (Exception e)
{
return $"Shit happens: {e}";
}
}
Для нормальных зарегистрированных типов выдается вполне вменяемая информация - например, для метода Scripting.FileSystemObject.CreateTextFile
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Method name=CreateTextFile, PropertyGet=False, PropertySet=False, PropertySetRef=False
Parameters: 3
Name=FileName, IsOut=False, type=
Kind=Other, VarEnum=VT_BSTR, Description=VT_BSTR
Name=Overwrite, IsOut=False, type=
Kind=Other, VarEnum=VT_BOOL, Description=VT_BOOL
Name=Unicode, IsOut=False, type=
Kind=Other, VarEnum=VT_BOOL, Description=VT_BOOL
Return type: Kind=Pointer, VarEnum=VT_PTR, Description=(empty)
Kind=UserDefined, VarEnum=VT_USERDEFINED, Description=ITextStream
(информация о типе может быть рекурсивной, т.к. если используется ссылочный тип, то это VT_PTR, т.е. ссылка на другой тип).
А вот для методов класса из VBA выдаётся фигня:
1.
2.
3.
Public Function Callback(ByVal Application As Excel.Application, ByVal StrParam As String, ByVal IntParam As Long, ByVal VarParam As Variant) As String
Debug.Print "Callback"
End Function
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Method name=Callback, PropertyGet=False, PropertySet=False, PropertySetRef=False
Parameters: 4
Name=Application, IsOut=False, type=
Kind=Other, VarEnum=VT_EMPTY, Description=VT_EMPTY
Name=StrParam, IsOut=True, type=
Kind=Other, VarEnum=VT_NULL, Description=VT_NULL
Name=IntParam, IsOut=True, type=
Kind=Other, VarEnum=VT_EMPTY, Description=VT_EMPTY
Name=VarParam, IsOut=True, type=
Kind=Other, VarEnum=VT_EMPTY, Description=VT_EMPTY
Return type: Kind=Other, VarEnum=VT_BSTR, Description=VT_BSTR
Поэтому, по-моему, в данном случае уместнее было бы в дотнетовской библиотеке объявить COM-интерфейс для коллбэка:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
namespace NetTest
{
[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
[Guid("7ABA5EE3-BAFA-4C54-9436-7E87E92A6CC1")]
public interface ICallback
{
string Callback(
Microsoft.Office.Interop.Excel.Application Application,
string StrParam,
int IntParam,
object VarParam
);
// Просто для примера
string CallbackInfo();
}
}
и реализовывать его в VBA-классе:
1.
2.
3.
4.
5.
6.
7.
8.
Implements NetTest.ICallback
Public Function ICallback_Callback(ByVal Application As Excel.Application, ByVal StrParam As String, ByVal IntParam As Long, ByVal VarParam As Variant) As String
Debug.Print "Callback"
End Function
Public Function ICallback_CallbackInfo() As String
ICallback_CallbackInfo = "Some callback info"
End Function
Тогда, если метод, принимающий объект с коллбэком, объявит в сигнатуре тип аргумента как ICallback:
1.
2.
3.
4.
5.
6.
7.
8.
9.
[ComVisible(true)]
[Guid("D74C1421-B3EF-4660-9F39-FC840DA1ED72")]
[ProgId("NetTest.NetTestImpl")]
[ClassInterface(ClassInterfaceType.AutoDual)]
public class NetTestImpl
{
public string GetInfo(ICallback instance)
{
...
то при попытке передать в этот метод из VBA объект, не реализующий ICallback, на рантайме вылетит ошибка "Run-time error '13': Type mismatch". А если даже оставить сигнатуру с типом dynamic, то фреймворк вполне может проверить, реализует ли объект ICallback, и привести его к интерфейсу:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
[ComVisible(true)]
[Guid("D74C1421-B3EF-4660-9F39-FC840DA1ED72")]
[ProgId("NetTest.NetTestImpl")]
[ClassInterface(ClassInterfaceType.AutoDual)]
public class NetTestImpl
{
public string GetInfo(dynamic instance)
{
try
{
var sb = new StringBuilder();
IComReflector reflector = ComReflector.Create(instance);
sb.AppendLine($"Reflected type: {reflector.ReflectedType}");
sb.AppendLine($"Type name: {reflector.TypeName}");
if (instance is ICallback cb)
sb.AppendLine($"Callback info: {cb.CallbackInfo()}");
....
- в окошке Immediate будет
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Reflected type: System.Object
Type name: TestClass
Callback info: Some callback info
Implements: IDispatch
Methods: 2
========================================
Method name=ICallback_Callback, PropertyGet=False, PropertySet=False, PropertySetRef=False
Parameters: 4
Name=Application, IsOut=False, type=
Kind=Pointer, VarEnum=VT_PTR, Description=(empty)
Kind=Other, VarEnum=VT_EMPTY, Description=VT_EMPTY
Name=StrParam, IsOut=False, type=
Kind=Other, VarEnum=VT_BSTR, Description=VT_BSTR
Name=IntParam, IsOut=False, type=
Kind=Other, VarEnum=VT_I4, Description=VT_I4
Name=VarParam, IsOut=False, type=
Kind=Other, VarEnum=VT_VARIANT, Description=VT_VARIANT
Return type: Kind=Other, VarEnum=VT_BSTR, Description=VT_BSTR
------------------------------------------------------
Method name=ICallback_CallbackInfo, PropertyGet=False, PropertySet=False, PropertySetRef=False
Parameters: 0
Return type: Kind=Other, VarEnum=VT_BSTR, Description=VT_BSTR
------------------------------------------------------
|
