Jump to content

gkobler

Members
  • Content Count

    154
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by gkobler

  1. gkobler

    Writing if statement in the Code Editor

    Sometimes scale settings more than 100% makes problems. Try it with 100%
  2. gkobler

    IDE freezing

    Does anyone have the same problem as me when selecting several components (visible as well as non-visible) on a form in the IDE. Either by Ctrl-clicking or just with the mouse and then pressing Ctrl-C, the CPU output of the BDE.exe task goes up and the IDE is blocked/freezing. You can then only end the task and have to restart the IDE. The problem has existed for some time, but since D11, D12 and D12.1 it happens more and more frequently.
  3. gkobler

    IDE freezing

    Have installed Parnassus Navigator, will try to deinstall them.
  4. gkobler

    IDE freezing

    this is what process explorer shows when the IDE hangs
  5. gkobler

    IDE freezing

    Good sugestion, will try it. You can wait for hours.. the IDE still hangs
  6. gkobler

    Delphi 12.1 is available

    After Install D12.1 it looks like ok, but all win64 path settings are lost 😞 Hade to reinstall my 3-party components
  7. gkobler

    wuppdi Welcome Page for Delphi 11 Alexandria?

    New version 1.0.5.B25 are available. At the moment just for D12
  8. gkobler

    wuppdi Welcome Page for Delphi 11 Alexandria?

    OK, I have also seen that the registry is updated immediately. I was of the opinion that this only happens when the IDE is closed. So I can insert a refresh button.
  9. gkobler

    wuppdi Welcome Page for Delphi 11 Alexandria?

    i told you there are some event from the ToolsAPI where i can update the list
  10. gkobler

    wuppdi Welcome Page for Delphi 11 Alexandria?

    But the registry is only updated/written when Delphi is closed, so you have no change while Delphi is running.
  11. gkobler

    wuppdi Welcome Page for Delphi 11 Alexandria?

    I don't really understand your question. Because when the IDE is started, the registry is read out, then every change is recorded via an event and updated in the rescent files. Therefore a refresh of the registry is not necessary.
  12. I have installed FB3 as a service. FB2.5, 4.0 and 5.0 are also installed, but i run these version not as a service it runs as program with different port configuration. So i can run different FB-Server versions at the same time. Port 3040: FB2.5 3050: FB3.0 (default) 3060: FB4.0 3070: FB5.0 The follow code runs PROCEDURE TForm1.Button3Click(Sender: TObject); VAR FDIBInfo: TFDIBInfo; AVersion: TIBInfo.TVersion; BEGIN FDPhysFBDriverLink1.VendorLib := 'D:\Temp\fbclient32_500.dll'; FDIBInfo := TFDIBInfo.Create(Self); FDIBInfo.Protocol:= ipLocal; FDIBInfo.DriverLink:= FDPhysFBDriverLink1; FDIBInfo.UserName:='SYSDBA'; FDIBInfo.Password:='masterkey'; FDIBInfo.Port:= 3070; FDIBInfo.GetVersion(AVersion); ShowMessage(AVersion.FServerStr); END; But it detects the wrong Server version, the result are allways the follow WI-V3.0.11.33703 Firebird 3.0 The code line FDIBInfo.Port:= 3070; has no influence on the execution. Is this possibly an error or is generally only the FB version of the installed Windows service queried? Are there a better way to detect the FB-Server version? I use Delphi 12.0.1
  13. In the meantime, I have come up with a solution. I have debugged something in the library. I found out that if the protocol is set to "ipLocal", the port is not taken into account. You have to change the protocol to "ipTCPIP" and set the host to "localhost", then it works. Follow the final code FUNCTION TfrmMain.GetFirebirdServerInfo: boolean; VAR FDIBInfo: TFDIBInfo; AVersion: TIBInfo.TVersion; AConfig: TIBInfo.TConfig; BEGIN Result := False; IF (teFirebirdInstallPath.Text = '') AND (teFirebirdVersion.Text = '') THEN BEGIN FDIBInfo := TFDIBInfo.Create(Self); TRY FDPhysFBDriverLink.VendorLib := teVendorLibrary.Text; FDIBInfo.Protocol := ipTCPIP; FDIBInfo.DriverLink := FDPhysFBDriverLink; FDIBInfo.Host := 'localhost'; FDIBInfo.Port := spePort.Value; FDIBInfo.UserName := teUsername.Text; FDIBInfo.Password := tePassword.Text; FDIBInfo.GetVersion(AVersion); teFirebirdVersion.Text := AVersion.FServerStr; FDIBInfo.UserName := teUsername.Text; FDIBInfo.Password := tePassword.Text; FDIBInfo.GetConfig(AConfig); teFirebirdInstallPath.Text := AConfig.FServerPath; Result := True; FINALLY FDIBInfo.Free; END; END ELSE BEGIN Result := True; END; END;
  14. I use the FB5 dll 32bit version. FDPhysFBDriverLink1.VendorLib := 'D:\Temp\fbclient32_500.dll'; FB3 would be the follow FDPhysFBDriverLink1.VendorLib := 'D:\Temp\fbclient32_311.dll'; I renamed the dll as follow FB3.0.11 32/64bit -> fbclient32_311.dll / fbclient64_311.dll FB4.0.4 32/64bit -> fbclient32_404.dll / fbclient64_404.dll FB5.0.0 32/64bit -> fbclient32_500.dll / fbclient64_500.dll
  15. Stupid... the other solution would basically work, but it doesn't pay attention to the port
  16. How can i use this without to connect to a specify database?
  17. Thanks for that hint. Have change it, now all version runs a service But unfortunately it still doesn't solve my problem
  18. A new version is available V1.6.0.166. This version now supports FB5 release candidat 1. Visit our Homepage and download the Trialversion: https://fbm.gksoft.ch
  19. gkobler

    Firebird - Monitor 2.5 / 3.0 / 4.0 / 5.0

    A new version is available V1.6.1.171. Support for FB5 and HDPI. Visit our Homepage and download the Trialversion: https://fbm.gksoft.ch
  20. Did you have a task called "adb.exe"? When yes kill it? I had the same problem in the past. Although I had only worked on one VCL project. I don't remember which Delphi version the problem occurred with.
  21. gkobler

    TFDUpdateSQL Problem

    I'm migration a project from FB4 to FB5, i use a TFDQuery and a TFDUpdateSQL component. My project runs without any problems. I have updated the database from FB4 to FB5 now. Now i got a problem, when i update a Field in my table. The follow exception are rises Im Projekt Project2.exe ist eine Exception der Klasse EFDDBEngineException mit der Meldung '[FireDAC][Phys][FB]-312. Genau update affected [0] Zeilen, [1] wurden angefordert' aufgetreten. and Im Projekt Project2.exe ist eine Exception der Klasse EFDException mit der Meldung '[FireDAC][DApt]-400. Update-Anweisung updated [0] anstelle von [1] Datensatz. Mögliche Ursachen: Aktualisierungstabelle hat keinen Primärschlüssel oder Zeilenbezeichner, Datensatz wurde von einem anderen Benutzer geändert/gelöscht' aufgetreten. The data field are not updated. When i now set the property UpdateOptions.CountUpdateRecords to False, i just got the first exception and the fiel are updated to the table. What can i do to avoid the exception? I think the problem should be in the TFDUpdateSQL Component, but something must be changed from FB4 to FB5? Thanks for any hint Gregor
  22. gkobler

    TFDUpdateSQL Problem

    it works for me. 🙂 Thanks a lot for your support!
  23. gkobler

    TFDUpdateSQL Problem

    @Dmitry Arefiev should i go via the support to get a fix earlyer? Or could you post some infos here to fix it? Quality Portal is read only at the moment and it‘s not an option for that.
  24. gkobler

    TFDUpdateSQL Problem

    Thanks for clarifying and investigating. Attached my smal demo project. Just start it and try to change a value at any field. Immediately when you try to post this chages, the exception are raising. Quality portal is still in read-only mode, so i can't report the bug. FireDac Sample.7z
  25. gkobler

    Interbase - unable to start service

    May do you have installed Firebird-Server at the same PC?
×