umyessaysimpl.pas

Delphi开发webservice的一套例子

unit uMyEssaysImpl;

interface

uses
  SysUtils, Classes, InvokeRegistry, XSBuiltIns, uMyEssaysInf, uEssaysInfo,
  DB, HTTPProd, udmMyEssays, DBXpress;

type
  TMyEssays = class(TInvokableClass, IMyEssays)
  private
    procedure CreateDataModule;
    procedure FreeDataModule;
  public
    { IISAPITutorials }
    function GetEssayTitles: TEssaysInfos; stdcall;
    function GetEssayContent(const iID : Integer) : String; stdcall;
  end;

implementation

{ TISAPITutorials }

procedure TMyEssays.CreateDataModule;
begin
  dmMyEssays := TdmMyEssays.Create(nil);
end;

procedure TMyEssays.FreeDataModule;
begin
  if (Assigned(dmMyEssays)) then
  begin
    dmMyEssays.Free;
    dmMyEssays := nil;
  end;
end;

function TMyEssays.GetEssayContent(const iID: Integer): String;
begin
  Result := '<P>﹟ゼ龟