uessaysinfo.pas

Delphi开发webservice的一套例子

unit uEssaysInfo;

interface

uses
  InvokeRegistry, XSBuiltIns;

type
  TEssaysInfo = class(TRemotable)
  private
    FEssayID : Integer;
    FEssayTitle : WideString;
  published
    property EssayTitle : WideString read FEssayTitle write FEssayTitle;
    property EssayID : Integer read FEssayID write FEssayID;
  end;

  TEssaysInfos =   array of TEssaysInfo;

implementation

initialization
  RemClassRegistry.RegisterXSClass(TEssaysInfo, 'http://www.w3.org/2001/XMLSchema', 'TEssaysInfo', '',False );
  RemTypeRegistry.RegisterXSInfo(TypeInfo(TEssaysInfos), 'http://www.w3.org/2001/XMLSchema', 'TEssaysInfos');

finalization
  RemClassRegistry.UnRegisterXSClass(TEssaysInfo);
  RemTypeRegistry.UnRegisterXSInfo(TypeInfo(TEssaysInfos));
end.