[ViewVC] Diff of: public/ibx/trunk/fbintf/client/FBServices.pas

Comparing ibx/trunk/fbintf/client/FBServices.pas (file contents):
Revision 314 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

+    function Query(Request: ISRB; RaiseExceptionOnError: boolean=true): IServiceQueryResults;  overload;
+  end;
-+
+ { TSPBItem }
-+
-+
+  TSPBItem = class(TParamBlockItem,ISPBItem)
-+
+  public
-+
+   function getParamTypeName: AnsiString; override;
-+
+   class function LookupParamTypeName(ParamType: byte): AnsiString;
-+
+  end;
-+
-+
+ { TSPB }
-+
-+
+  TSPB = class (TCustomParamBlock<TSPBItem,ISPBItem>, ISPB)
-+
+  protected
-+
+   function LookupItemType(ParamTypeName: AnsiString): byte; override;
-+
+  public
-+
+   constructor Create(api: TFBClientAPI);
-+
+   function GetDPBParamTypeName(ParamType: byte): Ansistring;
-+
+  end;
-+
+implementation
+uses FBMessages, IBUtils;
-+
+const
-+
+  SPBPrefix = 'isc_spb_';
-+
+  isc_spb_last_spb_constant = 13;
-+
+  SPBConstantNames: array[1..isc_spb_last_spb_constant] of String = (
-+
+    'user_name',
-+
+    'sys_user_name',
-+
+    'sys_user_name_enc',
-+
+    'password',
-+
+    'password_enc',
-+
+    'command_line',
-+
+    'db_name',
-+
+    'verbose',
-+
+    'options',
-+
+    'connect_timeout',
-+
+    'dummy_packet_interval',
-+
+    'sql_role_name',
-+
+    'expected_db'
-+
+  );
-+
-+
+  SPBConstantValues: array[1..isc_spb_last_spb_constant] of Integer = (
-+
+    isc_spb_user_name,
-+
+    isc_spb_sys_user_name,
-+
+    isc_spb_sys_user_name_enc,
-+
+    isc_spb_password,
-+
+    isc_spb_password_enc,
-+
+    isc_spb_command_line,
-+
+    isc_spb_dbname,
-+
+    isc_spb_verbose,
-+
+    isc_spb_options,
-+
+    isc_spb_connect_timeout,
-+
+    isc_spb_dummy_packet_interval,
-+
+    isc_spb_sql_role_name,
-+
+    isc_spb_expected_db
-+
+  );
-+
-+
+{ TSPBItem }
-+
-+
+function TSPBItem.getParamTypeName: AnsiString;
-+
+begin
-+
+    Result := LookupParamTypeName(getParamType);
-+
+end;
-+
-+
+class function TSPBItem.LookupParamTypeName(ParamType: byte): AnsiString;
-+
+var i: integer;
-+
+begin
-+
+  Result := '';
-+
+  for i := 1 to isc_spb_last_spb_constant do
-+
+    if SPBConstantValues [i] = ParamType then
-+
+    begin
-+
+      Result := SPBConstantNames[i];
-+
+      break;
-+
+    end;
-+
+end;
-+
+{ TFBServiceManager }
+procedure TFBServiceManager.CheckServerName;
+   Result := Query(nil,Request,RaiseExceptionOnError);
+end;
-+
+{ TSPB }
-+
-+
+function TSPB.LookupItemType(ParamTypeName: AnsiString): byte;
-+
+var i: integer;
-+
+begin
-+
+  Result := 0;
-+
+  ParamTypeName := LowerCase(ParamTypeName);
-+
+  if Pos(SPBPrefix,ParamTypeName) = 1 then
-+
+    system.Delete(ParamTypeName,1,Length(SPBPrefix));
-+
+  for i := 1 to isc_spb_last_spb_constant do
-+
+    if SPBConstantNames [i] = ParamTypeName then
-+
+    begin
-+
+      Result := SPBConstantValues[i];
-+
+      break;
-+
+    end;
-+
+end;
-+
-+
+constructor TSPB.Create(api: TFBClientAPI);
-+
+begin
-+
+  inherited Create(api);
-+
+  FDataLength := 2;
-+
+  FBuffer^ := isc_spb_version;
-+
+  (FBuffer+1)^ := isc_spb_current_version;
-+
+end;
-+
-+
+function TSPB.GetDPBParamTypeName(ParamType: byte): Ansistring;
-+
+begin
-+
+  Result := TSPBItem.LookupParamTypeName(ParamType);
-+
+end;
-+
+end.

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing ibx/trunk/fbintf/client/FBServices.pas (file contents): Revision 314 by tony, Thu Dec 6 15:55:01 2018 UTC vs. Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC

Diff Legend

Comparing ibx/trunk/fbintf/client/FBServices.pas (file contents):
Revision 314 by tony, Thu Dec 6 15:55:01 2018 UTC vs.
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC