【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-DelphiBBSInterface.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
Unit DelphiBBSInterface;
interface
uses Types, XSBuiltIns;
type
IdfwService = interface(IInvokable)
['{A0F97AA2-DDF6-4D7E-87E7-80D5DB33F164}']
function about: WideString; stdcall;
function listroom: WideString; stdcall;
function listq(const page: WideString; const room: WideString; const qtype: WideString; const query: WideString; const expert: WideString; const userfrom: WideString; const sort: WideString): WideString; stdcall;
function dispq(const lid: WideString): WideString; stdcall;
function chkl(const DateFrom: WideString; const DateTo: WideString): WideString; stdcall;
function getl(const LID: WideString): WideString; stdcall;
end;
implementation
uses InvokeRegistry;
initialization
InvRegistry.RegisterInterface(TypeInfo(IdfwService), 'urn:WebServiceIntf-IdfwService', '');
end.