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 |
|
|
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 |
|
|
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; |