soapserverintf.pas

来自「delphi6 programming example」· PAS 代码 · 共 23 行

unit SoapServerIntf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, SoapConn, Grids, DBGrids, StdCtrls,
  Rio, SoapHTTPClient, Midas, InvokeRegistry;

type
  ISoapTestDm = interface(IAppServer)
    ['{1F109687-6D8B-4F85-9BF5-EFFC87A9F10F}']
    function GetRecordCount: Integer;
  end;

implementation

initialization
  InvRegistry.RegisterInterface(TypeInfo(ISoapTestDm));

end.