Jump to content

Vandrovnik

Members
 View Profile  See their activity

  • Content Count

    523

  • Joined

  • Last visited

  • Days Won

    6

Posts posted by Vandrovnik

  1. Posted · Edited by Vandrovnik

    13 minutes ago, Lars Fosdal said:

    That is not a Windows 10 problem. That is a Kyocera printer driver problem.  

    No, it was Windows problem (affecting Kyocera and a few others).

    https://www.windowslatest.com/2021/03/10/windows-10-kb5000802-march-update-is-crashing-pcs-with-bsod/

    https://www.kyoceradocumentsolutions.com/asia/en/about-us/press/20210317_news.html

  4. Posted

    28 minutes ago, David Heffernan said:

    They explicitly don't want to keep on supporting these old versions.

     

    Why? Emba have done all this intentionally.

    From my point of view, compatibility with old versions of Windows is one of important benefits of applications written in Delphi. If they broke this compatibility just because of GetTickCount64, they are throwing this benefit away needlessly.

  7. Posted · Edited by Vandrovnik

    2 minutes ago, Dany Marmur said:

    Please use ISO dates. I would have to do some research in order to know if you mean 2011-03-15 or 2015-03-11.

    I would have to do research even to know if the "/" is information enough or if i need to know your "locale".

    I just copies it from https://quality.embarcadero.com/browse/RSP-10506

    I suppose it was created in 2015, but I would believe in 2011, too 🙂

    • Haha 1

  9. Posted

    1 hour ago, Henry Olive said:

    Thank you Vandrovnik, eivind

     

    From an Excel Sheet i get column name ( for example F ) then i need

    to convert F to an integer number ( which is 6 )  so that i can import

    some datas from excel to my dataset.

     

    Str:=Edit1.Text; // Which is D
    Num := Ord(PChar(Str)) - Ord('A')+1;
    Edit2.Text := IntToStr(Num);
    I'm getting 37266172   instead of  4

      

    Num := Ord(Str[Low(Str)]) - Ord('A') + 1;

    Or, if you are sure your strings begin at offset 1: 

    Num := Ord(Str[1]) - Ord('A') + 1;

     

  10. Posted

    28 minutes ago, Henry Olive said:

    Thank you Lajos,

     

      if Edit1.Text ='A' then // (Edit1.Text =D) 
      Edit2.Text := '1' else
      Edit2.Text := IntToStr(ord(Edit1.Text) - ord('A')+1);
     Expecting 4 but getting  37266172

     

    with below code i get correct result

      ShowMessage(IntToStr(Ord('D') - Ord('A')+1));

     

    Edit1.Text is string, not char. Try Edit1.Text[1] (and do not forget to test length of the text first).

  11. Posted

    3 hours ago, Bill Meyer said:

    Many motherboards, such as the Ryzen mobo I am using, have a header for an installable TPM 2.0 module. And as it's only about 18 months old, I would not characterize it as a dinosaur.

     

    The note about dinosaurs was from linked https://blogs.embarcadero.com/windows-11-a-beautiful-meteor-will-wipe-out-the-dinosaurs/

    I hope there will be an easy way to install W11 without TPM (because my PC is dinosaur 🙂 ).

  13. Posted

    57 minutes ago, Remy Lebeau said:

    ... The one overload of GetBytes() that would actually let you output directly into your record without using TBytes is declared as 'strict protected', ...

    It sounds like a Muprhy's Law: the most useful methods are usualy declared as private.

    • Haha 1

  14. Posted

    I use OverlayBand for watermark (but I have it under other things).

    In current version of FastReport, images can use alpha channel and they are correctly alpha-blended; this works for PDF export if Image.Transparent is set to False and PDF export filter has Transparency set to True; for me, it does not work when I "print" the report to PdfCreator.

  18. Posted

    On 5/24/2021 at 9:48 PM, Attila Kovacs said:

    @Vandrovnik Thank you for pointing that out!

    There is another small one (missing "W"), which probably makes no problem now:

    in mwWide, original code: 

          FillChar(LMapiMessageW, SizeOf(LMapiMessage), 0);

    please change to 

          FillChar(LMapiMessageW, SizeOf(LMapiMessageW), 0);

     

  19. Posted

    On 3/20/2021 at 1:37 PM, Attila Kovacs said:

    Use it as you want if it works.

    I'd be happy if fixes/enhancements would come back to me! 😉

    forsix.MapiMail.pas

    Thank you for the unit!

     

    I have found a bug regarding attachments in mvAnsi mode (two times there should be TMapiFileDesc instead of TMapiFileDescW; ^ is missing in FillChar).

     

    Original code: 

          if LAttachCount > 0 then
      begin
        GetMem(LAttachments, SizeOf(TMapiFileDescW) * LAttachCount);
        FillChar(LAttachments, SizeOf(TMapiFileDescW) * LAttachCount, 0);

     

    Please change to: 

          if LAttachCount > 0 then
      begin
        GetMem(LAttachments, SizeOf(TMapiFileDesc) * LAttachCount);
        FillChar(LAttachments^, SizeOf(TMapiFileDesc) * LAttachCount, 0);

     

    I have also added a simple procedure SetMapiDll (on clients computers, GroupWise is installed and used. Outlook 2019, which is also installed, but not used, keeps overwriting the registry entry, so I will probably have to load directly C:\Program Files (x86)\Novell\GroupWise\gwmlt1.dll there). 

    procedure SetMapiDll(const AMapiDll: string);
 begin
 MAPIDLL:=aMapiDll;
end;

     

    • Like 1

  23. Posted · Edited by Vandrovnik

    31 minutes ago, Lajos Juhász said:

    Try https://en.wikipedia.org/wiki/Windows-1251 one character is undefined hex 98.

    https://en.wikipedia.org/wiki/Windows-1250 there 5 undefined characters.

     

    But even when I put #129 in txt file (Notepad, Alt+0129) and save it, it is saved as bytes C2 81. Notepad does not display there any character, but it is present (cursor "stays" there when using arrow on keyboard).

×