ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/fbintf/client/3.0/FB30Services.pas
(Generate patch)

Comparing ibx/trunk/fbintf/client/3.0/FB30Services.pas (file contents):
Revision 55 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 56 by tony, Mon Mar 6 10:20:02 2017 UTC

# Line 25 | Line 25
25   *
26   *)
27   unit FB30Services;
28 + {$IFDEF MSWINDOWS}
29 + {$DEFINE WINDOWS}
30 + {$ENDIF}
31  
32   {$IFDEF FPC}
33 < {$mode objfpc}{$H+}
33 > {$mode delphi}
34   {$interfaces COM}
35   {$ENDIF}
36  
# Line 46 | Line 49 | type
49      procedure CheckActive;
50      procedure CheckInactive;
51    protected
52 <    procedure InternalAttach(ConnectString: string); override;
52 >    procedure InternalAttach(ConnectString: AnsiString); override;
53    public
54      property ServiceIntf: Firebird.IService read FServiceIntf;
55  
# Line 76 | Line 79 | begin
79      IBError(ibxeServiceInActive, [nil]);
80   end;
81  
82 < procedure TFB30ServiceManager.InternalAttach(ConnectString: String);
82 > procedure TFB30ServiceManager.InternalAttach(ConnectString: AnsiString);
83   begin
84    with Firebird30ClientAPI do
85    if FSPB = nil then
86    begin
87 <    FServiceIntf := ProviderIntf.attachServiceManager(StatusIntf, PChar(ConnectString), 0, nil);
87 >    FServiceIntf := ProviderIntf.attachServiceManager(StatusIntf, PAnsiChar(ConnectString), 0, nil);
88      Check4DataBaseError;
89    end
90    else
91    begin
92      FServiceIntf := ProviderIntf.attachServiceManager(StatusIntf,
93 <                                               PChar(ConnectString),
93 >                                               PAnsiChar(ConnectString),
94                                                 (FSPB as TSPB).getDataLength,
95                                                 BytePtr((FSPB as TSPB).getBuffer));
96      Check4DataBaseError;

Diff Legend

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