接口文件

最新推荐文章于 2024-07-10 08:41:53 发布

DoDoDTa

最新推荐文章于 2024-07-10 08:41:53 发布

阅读量716

点赞数

分类专栏： delphi Dll被封装成接口

本文链接：https://blog.csdn.net/vip_ljq/article/details/35871655

版权

本文详细介绍了Delphi中用于接口定义的代码，包括多个不同接口如IHtpCom、INotic等的函数和属性，以及如何使用这些接口进行通信和设置通知。

摘要由CSDN通过智能技术生成

unit uInterface; //接口单元
interface
uses
  Windows,Classes;
type
{ IDllTest }
  IHtpCom = interface;
  INotic = interface
  ['{F4AA4BD8-7015-46D2-BD8B-D911CF111FD7}']
    procedure setState(const bStart:Boolean);stdcall;
    function getstate:Boolean;stdcall;
    procedure wLog(const Msg:PChar);stdcall;
    procedure Display(const Msg:PChar;iType:Integer = 0);stdcall;
    property State:Boolean read getState write setState;
    procedure Dowork;stdcall;
    function GetIHtpCom:IHtpCom;stdcall;
    procedure SetProgressLength(Length:Integer);stdcall;
    procedure SetProgress(i:Integer);stdcall;
    procedure StopRun;stdcall;
    function GetConnectUrl:WideString;stdcall;
    procedure Status(const Msg:WideString);
  end;
  
  ISetNotic = interface
  ['{85E3A853-5DDA-4C2F-B64B-292D9617AA75}']
    procedure SetNotic(aNotic:INotic); stdcall;
  end;
  
  IDebug = interface
  ['{5BBE0BBE-CBE7-4A35-88C5-8A951160BF6B}