Jump to content

Mark-

Members
 View Profile  See their activity

  • Content Count

    303

  • Joined

  • Last visited

  • Days Won

    1

Posts posted by Mark-

  1. Posted

    7 minutes ago, aehimself said:

    What overloaded versions you have? Any with TJSONParseOptions will do.

    There are only two options in TJSONParseOptions,

    IsUTF8

    UseBool

     

    I found my 10.4 VM and will try to use the 10 JSON files with 10.2,

  2. Posted

    5 hours ago, Fr0sT.Brutal said:

    I suspect you'll have to modify some existing parser to achieve the goal. You can even write your own - JSON syntax isn't rocket science and you only need passthrough checker (no document structure).

    Thanks

  4. Posted · Edited by Mark-

    45 minutes ago, programmerdelphi2k said:

      TJSONObject.ParseJSONValue('JSON text', true,  true);

    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.

  5. Posted

    On 12/14/2022 at 12:57 PM, aehimself said:

    If you use System.JSON and parse with exceptions enabled, it'll tell you where an error is. However, it will only show the first error and not all, but at least it's a built-in option.

    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?

  7. Posted

    5 hours ago, Fr0sT.Brutal said:

    Okay how will you catch all errors here:

    {
     "foo": "bar,
     quz deg
    } 

    when parser will stop after ","?

    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' "

  11. Posted · Edited by Mark-

    Hello,

     

    I know there are several online JSON validation sites and I am seeking one or both of below.

     

    1.  Delphi code or DLL that can validate JSON text.

    2.  A website I can POST the text to validate and get the results.

     

    Any ideas?

     

    Thanks,

     

    Mark

     

     

  18. Posted · Edited by Mark-

    15 minutes ago, Uwe Raabe said:

    Probably because Now contains the date and the time, while EncodeTime uses an implicit date of 0. 

    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);

  19. Posted · Edited by Mark-

    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?

  21. Posted · Edited by Mark-

    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

     

  23. Posted · Edited by Mark-

    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

     

×