client/include/uloadlibrary.inc

procedure TFBClientAPI.LoadIBLibrary;

  function FindLibrary(LibNameList: string): TLibHandle;
  var LibNames: TStringList;
      i: integer;
  begin
    Result := NilHandle;
    LibNames := TStringList.Create;
    try
      LibNames.Delimiter := ':';
      LibNames.StrictDelimiter := true;
      LibNames.DelimitedText := LibNameList; {Split list on semi-colon}
      for i := 0 to LibNames.Count - 1 do
      begin
        Result := LoadLibrary(LibNames[i]);
        if Result <> NilHandle then
        begin
          FFBLibraryName := LibNames[i];
          Exit;
        end;
      end;
    finally
      LibNames.Free;
    end;
  end;

var LibName: string;
begin
  if IBLibrary <> NilHandle then Exit;

  LibName := GetOverrideLibName;
  if LibName = '' then
    LibName := GetFirebirdLibList;
  IBLibrary := FindLibrary(LibName);
  {$IFDEF DARWIN}
  if IBLibrary = NilHandle then
  begin
    {See http://paulbeachsblog.blogspot.co.uk/2008/03/where-is-libfbclientdylib-on-macosx.html
     Try loading direct from Firebird Framework}

    LibName := '/Library/Frameworks/Firebird.framework/Firebird';
    IBLibrary := LoadLibrary(LibName);
    if IBLibrary = NilHandle then
    begin
      LibName := '/Library/Frameworks/Firebird.framework/Libraries/libfbclient.dylib';
      IBLibrary := LoadLibrary(LibName);
    end;
    if IBLibrary <> NilHandle then
       FFBLibraryName := ExtractFileName(LibName);
  end
  {$ENDIF}
  FOwnsIBLibrary := IBLibrary <> NilHandle;
end;


Revision:	209
Committed:	Wed Mar 14 12:48:51 2018 UTC (6 years, 1 month ago) by tony
File size:	1484 byte(s)
Log Message:	Fixes Merged
#	User	Rev	Content
1	tony	45	procedure TFBClientAPI.LoadIBLibrary;
2
3			function FindLibrary(LibNameList: string): TLibHandle;
4			var LibNames: TStringList;
5			i: integer;
6			begin
7			Result := NilHandle;
8			LibNames := TStringList.Create;
9			try
10			LibNames.Delimiter := ':';
11			LibNames.StrictDelimiter := true;
12			LibNames.DelimitedText := LibNameList; {Split list on semi-colon}
13			for i := 0 to LibNames.Count - 1 do
14			begin
15			Result := LoadLibrary(LibNames[i]);
16			if Result <> NilHandle then
17			begin
18			FFBLibraryName := LibNames[i];
19			Exit;
20			end;
21			end;
22			finally
23			LibNames.Free;
24			end;
25			end;
26
27			var LibName: string;
28			begin
29			if IBLibrary <> NilHandle then Exit;
30
31			LibName := GetOverrideLibName;
32			if LibName = '' then
33			LibName := GetFirebirdLibList;
34			IBLibrary := FindLibrary(LibName);
35			{$IFDEF DARWIN}
36	tony	209	if IBLibrary = NilHandle then
37	tony	45	begin
38			{See http://paulbeachsblog.blogspot.co.uk/2008/03/where-is-libfbclientdylib-on-macosx.html
39			Try loading direct from Firebird Framework}
40
41			LibName := '/Library/Frameworks/Firebird.framework/Firebird';
42			IBLibrary := LoadLibrary(LibName);
43	tony	209	if IBLibrary = NilHandle then
44	tony	45	begin
45			LibName := '/Library/Frameworks/Firebird.framework/Libraries/libfbclient.dylib';
46			IBLibrary := LoadLibrary(LibName);
47			end;
48			if IBLibrary <> NilHandle then
49	tony	209	FFBLibraryName := ExtractFileName(LibName);
50	tony	45	end
51			{$ENDIF}
52			FOwnsIBLibrary := IBLibrary <> NilHandle;
53			end;
54
55
56
57