Jump to content

Attila Kovacs

Members
  • Content Count

    1938
  • Joined

  • Last visited

  • Days Won

    25

Everything posted by Attila Kovacs

  1. Attila Kovacs

    Abnormal file size..

    Why is it important if it's a debug build? Debug information is big, which is linked to the executable.
  2. Attila Kovacs

    Single Instance of Dephi IDE?

    Not that you couldn't write an own launcher.....
  3. Attila Kovacs

    Issues with Fontscaling for HDPI in Delphi Berlin

    Ah, I see. Never encounter problems on parenting a form, but for sure, HDPI is still very buggy so I'm not wondering. Just go with your workaround. 😞
  4. Attila Kovacs

    Issues with Fontscaling for HDPI in Delphi Berlin

    Runtime created forms/frames (without dfm template) are not scaling in Berlin. Fixed somewhere in Tokyo/Rio.
  5. What is the simplest way to make the compiler/linker include a class and its RTTI into the executable when I have no references to the class in the code? ATM I have an "if" with a variable in the expression which always evaluates to false and in the begin-end block a "TxyClass.Create;". I don't really like this solution.
  6. Attila Kovacs

    TFDParam.Size - best practice?

    I would try this: Make the varchar(max) parameter to a type of ftMemo and load it from a stringstream: ss := TStringStream.Create(log); p.LoadFromStream(ss, ftMemo);
  7. Attila Kovacs

    Maintaining For loop(s)

    I would serialize the whole filtering, one by one, always returning with the matches and do the next filter (for loop) on the result. (If not already empty).
  8. Attila Kovacs

    FileExists(xxxxx) in a network?

    @Ian Branch Are you holding some infos back? How is a colon in your UNC path? Linux server? Does samba supports colon in UNC?
  9. Attila Kovacs

    Include unused class and its RTTI in the executable

    @Fritzew Good point, thank you. ClassInfo not, but for example ClassParent does the trick. This one is the simplest for now. And ClassParent() is also very tiny.
  10. Attila Kovacs

    Include unused class and its RTTI in the executable

    I've found {$STRONGLINKTYPES ON} and this: https://code.i-harness.com/en/q/281b33c Still curious if anyone has a different solution.
  11. Paramw := (DPI shl 16) + DPI; Form.Perform(WM_DPICHANGED, Paramw, @NewRect); Calculate the new pos and size for the window into NewRect. I've bound this to ctrl-mousewheel like browsers/excel zoom, with limited DPI possibilities (to still fit the form into the display). Step is 24 DPI. Works fine.
  12. Attila Kovacs

    IDE Fix pack for Rio

    You can still donate.
  13. Attila Kovacs

    Delphi Developers Archive (Experimental)

    @Lars Fosdal I see. It's gonna be a lot of work. One suggestion, maybe you could ignore the "Originally shared by,,," text and cite from the text below if possible. https://delphi-developers-archive.blogspot.com/search?q=originally+shared+by
  14. Attila Kovacs

    Delphi Developers Archive (Experimental)

    @Schokohase Kobra, übernehmen Sie. @Dave Nottage There was no titles on g+ why would he want to have a fake one on the takeout? For what reason? Half of the posts will get a "hi" like title, half of them will repeat the whole text. And it's lot of work for nothing. Tagging would make more sense.
  15. Attila Kovacs

    Delphi Developers Archive (Experimental)

    Looks great. Drop the titles.
  16. Attila Kovacs

    ISAPI in Delphi 10.2,10.3 TranslateURI

    @Dmitry Arefiev Thank you, this was fast, I've also edited to have the correct code here.
  17. Attila Kovacs

    ISAPI in Delphi 10.2,10.3 TranslateURI

    You should wipe your version from the net then it's vulnerable as you are not checking the length of the URI. Looks like somebody went to get a coffee at emba in the middle of the refactoring. The right code should be: function TISAPIRequest.TranslateURI(const URI: string): string; var Size: integer; LBytes: TBytes; begin LBytes := DefaultCharSetEncoding.GetBytes(URI); Size := Length(LBytes); SetLength(LBytes, 1024); LBytes[Min(Size, Length(LBytes) - 1)] := 0; // null terminator Size := Length(LBytes); if ECB.ServerSupportFunction(ECB.ConnID, HSE_REQ_MAP_URL_TO_PATH, LBytes, @Size, nil) then Result := DefaultCharSetEncoding.GetString(LBytes, 0, Size - 1); // Dmitry Arefiev Instead of last "Size" reference there should be "Size - 1" end; Can be easily put into an interposer hack/fake-class.
  18. Attila Kovacs

    ISAPI in Delphi 10.2,10.3 TranslateURI

    Do you have a QP #? What is the problem exactly?
  19. Attila Kovacs

    Google Map Component

    Btw. TomTom announced in September a free map API for mobile development.
  20. Attila Kovacs

    Google Map Component

    Actually, gmaps became affordable.
  21. Attila Kovacs

    [3D] Why do i need to use negative Y values to go UP?

    Some interesting reading regarding to your post. Why are bmps stored upside down? https://stackoverflow.com/questions/8346115/why-are-bmps-stored-upside-down Source: Charles Petzold, Programming for Windows 5th Edition, Chapter 15.
  22. Attila Kovacs

    Watch list, inaccessible value

    Double-click on the watch-list item and check "Allow side effects and function calls" or assign "self" to a local variable for debugging.
  23. Attila Kovacs

    Embarcadero DocWiki for Rio

    Ahhh, you mean "padding". Took me 10 min to figure out what your problem with the borders is.
  24. Attila Kovacs

    any suggestions on how to "lazy load" a BLOB/CLOB from Oracle DB?

    @David Schwartz You are shifting with every new comment away from your initial question. Why don't you contact your 3rd party vendor?
×