| 24 |
|
{ Corporation. All Rights Reserved. } |
| 25 |
|
{ Contributor(s): Jeff Overcash } |
| 26 |
|
{ } |
| 27 |
+ |
{ IBX For Lazarus (Firebird Express) } |
| 28 |
+ |
{ Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk } |
| 29 |
+ |
{ Portions created by MWA Software are copyright McCallum Whyman } |
| 30 |
+ |
{ Associates Ltd 2011 } |
| 31 |
+ |
{ } |
| 32 |
|
{************************************************************************} |
| 33 |
|
|
| 34 |
|
{ |
| 35 |
|
InterBase Express provides component interfaces to |
| 36 |
|
functions introduced in InterBase 6.0. The Services |
| 37 |
< |
components (TIB*Service, TIBServerProperties) and |
| 33 |
< |
Install components (TIBInstall, TIBUninstall, TIBSetup) |
| 37 |
> |
components (TIB*Service, TIBServerProperties) |
| 38 |
|
function only if you have installed InterBase 6.0 or |
| 39 |
< |
later software |
| 39 |
> |
later software, including Firebird |
| 40 |
|
} |
| 41 |
|
|
| 42 |
|
unit IBServices; |
| 43 |
|
|
| 44 |
+ |
{$Mode Delphi} |
| 45 |
+ |
|
| 46 |
|
interface |
| 47 |
|
|
| 48 |
|
uses |
| 49 |
< |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| 49 |
> |
{$IFDEF WINDOWS } |
| 50 |
> |
Windows, |
| 51 |
> |
{$ELSE} |
| 52 |
> |
unix, |
| 53 |
> |
{$ENDIF} |
| 54 |
> |
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| 55 |
|
IBDialogs, IBHeader, IB, IBExternals; |
| 56 |
|
|
| 57 |
|
const |
| 511 |
|
implementation |
| 512 |
|
|
| 513 |
|
uses |
| 514 |
< |
IBIntf, IBSQLMonitor; |
| 514 |
> |
IBIntf , IBSQLMonitor, Math; |
| 515 |
|
|
| 516 |
|
{ TIBCustomService } |
| 517 |
|
|
| 645 |
|
FHandle := nil; |
| 646 |
|
FLoginPrompt := True; |
| 647 |
|
FTraceFlags := []; |
| 648 |
+ |
FOutputbuffer := nil; |
| 649 |
+ |
FProtocol := Local; |
| 650 |
|
end; |
| 651 |
|
|
| 652 |
|
destructor TIBCustomService.Destroy; |
| 659 |
|
FSPB := nil; |
| 660 |
|
FParams.Free; |
| 661 |
|
end; |
| 662 |
+ |
ReallocMem(FOutputBuffer, 0); |
| 663 |
|
inherited Destroy; |
| 664 |
|
end; |
| 665 |
|
|
| 735 |
|
if csReading in ComponentState then |
| 736 |
|
FStreamedActive := Value |
| 737 |
|
else |
| 738 |
< |
if Value then |
| 739 |
< |
Attach |
| 740 |
< |
else |
| 741 |
< |
Detach; |
| 738 |
> |
if Value <> Active then |
| 739 |
> |
if Value then |
| 740 |
> |
Attach |
| 741 |
> |
else |
| 742 |
> |
Detach; |
| 743 |
|
end; |
| 744 |
|
|
| 745 |
|
procedure TIBCustomService.SetBufferSize(const Value: Integer); |
| 1744 |
|
for i := 0 to High(FUserInfo) do |
| 1745 |
|
FUserInfo[i].Free; |
| 1746 |
|
FUserInfo := nil; |
| 1747 |
< |
inherited destroy; |
| 1747 |
> |
inherited Destroy; |
| 1748 |
|
end; |
| 1749 |
|
|
| 1750 |
|
procedure TIBSecurityService.FetchUserInfo; |
| 1810 |
|
|
| 1811 |
|
function TIBSecurityService.GetUserInfoCount: Integer; |
| 1812 |
|
begin |
| 1813 |
< |
Result := High(FUSerInfo); |
| 1813 |
> |
Result := Max(High(FUSerInfo),0); |
| 1814 |
|
end; |
| 1815 |
|
|
| 1816 |
|
procedure TIBSecurityService.AddUser; |
| 2058 |
|
destructor TDatabaseInfo.Destroy; |
| 2059 |
|
begin |
| 2060 |
|
DbName := nil; |
| 2061 |
< |
inherited; |
| 2061 |
> |
inherited Destroy; |
| 2062 |
|
end; |
| 2063 |
|
|
| 2064 |
|
{ TLicenseInfo } |
| 2075 |
|
Key := nil; |
| 2076 |
|
Id := nil; |
| 2077 |
|
Desc := nil; |
| 2078 |
< |
inherited; |
| 2078 |
> |
inherited Destroy; |
| 2079 |
|
end; |
| 2080 |
|
|
| 2081 |
|
{ TConfigFileData } |
| 2090 |
|
begin |
| 2091 |
|
ConfigFileValue := nil; |
| 2092 |
|
ConfigFileKey := nil; |
| 2093 |
< |
inherited; |
| 2093 |
> |
inherited Destroy; |
| 2094 |
|
end; |
| 2095 |
|
|
| 2096 |
|
{ TConfigParams } |
| 2105 |
|
begin |
| 2106 |
|
ConfigFileData.Free; |
| 2107 |
|
ConfigFileParams := nil; |
| 2108 |
< |
inherited; |
| 2108 |
> |
inherited Destroy; |
| 2109 |
|
end; |
| 2110 |
|
|
| 2111 |
|
end. |
