100元，请教dll函数接口问题！(100分)

sunshinebbs · 2004-02-17

我在delhpi里打开一个dll文件文件得到以下信息。我怎样才能用调delphi调用以下函数呢？ [   uuid(6A73356D-23CF-489C-A467-25147BF9D465),   helpstring("Dispatch interface for IMC Control"),   hidden ]  dispinterface _DIMCv1 {   properties:   methods:   [   id(0x00000016)   ]   void Logout( void );   [   id(0x00000017)   ]   void ChangeRoomCate(long roomID, short cateno, short sortno );   [   id(0x0000003B)   ]   void OPCastText(short cateid, long rid, BSTR castmst );   [   id(0x00000015)   ]   void QuitRoom(BSTR msgtext );   [   id(0x00000018)   ]   void WantMic( void );   [   id(0x00000019)   ]   void DropMic( void );   [   id(0x0000003A)   ]   void OPForceVPM(long uid );   [   id(0x00000036)   ]   void OPKick(long uid, BSTR msg );   [   id(0x00000039)   ]   void OPSetUserPriv(long uid, short vout, short vin, short tout, short tin, short ulevel );   [   id(0x00000038)   ]   void OPSetNick(long uid, BSTR nick );   [   id(0x0000003D)   ]   void SetUserRela(long uid, short svoc, short rvoc, short stxt, short rtxt );   [   id(0x0000003C)   ]   void OPSetRoomParam(short locked, short invisble, short mic_time, short min_ulevel );   [   id(0x00000037)   ]   void OPGetMic(long fromuid, long touid );   [   id(0x00000012)   ]   void EnterRoom(long roomID, long userlevel, BSTR usernick );   [   id(0x0000001C)   ]   void PrivText(long userid, BSTR msgtext );   [   id(0x0000001F)   ]   long UserStatus(long uid );   [   id(0x00000022)   ]   short EnumCate(short cate );   [   id(0x0000001D)   ]   long Idx2id(long idx );   [   id(0x0000001E)   ]   BSTR Nickbyid(long uid );   [   id(0x0000001B)   ]   void PubText(long userid, BSTR msgtext );   [   id(0x00000023)   ]   long EnumRoom(short cate, long rid );   [   id(0x00000013)   ]   void Connect( void );   [   id(0x00000014)   ]   void AddRoom(BSTR roomname, short permanent, short invisible, short max_user, short mic_count, short mic_time, short vhostmaster, short voperator, short vuser, short vguest );   [   id(0x00000011)   ]   void Login(long ugidLo, BSTR logstring );   [   id(0x00000020)   ]   long UserDef(long uid );   [   id(0x00000021)   ]   void SetUserDef(long udata );   [   id(0x0000001A)   ]   void ChangeNick(BSTR usernick );   [   id(0x00000026)   ]   long RoomCUser(long rid );   [   id(0x0000002C)   ]   long RoomUPriv(long rid );   [   id(0x00000032)   ]   void ChangeUserLevel(long ugidLo, short ulevel, short cateid, long rid );   [   id(0x00000025)   ]   long RoomProp(long rid );   [   id(0x00000024)   ]   BSTR roomname(long rid );   [   id(0x00000027)   ]   void RoomList( void );   [   id(0x00000031)   ]   void Register(BSTR passwd, BSTR nick, BSTR xmlinfo );   [   id(0x0000002D)   ]   void SetSelfPriv(long vocr, long pubtr, long prvtr );   [   id(0x00000030)   ]   void VPMLeave( void );   [   id(0x0000002F)   ]   void VPMPermit(long uid );   [   id(0x00000034)   ]   long userlevel(long uid );   [   id(0x00000033)   ]   long ChangePasswd(long ugidLo, BSTR oldpassword, BSTR newpassword, BSTR nick );   [   id(0x0000002E)   ]   void VPMRequest(long uid, BSTR msg );   [   id(0x0000002A)   ]   short RoomSort(long rid );   [   id(0x00000046)   ]   void NewPasswd(long ugidLo, long gpcode );   [   id(0x00000045)   ]   void SetTopic(BSTR topic );   [   id(0x00000040)   ]   long UserInfo(long uid, long infoidx );   [   id(0x0000003E)   ]   void SetParam(long funcnum, long value );   [   id(0x00000044)   ]   BSTR RoomTopic(long rid );   [   id(0x00000043)   ]   void OPLockRoom(BSTR roomPass );   [   id(0x0000003F)   ]   long RoomInfo(long rid, long infoidx );   [   id(0x00000029)   ]   short RoomCate(long rid );   [   id(0x00000028)   ]   long RoomIdx2id(long ridx );   [   id(0x0000002B)   ]   void DelRoom(long rid );   [   id(0x00000042)   ]   void QueryUser(long uid, long funcid );   [   id(0x00000041)   ]   void OPBanIP(long uid, BSTR msg );   [   id(0x00000035)   ]   long SelfInfo(long infoidx ); };

apw · 2004-02-17

这是一个COM接口的DLL, 先注册，RegSvr32 xxx.dll 从Delphi的Project|Import Type Library导入,或者用Component|Install ActiveX Control安装成控件。 通常会生成诸如xxx_tlb.pas的文件； 将xxx_tlb.pas在加到工程中，引用xxx_tlb； 在xxx_tlb中你能看到 IDIMCv1这类接口,和CoDIMCv1类； CoDIMCv1是创建IDIMCv1的方法，你只通过调用CoDIMCv1中的Create就可完成装载DLL，建立接口等工作，并获取IDIMCv1实例，通过IDIMCv1可以调用DLL完成功能。 详细的资料可以找一些Delphi关于COM编程方面的看看就明白了。 关键还在于你对这个DLL中的接口功能了解多少。

myliu · 2004-02-17

因该是正确的

sunshinebbs · 2004-02-19

我已经加入控件了,当控件放在Fomr1上,出现"Err size 100,50"错误,然后弹出"could not obtian OLE control window handle"然后什么都没有,怎么办?能解决的再加100分

sunshinebbs · 2004-02-19

具体下载这个解开看看http://www.xiliao.com/talk.cab

apw · 2004-02-19

动态方法创建它没问题，我不知道它是干什么用的，如果不显示图像，则可以想办法用。 可能是它与Delphi的兼容问题。

sunshinebbs · 2004-02-19

也不需要显示图像。怎么调用？

100元，请教dll函数接口问题！(100分)

sunshinebbs

Unregistered / Unconfirmed

apw

Unregistered / Unconfirmed

myliu

Unregistered / Unconfirmed

sunshinebbs

Unregistered / Unconfirmed

sunshinebbs

Unregistered / Unconfirmed

apw

Unregistered / Unconfirmed

sunshinebbs

Unregistered / Unconfirmed

Similar threads