Jump to content

Vandrovnik

Members
  • Content Count

    521
  • Joined

  • Last visited

  • Days Won

    6

Everything posted by Vandrovnik

  1. Vandrovnik

    Interbase VAR Licence and Demos or Free Versions

    I have never tried, but it seems it should work, at least for FB 2.5 they explicitly write about embedded version: https://firebirdsql.org/en/firebird-2-5/
  2. Vandrovnik

    Interbase VAR Licence and Demos or Free Versions

    Could you use Firebird for the free version? With server, or even embedded, so there is no need to install it.
  3. No, it is just a forward declaration.
  4. Just put this to the top: type tDrawingObjectList = class;
  5. Vandrovnik

    SynEdit changed with Delphi upgrade ?

    If you have SynEdit from GetIt, then yes, you may get newer version of SynEdit after installing newer Delphi. SynHighlighterMulti.pas is on C:\Users\MyUserName\Documents\Embarcadero\Studio\22.0\CatalogRepository\SynEdit-2022.03-11\Source\Highlighters\SynHighlighterMulti.pas on my computer in Delphi 11.1.
  6. What if you create the datamodule using Synchronize?
  7. Vandrovnik

    FB-3 Get Connected Clients IP Numbers

    But the result contains addresses - just IPv6, not IPv4...
  8. Vandrovnik

    LDAP connection

    Yes, but I do not know its name.
  9. Vandrovnik

    LDAP connection

    It was my function. It takes a string in the form "cn=Valek,ou=OOOO,o=XXX" and divides it to Cn "cn=Valek" and Base "ou=OOOO,o=XXX" (I was dividing it using the first coma in the input string.)
  10. Vandrovnik

    LDAP connection

    function LdapGetAttribute(aUserFqdn: string; aAttrib: string): string; var Ldap: TLDAPSend; Attribs: tStringList; Cn, Base: string; begin result:=''; Ldap:=TLDAPSend.Create; try Ldap.UserName:=Config.LdapUser; Ldap.Password:=Config.LdapPassword; Ldap.TargetHost:=Config.LdapHost; Ldap.TargetPort:=Config.LdapPort; Ldap.AutoTLS:=true; if Ldap.Login then begin if Ldap.Bind then begin Attribs:=tStringList.Create; try Attribs.Add(aAttrib); RozdelLdap(aUserFqdn, Cn, Base); // cn=Valek,ou=OOOO,o=XXX -> cn=Valek + ou=OOOO,o=XXX Ldap.Search(Base, false, '('+Cn+')', Attribs); if (Ldap.SearchResult.Count>0)and(Ldap.SearchResult[0].Attributes.Count>0) then begin result:=Ldap.SearchResult[0].Attributes[0].Text; end; finally FreeAndNil(Attribs); end; end; end; finally FreeAndNil(Ldap); end; end;
  11. Vandrovnik

    LDAP connection

    Hello, many years ago, I have used something like this for Novell eDir: function LdapOverPrihlaseni(aUserName, aPassword: string): boolean; var Ldap: TLDAPSend; begin result:=false; if aPassword='' then exit; Ldap:=TLDAPSend.Create; try Ldap.UserName:=aUserName; Ldap.Password:=aPassword; Ldap.TargetHost:=Config.LdapHost; // 'novell.xxxxx.cz'; Ldap.TargetPort:=Config.LdapPort; // '389'; Ldap.AutoTLS:=true; if Ldap.Login then begin if Ldap.Bind then begin result:=true; end; end; finally FreeAndNil(Ldap); end; end; ldapsend.pas was part of Synapse.
  12. I do use it in Delphi application...
  13. I have found and used this, instead of the outdated (maybe it is not in D11.1?) version in Delphi: https://github.com/CMCHTPC/DelphiDX12 But I do not use TDirect2DCanvas.
  14. Vandrovnik

    Deploy without overwriting the DB?

    In Delphi 11, it is in C:\Program Files (x86)\Embarcadero\Studio\22.0\source\rtl\common\System.StartUpCopy.pas in my installation. Help and doc - ehm... Did not find them.
  15. Vandrovnik

    Parnassus Bookmarks for Delphi 11 Alexandria?

    Or use something like AutoHotkey and remap them to your favourite hotkeys...
  16. Yes. He could also try to use https://fontforge.org/ and create new font (based on the original one) with changed line spacing. Waiting for implementation of this feature in IDE could take ... ehm... some time 🙂
  17. Vandrovnik

    FB-3,09 Getting Avg Percent of an Invoice

    This will evaluate to zero: SELECT CAST (1/3 AS DOUBLE PRECISION) AS RESULT FROM rdb$database This will ealuate to 0.333333333333333333: SELECT CAST (1 AS DOUBLE PRECISION) / 3 AS RESULT FROM rdb$database But original question is about something else (probably windowing functions).
  18. Vandrovnik

    FB-3,09 Case & Cast

    I guess you have copied it without the SELECT...
  19. Vandrovnik

    FB-3,09 Case & Cast

    So there must be something different in your real SQL 🙂 What about: select cast(cast(10 as double precision) / 0.3048 * 14.7776 as NUMERIC (18,2)) from rdb$database a
  20. Vandrovnik

    FB-3,09 Case & Cast

    select cast((10.00000 / 0.3048) * 14.7776 as NUMERIC (18,2)) from rdb$database a It works for me. Without the cast, there is 13 decimal places, so only 5 places is left in front of the decimal point.
  21. In 64bit app, pointer is 64 bit - if PrinterInfo is a pointer, it should be casted to NativeUInt or something like that...
  22. Vandrovnik

    Several F2084 Internal Error on Delphi 10.4.2

    Maybe Emba could use remote debugging - I believe anybody with such a problem would allow Emba to do remote debugging on his/her computer.
  23. Vandrovnik

    Tstringgrid grid index out of bounds

    Can you prepare a small demo project and put it here for download?
  24. Hello, could you try to download .iso and install from it?
  25. Vandrovnik

    TImage (JPG) not scaling, but PNG and BMP DO ???

    It is possible to load a JPG image in original size, or 1/2, 1/4 or 1/8 of original size. Maybe it firsts loads it optimized in, for example, 1/4 of its original size, and later it does not have "pixels enough" to scale up?
×