我们有一个.NET程序集（实际上是Aspose.Words），我们希望客户端可以毫不费力地从COM客户端使用它。
因此我们使用程序集发送.TLB，以便客户端可以从C ++或Delphi等语言中使用它，并且不需要自己提取.TLB。
我们还使用程序集发送.IDL，以便客户可以查看枚举值，如果他们在ASP中进行编程，则可以查看。
我希望.TLB和.IDL由构建脚本生成。我可以生成.TLB没问题。但我无法在命令行中生成.IDL（或作为替代转换.TLB到.IDL）。我使用OLEVIEW.EXE手动执行此操作，这不是很好。
听说Delphi的TLIBIMP.EXE听起来像是可以做到的，但它似乎没有单独提供。
所以问题是：
上面的一切听起来有点愚蠢吗？
如何使用命令行从.NET程序集中获取.IDL。
感谢。
答案 0 :(得分：3)
我已经编写了这个快速而又脏的黑客，用于从TLB中提取IDL。 它使用OLEVIEW.EXE使用的相同（据我所知）COM对象。
/*
Extract the IDL from a tlb file and print it to stdout.
The tlb file is analysed by a COM object of type CLSID_ITypeLibViewer and
the extracted IDL is shown in a window created by the same object.
This program extracts the IDL from that window.
Usually Microsoft's OLEViewer (a.k.a. OLE/COM Object Viewer) registers a
COM object of that CLSID_ITypeLibViewer (for example inside a dll called
IViewers.Dll), I've tested it with:
IVIEWERS.DLL "OLE/COM Object Interface Viewer" Version 6.0.6000.16384
This software is provided "as-is," without any express or implied warranty.
*/
#define _CRT_SECURE_NO_WARNINGS
#include <Windows.h>
#include <atlbase.h>
#include <comdef.h>
#include <iostream>
#include <string>
#include <ctime>
const char IDL_window_name[] = "ITypeLib Viewer";
const IID IID_IInterfaceViewer = { 0xfc37e5ba, 0x4a8e, 0x11ce, { 0x87, 0x0b,
0x08, 0x00, 0x36, 0x8d, 0x23, 0x02 } };
const CLSID CLSID_ITypeLibViewer = { 0x57efbf49, 0x4a8b, 0x11ce, { 0x87, 0x0b,
0x08, 0x00, 0x36, 0x8d, 0x23, 0x02 } };
#define RICHEDIT_CONTROL_ID 0xE901 // found by Spy++
#define RICHEDIT_PARENT_ID 0xE900 // found by Spy++
#define CHECK(hr) if ( FAILED(hr) ) { std::wcerr << L"COM error: " << stringify_hr(hr) << L"\n"; return __LINE__; }
std::string myself;
std::string tlb;
// My installation of Microsoft Visual Studio 2010 has a sample folder where
// I can find the source of OleView:
// C:\Program Files (x86)\Microsoft Visual Studio 10.0\Samples\1033\VC2010Samples.zip
//
// Unzipping the file gives me the solution for Visual Studio 2010
// C++\MFC\ole\oleview\oleview.sln
//
// The following declaration comes from that sample.
// The sample has also the source for the CLSID_ITypeLibViewer object but
// unfortunately the method View is not implemented (the code in my sample says
// "Implement interface viewer UI here.").
DECLARE_INTERFACE_(IInterfaceViewer, IUnknown)
{
STDMETHOD(QueryInterface) (THIS_ REFIID riid, LPVOID FAR* ppvObj) PURE;
STDMETHOD_(ULONG,AddRef) (THIS) PURE;
STDMETHOD_(ULONG,Release) (THIS) PURE;
STDMETHOD(View) (HWND hwndParent, REFIID riid, LPUNKNOWN punk) PURE;
};
std::string replace_all( const char* txt, const std::string& old_s, const std::string& new_s );
std::string adapt( const char* txt );
std::string now();
std::wstring stringify_hr( HRESULT hr );
DWORD WINAPI scrape(LPVOID)
{
HWND hwnd = 0;
int guard = 100;
while( guard-- > 0 && (hwnd = ::FindWindowA(0,IDL_window_name)) == 0 ) {
::Sleep(100);
}
if ( guard <= 0 ) {
std::cerr << "No window found with name '" << IDL_window_name << "'\n";
return __LINE__;
}
guard = 100;
const size_t sz = 100*1024;
char text[sz];
do {
HWND parent_hwnd = ::GetDlgItem(hwnd,RICHEDIT_PARENT_ID);
if ( parent_hwnd == 0 ) {
::SendMessage(hwnd,WM_CLOSE,0,0);
std::cerr << "No parent with ID " << std::hex << "0x"
<< RICHEDIT_PARENT_ID << " found in window with name '"
<< IDL_window_name << "'\n";
return __LINE__;
}
HWND richedit_hwnd = ::GetDlgItem(parent_hwnd,RICHEDIT_CONTROL_ID);
if ( richedit_hwnd == 0 ) {
::SendMessage(hwnd,WM_CLOSE,0,0);
std::cerr << "No richedit with ID " << std::hex << "0x"
<< RICHEDIT_CONTROL_ID << " found in window with name '"
<< IDL_window_name << "'\n";
return __LINE__;
}
::GetWindowTextA(richedit_hwnd,text,sz);
::Sleep(100);
} while ( guard-- > 0 && strlen(text) == 0 );
if ( guard <= 0 ) {
::SendMessage(hwnd,WM_CLOSE,0,0);
std::cerr << "No IDL found in window with name '"
<< IDL_window_name << "'\n";
return __LINE__;
}
std::cout << "// IDL extracted from " << tlb << " by tlb2idl ("
<< myself << ") on " << now() << "\n" << adapt(text);
::SendMessage(hwnd,WM_CLOSE,0,0);
return 0;
}
int main(int argc, char* argv[])
{
myself = argv[0];
if ( argc <= 1 ) {
std::cerr << "\nPrint to stdout the IDL extracted from file.tlb\n\nUsage:\n"
<< myself << " file.tlb\n";
return __LINE__;
}
DWORD exit_code = 0;
CHECK( ::CoInitialize(0) );
{
CComPtr<ITypeLib> ptl;
tlb = argv[1];
CHECK( ::LoadTypeLib(std::wstring(tlb.begin(),tlb.end()).c_str(), &ptl) );
CComPtr<IInterfaceViewer> piv;
CHECK( ::CoCreateInstance( CLSID_ITypeLibViewer, NULL, CLSCTX_SERVER,
IID_IInterfaceViewer, (void**)&piv ) );
HANDLE th = ::CreateThread( 0, 0, scrape, 0, 0, 0 );
CHECK( piv->View(0,IID_ITypeLib,ptl) );
::WaitForSingleObject(th,1000);
::GetExitCodeThread(th,&exit_code);
}
::CoUninitialize();
return exit_code;
}
std::string replace_all( const char* txt, const std::string& old_s, const std::string& new_s )
{
std::string str(txt);
size_t start_pos = 0;
while((start_pos = str.find(old_s, start_pos)) != std::string::npos) {
str.replace(start_pos, old_s.length(), new_s);
start_pos += new_s.length();
}
return str;
}
std::string adapt( const char* txt )
{
std::string str( replace_all(txt,"\r\n","\n") );
return replace_all(str.c_str(),"\r","\n");
}
std::string now()
{
time_t szClock;
time( &szClock );
struct tm *newTime = localtime( &szClock );
return asctime( newTime );
}
std::wstring stringify_hr( HRESULT hr )
{
return _com_error(hr).ErrorMessage();
}
答案 1 :(得分：2)
没关系，只修复{2012}的now功能：
std::string now()
{
char buffer[32];
errno_t errNum;
_time32( &aclock );
_localtime32_s( &newtime, &aclock );
errNum = asctime_s(buffer, 32, &newtime);
return buffer;
}
必须确保您没有打开OLEVIEW。
答案 2 :(得分：0)
类型库足以让任何语言使用您的服务器。 IDL仅对生成您已提供的类型库或生成C ++头文件很有用，使用#import directive生成更容易。
如果您真的想这样做，那么这将是一种方式，构建一个使用#import的小型C ++程序，提供生成的.tlh文件。