dataservintf.pas

这是一本关于delphi方面的书籍,其中有一些delphi的实例.

unit DataServIntf;

interface

type
  ICustomData = interface (IInvokable)
  ['{890B77BE-661E-4301-8A29-0B8274D27116}']
    function GetData: string; stdcall;
    function SendDelta (Delta: string): Boolean;
  end;

implementation

uses
  InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(ICustomData));

end.