david
e4d0fcb01d
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@46 b6239004-a887-0f4b-9937-50029ccdca16
118 lines
3.5 KiB
ObjectPascal
118 lines
3.5 KiB
ObjectPascal
unit uROExtraEditors;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ RemObjects SDK Library - Delphi IDE Integration }
|
|
{ }
|
|
{ compiler: Delphi 5 and up }
|
|
{ platform: Win32 }
|
|
{ }
|
|
{ (c)opyright RemObjects Software. all rights reserved. }
|
|
{ }
|
|
{ Using this code requires a valid license of the RemObjects SDK }
|
|
{ which can be obtained at http://www.remobjects.com. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$IFNDEF MSWINDOWS}
|
|
{$I ../RemObjects.inc}
|
|
{$ELSE}
|
|
{$I ..\RemObjects.inc}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, uRODL,
|
|
{$IFDEF FPC}
|
|
PropEdits,ComponentEditors,
|
|
{$ELSE}
|
|
{$IFDEF DELPHI5}DsgnIntf, DMDesigner,{$ELSE}DesignIntf, DesignEditors,{$ENDIF}
|
|
{$ENDIF}
|
|
uRODynamicRequest;
|
|
|
|
type
|
|
{ TRODynRequestServiceNameProperty }
|
|
TRODynRequestServiceNameProperty = class(TStringProperty)
|
|
public
|
|
function GetAttributes: TPropertyAttributes; override;
|
|
procedure GetValues(Proc: TGetStrProc); override;
|
|
end;
|
|
|
|
{ TRODynRequestOperationNameProperty }
|
|
TRODynRequestOperationNameProperty = class(TStringProperty)
|
|
public
|
|
function GetAttributes: TPropertyAttributes; override;
|
|
procedure GetValues(Proc: TGetStrProc); override;
|
|
end;
|
|
|
|
{ TRODynamicRequestEditor }
|
|
TRODynamicRequestEditor = class(TComponentEditor)
|
|
public
|
|
function GetVerbCount: Integer; override;
|
|
procedure ExecuteVerb(Index: Integer); override;
|
|
function GetVerb(Index: Integer): string; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils, Dialogs, uROClientIntf;
|
|
|
|
{ TRODynRequestServiceNameProperty }
|
|
|
|
function TRODynRequestServiceNameProperty.GetAttributes: TPropertyAttributes;
|
|
begin
|
|
result := [paValueList]
|
|
end;
|
|
|
|
procedure TRODynRequestServiceNameProperty.GetValues(Proc: TGetStrProc);
|
|
var dynreq : TRODynamicRequest;
|
|
i: Integer;
|
|
begin
|
|
dynreq := TRODynamicRequest(GetComponent(0));
|
|
for i := 0 to (dynreq.RODLLibrary.ServiceCount-1) do
|
|
Proc(dynreq.RODLLibrary.Services[i].Info.Name);
|
|
end;
|
|
|
|
{ TRODynRequestOperationNameProperty }
|
|
|
|
function TRODynRequestOperationNameProperty.GetAttributes: TPropertyAttributes;
|
|
begin
|
|
result := [paValueList]
|
|
end;
|
|
|
|
procedure TRODynRequestOperationNameProperty.GetValues(Proc: TGetStrProc);
|
|
var dynreq : TRODynamicRequest;
|
|
i: Integer;
|
|
svc : TRODLService;
|
|
begin
|
|
dynreq := TRODynamicRequest(GetComponent(0));
|
|
|
|
svc := TRODLService(dynreq.RODLLibrary.ItemByName(dynreq.RemoteService.ServiceName));
|
|
if (svc=NIL) then Exit;
|
|
|
|
for i := 0 to (svc.Default.Count-1) do
|
|
Proc(svc.Default.Items[i].Info.Name);
|
|
end;
|
|
|
|
{ TRODynamicRequestEditor }
|
|
|
|
procedure TRODynamicRequestEditor.ExecuteVerb(Index: Integer);
|
|
begin
|
|
with TRODynamicRequest(GetComponent).Params do begin
|
|
Refresh;
|
|
MessageDlg(Format('%d parameters have been created. ', [Count]), mtInformation, [mbOK], 0);
|
|
end;
|
|
end;
|
|
|
|
function TRODynamicRequestEditor.GetVerb(Index: Integer): string;
|
|
begin
|
|
result := 'Retrieve parameter list';
|
|
end;
|
|
|
|
function TRODynamicRequestEditor.GetVerbCount: Integer;
|
|
begin
|
|
result := 1
|
|
end;
|
|
|
|
end.
|