--- ibx/trunk/fbintf/client/3.0/FB30Services.pas	2017/02/24 17:05:03	55
+++ ibx/trunk/fbintf/client/3.0/FB30Services.pas	2017/03/06 10:20:02	56
@@ -25,9 +25,12 @@
  *
 *)
 unit FB30Services;
+{$IFDEF MSWINDOWS} 
+{$DEFINE WINDOWS} 
+{$ENDIF}
 
 {$IFDEF FPC}
-{$mode objfpc}{$H+}
+{$mode delphi}
 {$interfaces COM}
 {$ENDIF}
 
@@ -46,7 +49,7 @@ type
     procedure CheckActive;
     procedure CheckInactive;
   protected
-    procedure InternalAttach(ConnectString: string); override;
+    procedure InternalAttach(ConnectString: AnsiString); override;
   public
     property ServiceIntf: Firebird.IService read FServiceIntf;
 
@@ -76,18 +79,18 @@ begin
     IBError(ibxeServiceInActive, [nil]);
 end;
 
-procedure TFB30ServiceManager.InternalAttach(ConnectString: String);
+procedure TFB30ServiceManager.InternalAttach(ConnectString: AnsiString);
 begin
   with Firebird30ClientAPI do
   if FSPB = nil then
   begin
-    FServiceIntf := ProviderIntf.attachServiceManager(StatusIntf, PChar(ConnectString), 0, nil);
+    FServiceIntf := ProviderIntf.attachServiceManager(StatusIntf, PAnsiChar(ConnectString), 0, nil);
     Check4DataBaseError;
   end
   else
   begin
     FServiceIntf := ProviderIntf.attachServiceManager(StatusIntf,
-                                               PChar(ConnectString),
+                                               PAnsiChar(ConnectString),
                                                (FSPB as TSPB).getDataLength,
                                                BytePtr((FSPB as TSPB).getBuffer));
     Check4DataBaseError;