Jump to content

Mark-

Members
  • Content Count

    201
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Mark-

  1. Mark-

    JSON text validation...

    Thanks, it is not. I have 10.4 but use 10.2. I think I have 10.4 installed on a VM somewhere.
  2. Mark-

    JSON text validation...

    There is not an overloaded version that accepts two boolean values in 10.2. I do see the online help does list one for 11.2 I wonder which version it was added.
  3. Mark-

    JSON text validation...

    I found TJSONObject.ParseJSONValue and tried it. With invalid JSON text it just returns a nil result as expected, no exception is generated, with Delphi 10.2. There are no exceptions set to ignore in "language exceptions" that are related to JSON. Any ideas?
  4. Mark-

    JSON text validation...

    Right, I should have said "block" or "terminator" based.
  5. Mark-

    JSON text validation...

    I thought testing would be line based, but what do I know. The one site I toyed with the most is https://jsononline.net/json-validator. For the above example results: "Error: Parse error on line 2: { "foo": "bar, quz deg} ---------^ Expecting 'STRING', 'NUMBER', 'NULL', 'TRUE', 'FALSE', '{', '[', got 'undefined' "
  6. Mark-

    JSON text validation...

    Thanks I read the "README" and did not see how I could pass some JSON text and then get any errors reported. Did I miss something?
  7. Mark-

    Getters & Settters??

    Depends on when you create an instance of TFoo. Unless I am missing something.
  8. Mark-

    Delphi License Registration

    I want winning lottery numbers. Next.
  9. Mark-

    K-Software

    I switched to SSL.com years ago, for code signing certificates. Verification process was OK. Good prices.
  10. Mark-

    madExcept on win64

    I would post on http://forum.madshi.net/. The creator normally answers without much delay.
  11. Mark-

    Where is the error in Parallel.for?

    Never used it so SWAG, two parameters?
  12. Mark-

    Time Between

    Yes, which is: Result := Frac(AValue);
  13. Mark-

    Time Between

    I wondered that also. Time and Now put the same value in MyTime, according to the debugger inspector. I "thought" the compiler would remove the date porition of Now because MyTime is TTime not TDateTime. But if I turn off the "Visualizer" in the watch properties and look at MyTime (Now) as a float it is 44689.4217036343. And MyTime (Time) as a float it is 0.422856287... So for me, use Time and for safety "Frac" the result of "dm.SettingBACKUPHOUR.AsDateTime;" BackUpStart := Frac(dm.SettingBACKUPHOUR.AsDateTime);
  14. Mark-

    Time Between

    If you set the time values, per the code I used, the "if" does work. Which leads back to "BackUpStart := dm.SettingBACKUPHOUR.AsDateTime; // which is 20:30". If you replace it with: BackUpStart := EncodeTime(20,30,0,0); // which is 20:30 "if" does work. Right? Back to "BackUpStart := dm.SettingBACKUPHOUR.AsDateTime;". Later; I am wondering if the debugger inspector knows it is defined as TTime and truncates the date portion for display. Not sure that is possible. If you change BackUpStart to TDateTime, does it display the same value in the debugger?
  15. Mark-

    Time Between

    OK, so what is the problem? Did you examine the value of "BackUpStart" in the debugger?
  16. Mark-

    Time Between

    Hello, If you made the code: MyTime := EncodeTime(20,45,0,0); BackUpStart := EncodeTime(20,30,0,0); // which is 20:30 BackUpEnd := BackUpStart + EncodeTime(0,30,0,0); // which is 21:00 The "if" works so something in the first three lines is amiss. I suspect "dm.SettingBACKUPHOUR.AsDateTime" is returning a full date AND time. TTime is a TDateTime. Remove the date portion if present. Good luck, Mark
  17. Hello, We and our customers have used many email servers/services to send notification emails. A customer wanted to use Outlook.com and was unable to send a test message. Normally we put the email address in the “RcptName” list and the person’s name in the “HdrTo” property. I investigated and found Outlook.com required the header “to” field must be or contain the email address. We used: RcptName.Add('example@123ABC.com') HdrTo:=’Bob’ With OutLook.com we had to use: RcptName.Add('example@123ABC.com') HdrTo:= 'example@123ABC.com' Or RcptName.Add('example@123ABC.com') HdrTo:= 'Bob <example@123ABC.com>' Anyone predict a problem using: “HdrTo:= Bob <example@123ABC.com>” with all servers/services? Thanks, Mark
  18. Hello, Thanks for the reply. >...it is normal for that to have friendly name and email address. Good, so I will make the change to send both in all instances. Cheers, Mark
  19. Mark-

    DelphiAWSSDK v0.3.0

    Has anyone used this code?
  20. Please publish the results, I am most interested.
  21. Are you planning any testing/bench marking to verify they are a better option?
  22. Mark-

    CPas - C for Delphi

    Thank you.
×