Импорт библиотеки типов

← →
alxx (2002-04-23 17:41) [0]

Как можно импортировать библиотеку типов IDL (сконвертировать в TLB) ?

← →
troits (2002-04-23 18:50) [1]

Попробуй New-> Type Library и во вкладке text вбить твой IDL. Если скомпилируется - хорошо, если же нет, то попробуй Midl.exe

← →
alxx (2002-04-24 12:54) [2]

Не компилируется :(
Этот дурацкий MIDL.exe - почему-то не выдает мне TLB файла - зато, блин, понаделал хидеровских сиплюсплюсных. Как его заставить мне сделать TLB?

← →
Romkin (2002-04-24 13:05) [3]

Tools -> Environment Options -> Type Library
Language: IDL поставить
Создать новую библиотеку типов, потом как сказано в Text вбить весь текст, все сразу появится, проверено

← →
alxx (2002-04-24 13:24) [4]

То ли я торможу, то ли нет.
Ну попробуйте например:

//+-------------------------------------------------------------------------
//
// Microsoft Windows
// Copyright (C) Microsoft Corporation, 1992-1997.
//
// File: unknwn.idl
//
// Contents: IUnknown interface definition
//
//
//--------------------------------------------------------------------------

cpp_quote("//+-------------------------------------------------------------------------")
cpp_quote("//")
cpp_quote("// Microsoft Windows")
cpp_quote("// Copyright (C) Microsoft Corporation, 1992-1997.")
cpp_quote("//")
cpp_quote("//--------------------------------------------------------------------------")

#ifndef DO_NO_IMPORTS
import "wtypes.idl";
#endif

[
local,
object,
uuid(00000000-0000-0000-C000-000000000046),
pointer_default(unique)
]

interface IUnknown
{
typedef [unique] IUnknown *LPUNKNOWN;

cpp_quote("//////////////////////////////////////////////////////////////////")
cpp_quote("// IID_IUnknown and all other system IIDs are provided in UUID.LIB")
cpp_quote("// Link that library in with your proxies, clients and servers")
cpp_quote("//////////////////////////////////////////////////////////////////")

HRESULT QueryInterface(
[in] REFIID riid,
[out, iid_is(riid)] void **ppvObject);
ULONG AddRef();
ULONG Release();
}

[
object,
uuid(00000001-0000-0000-C000-000000000046),
pointer_default(unique)
]

interface IClassFactory : IUnknown
{
typedef [unique] IClassFactory * LPCLASSFACTORY;

[local]
HRESULT CreateInstance(
[in, unique] IUnknown * pUnkOuter,
[in] REFIID riid,
[out, iid_is(riid)] void **ppvObject);

[call_as(CreateInstance)]
HRESULT RemoteCreateInstance(
[in] REFIID riid,
[out, iid_is(riid)] IUnknown ** ppvObject);

[local]
HRESULT LockServer(
[in] BOOL fLock);

[call_as(LockServer)]
HRESULT __stdcall RemoteLockServer(
[in] BOOL fLock);
}

← →
Romkin (2002-04-24 13:52) [5]

Офигел?
Это уже у тебя определено в System.pas
Этот файл не нужен в Delphi

← →
alxx (2002-04-24 14:08) [6]

Дык, я же например, а на самом деле мне другой надо! mstask.idl

← →
troits (2002-04-24 14:52) [7]

Нет, а почему должен компилироваться .tlb на этом файле?
Где
library ...
{

...
}
?
Там же только описание интерфейсов.

Импорт библиотеки типов Найти похожие ветки