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 ?

How to detect the server version?

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

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

zusammenfalten · markieren

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;

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

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

Bitte nicht böse sein für den Push... ist mein erster

Aber es brennt eben unter den Nägeln. Diese Parallelität geht gar nicht...
firebird.log des 2.5 Auszug

Zitat:

FIRMA-SERVER Thu Jan 05 21:59:07 2012
XNET error: XNET server initialization failed. Probably another instance of server is already running.
operating system directive CreateMutex failed
Eine Datei kann nicht erstellt werden, wenn sie bereits vorhanden ist.


FIRMA-SERVER Thu Jan 05 21:59:57 2012
INET/inet_error: bind errno = 10048


FIRMA-SERVER Thu Jan 05 21:59:57 2012
Unable to complete network request to host "Firma-Server".
Error while listening for an incoming connection.


FIRMA-SERVER Thu Jan 05 22:06:46 2012
XNET error: XNET server initialization failed. Probably another instance of server is already running.
operating system directive CreateMutex failed
Eine Datei kann nicht erstellt werden, wenn sie bereits vorhanden ist.


FIRMA-SERVER Thu Jan 05 22:07:36 2012
INET/inet_error: bind errno = 10048


FIRMA-SERVER Thu Jan 05 22:07:36 2012
Unable to complete network request to host "Firma-Server".
Error while listening for an incoming connection.

Windows Firewall: Ports 3050 und 3025 offen. Auch deaktivieren brachte keine Änderung

Ich weiß mir nicht mehr zu helfen...

Danke für Infos...

Damit ein Parameter in firebird.conf Wirkung zeigt, mußt du natürlich das # entfernen. Danach den Firebird Server restarten, sofern du SuperServer einsetzt.

Vielen Dank...

Zitat:

Damit ein Parameter in firebird.conf Wirkung zeigt, mußt du natürlich das # entfernen.

... na super daß das in der Anleitung auch beschrieben ist.

Sooo... jetzt geht zumindest die Portkommunikation. Unterschied ist immer noch

Zitat:

Could not resolve service '' at port '3025'
Connection established to host 'FIRMA-SERVER',
on port 3025.

Zitat:

Found service 'GDS_DB' at port '3050'
Connection established to host 'FIRMA-SERVER',
on port 3050.

...beide Dienste gestartet (neu gestartet)

und das DLL Problem bleibt...

Naja, du mußt im Connect-String jetzt schon noch sagen, auf welche "Instanz" du dich verbinden möchtest. Das macht man durch die Angabe des Ports im Connect-String, zum Beispiel bei 3025 mit:

server/3025:c:\...