Qua các đối số được gõ mạnh trong .NET COM interop

Question

Tôi có hai lớp .NET được tiếp xúc qua COM interop - giả sử Foo và Bar, và tôi cần chuyển đối số kiểu Foo thành một phương thức được định nghĩa trong Bar. Một cái gì đó như thế này:

[ComVisible(true)] 
public class Foo 
{ 
    // whatever 
} 

[ComVisible(true)] 
public class Bar 
{ 
    public void Method(Foo fff) 
    { 
     // do something with fff 
    } 
} 

Khi tôi chạy sau VBS (sử dụng cscript.exe):

set foo = CreateObject("TestCSProject.Foo") 
set bar = CreateObject("TestCSProject.Bar") 
call bar.Method(foo) 

tôi nhận được một lỗi:

D:\test.vbs(3, 1) Microsoft VBScript runtime error: Invalid procedure call or argument: 'bar.Method'

Tuy nhiên, nếu tôi thay đổi tuyên bố Phương thức cho điều này:

public void Method(object o) 
    { 
     Foo fff = (Foo)o; 
     // do something with fff 
    } 

mọi thứ hoạt động. Tôi đã thử một số phép thuật với giao diện, thuộc tính, vv nhưng không may mắn cho đến nay.

Bất kỳ thông tin chi tiết nào?

Rất cám ơn

Answer 1

Đảm bảo, bạn xác định thuộc tính GUID, điều này là cần thiết nếu bạn thực hiện QueryInterface (VB có thể). Bạn phải tạo một GUID duy nhất cho mọi lớp ẩn.

[Guid("77777777-3333-40df-9C0D-2B580E7E1F3B")] 
[ComVisible(true)] 
public class Foo 
{ 
} 

Sau đó, tôi khuyên bạn nên viết giao diện cho đối tượng COM của bạn và đặt ClassInterface thành None, vì vậy không có nội bộ nào được tiết lộ. Typelibrary của bạn sẽ được sạch hơn nhiều theo cách này.

[Guid("88888888-ABCD-458c-AB4C-B14AF7283A6B")] 
[ComVisible(true)] 
public interface IFoo 
{ 
} 

[ClassInterface(ClassInterfaceType.None)] 
[Guid("77777777-3333-40df-9C0D-2B580E7E1F3B")] 
[ComVisible(true)] 
public class Foo : IFoo 
{ 
} 

Answer 2

Sau khi đấu tranh với cùng một vấn đề này trong một thời gian, tôi thấy rằng đang gặp sự cố khi chuyển tham chiếu thay vì theo giá trị. Xem ở đây:

http://msdn.microsoft.com/en-us/library/ee478101.aspx

Vì vậy, tôi chỉ cần thêm dấu ngoặc tròn để lập luận thông qua trong VB Script, và nó dường như đã giải quyết được vấn đề. Vì vậy, trong ví dụ của bạn, chỉ cần thực hiện việc này:

Set foo = CreateObject("TestCSProject.Foo") 
Set bar = CreateObject("TestCSProject.Bar") 
Call bar.Method((foo)) 

Nên hoạt động như mong đợi, không cần phải đặt thuộc tính ClassInterface và không sử dụng Giao diện.