关于delphi中appservice的使用方法，以及用途。

[寂小魔]

unit AppServiceTest;

interface
uses
  AppBean, SysUtils, Variants;
type
  TAppServiceTest = class(TAppBean)
  Public
    function Execute(const Param: OleVariant; var Data: OleVariant): Boolean; override;
  end;

implementation

{ TAppServiceTest }

function TAppServiceTest.Execute(const Param: OleVariant;
  var Data: OleVariant): Boolean;
var
  Cuscode, CusName: String;
begin
  Cuscode := VarToStr(Param[0]);
  CusName := VarToStr(Param[1]);
  if Cuscode = '' then
  begin
    Data := '客户代码不能空！';
    Result := False;
  end;
  if CusName = '' then
  begin
    Data := '客户简称不能为空！';
    Result := False;
  end;
  if (Cuscode <> '') and (CusName <> '') then
  begin
    Data := VarArrayOf([Length(Cuscode) + Length(CusName), '输入正确！']);
    Result := True;
  end;
end;

[寂小魔]

上面是后台，
这里是前台
procedure TFrmCorp1.BtnCheckAppClick(Sender: TObject);
var
app: TAppService;
isize: Integer;
imessage: String;
begin
app := TAppService.Create(Self);
try
app.Service := 'TAppServiceTest';
app.Param := VarArrayOf([Self.cdsCusSup.FieldByName('Code_').AsString,
Self.cdsCusSup.FieldByName('ShortName_').AsString]);
if app.Execute then
begin
isize := app.Data[0];
imessage := app.Data[1];
ShowMessage(IntToStr(isize) + ' , ' + imessage);
end
else
ShowMessage(app.Messages);
finally
app.Free;
end;
end;

除了这样还有其他用法没有？ 我的意思是有没有其他用途

[寂小魔]

都没人回帖的？ 内心无比纠结。

[寂小魔]

delphi 真的不行了吗、？ 好吧，来个人拿分吧 ， 实在伤心呀，
别告诉我拿分的人都没有