Jump to content

Ian Branch

Members
  • Content Count

    582
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Ian Branch

  1. Ian Branch

    Regex help please..

    Hi Team, Regex is one of those mysteries I have never fathomed. :-( I have the following code.. function ValidEmail(const EmailAddress: string): Boolean; const EMAIL_REGEX = '^((?>[a-zA-Z\d!#$%&''*+\-/=?^_`{|}~]+\x20*|"((?=[\x01-\x7f])' + '[^"\\]|\\[\x01-\x7f])*"\x20*)*(?<angle><))?((?!\.)' + '(?>\.?[a-zA-Z\d!#$%&''*+\-/=?^_`{|}~]+)+|"((?=[\x01-\x7f])' + '[^"\\]|\\[\x01-\x7f])*")@(((?!-)[a-zA-Z\d\-]+(?<!-)\.)+[a-zA-Z]' + '{2,}|\[(((?(?<!\[)\.)(25[0-5]|2[0-4]\d|[01]?\d?\d))' + '{4}|[a-zA-Z\d\-]*[a-zA-Z\d]:((?=[\x01-\x7f])[^\\\[\]]|\\' + '[\x01-\x7f])+)\])(?(angle)>)$'; begin Result := IsMatch(EmailAddress, EMAIL_REGEX); end; I don't recall exactly where I found it, apologies to the author, and it has served me well. It works well for single email address entries. How can it be modified so that it will parse multiple email addresses separated by a ';'? e.g. myemail@here.com;youremail@there.com.au With possible expansion to three or more email addresses in the future. I will be most grateful for any solution. Regards & TIA, Ian
  2. Ian Branch

    Regex help please..

    Hi Attila, Thank you for your contribution. Given that I have no idea about regex I can only wonder at what you have done. Regards, Ian
  3. Ian Branch

    Regex help please..

    Hi David, Doh!! This is where I face palm myself and berate myself for not thinking of that. 😞 Thank you for pointing out my inadequacy. 🙂 Regards & Tks again, Ian
  4. Ian Branch

    ANN: DDevExtensions is now on GitHub

    Hi Stefan, I just did an svn on DDevExtensions rev 18 and the D11 code didn't come with it. Do I have to do something else? Ian
  5. Ian Branch

    The state of GExperts Support for Delphi 11

    Enjoy your Vacation..
  6. Ian Branch

    Enabling One-Click in Delphi 11 Welcome Page

    Excellent! Perhaps an option for MMX?
  7. Ian Branch

    KSVC 7.0 rzCommon fatal error..

    Hi Team, Final release D11, KSVC via Getit. Trying to use the Raize components, when I go to build my App I get.. "[dcc32 Fatal Error] MainFrm.pas(48): F2051 Unit RzCommon was compiled with a different version of Vcl.Forms.TCustomForm" I'm going to take a guess that KSVC may have been built with a slightly earlier version of D11.. Anybody else seeing this? Note: I do have KSVC installed in by D10.4.2 via Getit, without any App build issues. Any thoughts/suggestions? Regards, Ian
  8. Ian Branch

    Issue with MMX 15.0.444.2474

    HI Team, D10.4.2, Win 11. When I installed the latest MMX I started to get the errors as indicated in the attached images. The errors occur if I just open Delphi and close it straight away. I swapped back to the previous version, 15.0.38.2440, and I don't get the errors. I then swapped back to the new mmx again and the error returned. Regards, Ian n.b. edbrun235.... is an ElevateDB bpl.
  9. Ian Branch

    Issue with MMX 15.0.444.2474

    FredS - Is your issue resolved??
  10. Ian Branch

    The state of GExperts Support for Delphi 11

    I took the dpi switch out and installed the latest and the Config dialog opening tab looks a lot better and is usable.. The General Tab needs a little more TLC. ;-) The IDE & Code Editor tabs seem a little squashed but are usable. Again, your efforts are very much appreciated. Regards, Ian
  11. Ian Branch

    Send a message to App users??

    Hi Team, I would like to embed something in my Delphi D10.4.2 32 bit Apps that would monitor something such that I could send a text message to them. e.g. Send a message, "Please log out of your application asap!", to 5 Users on 5 different workstations connected via LAN & RDP. The Apps would detect this message and pop up a message dialog to the User. Obviously it would need a sending mechanism as well. Thoughts, suggestions, examples, recommendations appreciated. Regards & TIA, Ian
  12. Ian Branch

    The state of GExperts Support for Delphi 11

    That fixed it.. But I view that as a stop-gap measure. 😉 Regards, Ian
  13. Ian Branch

    The state of GExperts Support for Delphi 11

    Where is this set/setting? I have the 96dpi set as you have. I have two 4k monitors, set exactly the same.
  14. Ian Branch

    Send a message to App users??

    Appreciate the concern. The usage model is that the originator will probably want one or more Users to exit their App(s). As the Apps check every 60 secs and the Originator's Generate App checks every 120 secs, then shortly after the generator App shows the message the Originator would exit, deleting the message file. Yes, if the User(s) are away from their PC there will be messages waiting for them when they get back. The practicality is that if they haven't exited in a timely manner their Boss will be on the Phone to them. 🙂 In general this has nothing to do with any Server action. It is purely for if/when an App update needs to be loaded. Ian
  15. Ian Branch

    The state of GExperts Support for Delphi 11

    I just built rev 3613 in D11. HTH. Regards, Ian
  16. Ian Branch

    The state of GExperts Support for Delphi 11

    The D11 .dll provided by Dave Nottage did the same thing. See the other thread. "r3588 and Alexandria." My monitor is a 27" I wonder if it is a combination of D11 & Windows 11 thing?? It is fine under D10.4.2 & Win 11. What are your D11 display/DPI settings? Ian
  17. Ian Branch

    Send a message to App users??

    Error Handling - Not worth it in this case. This may get used once a month, if that. It is intended to repeat every 60 secs as long as the message.txt lives. Exiting the message.txt creating App deletes the file. Try-Finally bloc - Yup, will do that. TFileStream - Will look at. Thank you for your input/suggestions. Ian
  18. Ian Branch

    Send a message to App users??

    Hi Team, My solution has been running all day, multiple Apps, multiple Users, no issues seen or reported. :-) I did a test message this morning and got a response from everybody. :-) Thank you all for your input. Regards, Ian
  19. Ian Branch

    Issue with MMX 15.0.444.2474

    FWIW my issue is still present in D10.4.2 in MMX 15.0.45.2476. With CnWizards v 1.2.0.1050 enabled I got an extra error.. This would seem to be a CnWizards issue. Disabling CnWizards in D10.4.2 eliminated the extra error but I still had my original errors. I also initially had an issue with MMX 15.0.45.2476 in D11 but if I disabled CnWizards v 1.2.0.1050 all was fine. Regards, Ian
  20. Ian Branch

    The state of GExperts Support for Delphi 11

    Hi Thomas, Win 11, D11, GE rev 3612. 4k monitor (3840 x 2160 - 150%) Understanding that it is still a work in progress, this is purely FYI. D2007 build fails with.. C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Borland.Delphi.Targets(113,3): error : D:\GExperts\source\ReplaceComponents\GX_ReplaceCompMapDets.pas(9) Fatal: F1026 File not found: 'System. Actions.dcu' D:\GExperts\source\ReplaceComponents\GX_ReplaceCompMapDets.pas(9) Fatal: F1026 File not found: 'System.Actions.dcu' Done building target "CoreCompile" in project "GExpertsDelphi2007.dproj" -- FAILED. Done building project "GExpertsDelphi2007.dproj" -- FAILED. Build FAILED. C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Borland.Delphi.Targets(113,3): error : D:\GExperts\source\ReplaceComponents\GX_ReplaceCompMapDets.pas(9) Fatal: F1026 File not found: 'System.Acti ons.dcu' 0 Warning(s) 1 Error(s) Time Elapsed 00:00:02.61 done building GExpertsDelphi2007.dproj D10.4.2 Builds and looks/runs fine. D11 builds with the following warning.. D:\GExperts\externalsource\abbrevia\AbDfEnc.pas(814): Hint warning H2077: Value assigned to 'Deflate' never used [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] 472479 lines, 2.78 seconds, 2980984 bytes code, 41188 bytes data. Done Building Project "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target(s)). Build succeeded. "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target) (1) -> (_PasCoreCompile target) -> D:\GExperts\externalsource\abbrevia\AbDfEnc.pas(814): Hint warning H2077: Value assigned to 'Deflate' never used [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] 1 Warning(s) 0 Error(s) Time Elapsed 00:00:03.96 done building GExpertsRS110.dproj Seems to run OK but looks terrible. Thank you for your commitment to this. Regards, Ian
  21. Ian Branch

    r3588 and Alexandria

    Purely FYI. Attempting to build rev 3598 this morning for D2007, D10.4.2 & D11 gives the following.. "D:\GExperts\source\framework\GX_BaseForm.pas(50): error E2003: Undeclared identifier: 'TemporarilyDisableHighDpi' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] D:\GExperts\source\framework\GX_About.pas(255): error F2063: Could not compile used unit 'GX_BaseForm.pas' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] Done Building Project "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target(s)) -- FAILED. Build FAILED. "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target) (1) -> (_PasCoreCompile target) -> D:\GExperts\source\framework\GX_BaseForm.pas(50): error E2003: Undeclared identifier: 'TemporarilyDisableHighDpi' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] D:\GExperts\source\framework\GX_About.pas(255): error F2063: Could not compile used unit 'GX_BaseForm.pas' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] 0 Warning(s) 2 Error(s)" Of course, Delphi references depend on the Delphi version. On a Win 11 PC. Regards, Ian
  22. Ian Branch

    Send a message to App users??

    Hi David, I ended up writing a little App to write a 'message.txt' file to the Apps root directory. It deletes it when I exit the App. I then added the following code in a TTimer event.. procedure TMainForm.MessageTimerTimer(Sender: TObject); var sPath, sMessage: string; fMessageFile: TextFile; begin // sPath := ExtractFileDir(ParamStr(0)) + '\Message.txt'; // if FileExists(sPath) then begin AssignFile(fMessageFile, sPath); Reset(fMessageFile); ReadLn(fMessageFile, sMessage); CloseFile(fMessageFile); // with TTaskDialog.Create(self) do try Caption := 'Operations Alert!'; Title := 'Urgent Action Notice!'; Text := sMessage; CommonButtons := [tcbOk]; Execute; finally Free; end; // end; // end; It fires every 60 seconds. I will see on Monday how it does or doesn't affect performance from the User's perspective. They are generally pretty quick to let me know. ;-) Regards, Ian
  23. Ian Branch

    Issue with MMX 15.0.444.2474

    Hi Fred, What are the chances our two issues are related....
  24. Ian Branch

    Issue with MMX 15.0.444.2474

    Hi Uwe, Yes, I am not sure how to assist in tracking it down. It is repeatable. I can't say if it happens in D11 yet as Elevate Software hasn't released their D11 versions yet. I have the latest MMX running fine in D11 ATT. If there is something I can do to assist, let me know pls. Regards, Ian
×