Firebird Parallelbetrieb

[haentschman]

Hallöle...

ich habe es dann mal geschafft 2 Firebird Instanzen parallel laufen zu lassen. Hintergrund ist, daß die alte Anwendung unter 2.1 mit Zeos läuft und die neue mit 2.5 und IBDAC laufen soll.

Beide Server habe unterschiedliche Ports 2.1/3050 2.5/3025. Soweit so gut. Wenn ich es richtig verstanden habe wird ohne Angabe des Ports im Verbindungsstring der Port 3050, also 2.1 verwendet. (passende DLL im Programmverzeichnis logisch) Mit Angabe des Ports 3025 wird dann 2.5 (mit der passenden DLL) verwendet. Oder ?

Frage: wie kann ich kontrollieren daß die neue Anwendung mit dem 2.5er kommunizert ?

Tante E... auf die einfachste Sache kommt man erst wenn man geschrieben hat. Einfach die entsprechenden Dienste anhalten... try/error

oder gibt es noch andere Varianten ?

[DeddyH]

How to detect the server version?

[haentschman]

Danke... das hatte ich schon mal gelesen. Ist zu einfach.

Wenn wir schon dabei sind... wie bekommt man die ClientDLL Version raus ? Ich hatte schon mal gesucht, nix gefunden und aufgegeben...

[DeddyH]

Der ursprüngliche Code ist IIRC von tP, meinerseits nur modifiziert:

Delphi-Quellcode:

type
  TVersion = record
    dwHigh,
    dwLow: DWORD;
  end;

procedure GetFileVersion(const Filename: TFilename; out Version: TVersion);
var
  lpVerInfo: pointer;
  rVerValue: PVSFixedFileInfo;
  dwInfoSize: cardinal;
  dwValueSize: cardinal;
  dwDummy: cardinal;
  lpstrPath: pchar;
begin
  lpstrPath := PChar(Filename);
  dwInfoSize := GetFileVersionInfoSize(lpstrPath, dwDummy);
  if dwInfoSize = 0 then
    begin
      Version.dwHigh := 0;
      Version.dwLow := 0;
    end
  else
    begin
      GetMem(lpVerInfo, dwInfoSize);
      try
        GetFileVersionInfo(lpstrPath, 0, dwInfoSize, lpVerInfo);
        VerQueryValue(lpVerInfo, '\', pointer(rVerValue), dwValueSize);
        Version.dwHigh := rVerValue^.dwFileVersionMS;
        Version.dwLow := rVerValue^.dwFileVersionLS;
      finally
        FreeMem(lpVerInfo, dwInfoSize);
      end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Version: TVersion;
begin
  //hartkodierter Dateiname kommt vom Testen
  GetFileVersion('C:\Windows\System32\fbclient.dll', Version);
  ShowMessage(Format('%d.%d.%d.%d', [Version.dwHigh shr 16,
    Version.dwHigh and $0000FFFF, Version.dwLow shr 16, Version.dwLow and $0000FFFF]));
end;

[tsteinmaurer]

Eigentlich spricht nichts gegen den Einsatz der 2.5er Client-DLL gegen einen 2.1er Server.

[haentschman]

Danke für alle Info´s...

Zitat:

Eigentlich spricht nichts gegen den Einsatz der 2.5er Client-DLL gegen einen 2.1er Server.

...prinzipiell hast du Recht. Nur die eingesetzte Zeos Version kann maximal mit der 2.1.3 DLL mit der 2.1.4 DLL gibt es Fehler. Ich will aber in dem alten Projekt nix mehr ändern (neue Flöhe in den Pelz)

Nachtrag:

ich habe eben gemerkt, daß ich auch mit dem IBExpert mit der 2.1.4 ClientDLL keine Verbindung hinkriege. Mit der 2.1.3 geht das (Wenn ich in der Registrierung die DLL austausche)

Wieso kann die DLL nicht mit dem Server ? Sind doch von der gleichen Version / Installation

Fehler: Client Libary is missing or invalid