Jump to content

JIMSMITH

Members
  • Content Count

    41
  • Joined

  • Last visited

Community Reputation

1 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Thanks for the information. An interesting read.
  2. Apologies. There are supposed to be commas. I have added. Thanks. I made manual changes to for illustration purposes and make my 1st mistake.
  3. Given the JSON object below. I want to update the value of a JSON Pair. Here are a few questions - 1) Is there a fast way to find the JSON details for fiddler@office365.com. Do I have to loop through the each of the 4 entries. and check the value. 2) I want to update the new_token value from "rice" to "beans". 3) How do I add a new pair after "current_token". - This is last because I can probably figure #3 it out for myself. Help is much appreciaded in advance. { "SPWORKDATA": { "DB_PARAMS": { "DriverID":"Oracle", "Port":"9060", "Monitorby":"", "MetaDefSchema":"False" }, "MAILCONFIGS": [ {"sole.heel@apple.com": { "clickid": "307663883943-8", "social": "weeklyreader", "account": "rick.flair@gmail.com", "new_token":"", "current_token":"1//0f1U7S6-TZ-_r6RtWc" } }, {"timmona@office365.com": { "clickid": "client_data2", "secret": "appsecret", "social": "timmon.ray@office365.com", "new_token":"scacral", "current_token":"refreshtoken" } }, {"bruce@office365.com": { "clickid": "client_data2", "secret": "appsecret", "social": "bruce.richards@office365.com", "new_token":"soapl", "current_token":"refreen" } }, {"fiddler@office365.com": { "clickid": "client_d89", "secret": "appsoul", "social": "karen.richards@office365.com", "new_token":"rice", "current_token":"old" } } ], "MEDIASERVER": { "Server": "192.162.2.185" }, "MSGSERVER": { "Server": "127.0.0.1", "Port":"55555" } }
  4. I am using Delphi 10.1 update2. When processing a json file I cannot find the containskey method with a TJSONObject? Is there a work around to the the equivalent check JSONObject.containskey('keyvalue') for this version of Delphi?
  5. JIMSMITH

    Reading a section of JSON

    Remy, I am using Delphi 10.1 Update 2. I was able to figure it out from the code that you provided plus prior work. So I am good at this point and thanks for your help.
  6. JIMSMITH

    Reading a section of JSON

    I am using Delphi 10.1 Update 2.
  7. I am tring to read a section of json containing an array below for the section titled MAILCONFIGS. There is an array that contains two pairs. I need to read the two JSON PAIRS and breakout the datapair within. Any help will be appreciated, and Thanks in advance. { "SPWORKDATA": { "DB_PARAMS": { "Pooled":"False", "DriverID":"Oracle", "Database":"iranums", "User_name":"rms", "Password":"trojan", "Server":"lilly.com", "Port":"5432", "Monitorby":"", "MetaDefSchema":"False" }, "MAILCONFIGS": [ {"mail1@gmail.com": { "client_id": "ClientID_Data1", "apptoken": "apptoken data1", "temptoken": "temporary token1" } }, {"mail2@gmail.com": { "client_id": "client_data2", "apptoken": "apptoken data2", "temptoken": "temporary token2" } } ], "MEDIASERVER": { "Server": "192.162.2.185" }, "MSGSERVER": { "Server": "127.0.0.1", "Port":"55555" } } }
  8. I want to print to an Evolis Pebble printer using Delphi Berlin. Has anyone done this before? Is this possible since I see C++, C#, Swift, Python, and Swift examples? I have not seen any examples writing to this printer using Delphi. TIA
  9. Has anybody here used the tzdb project to retrieve the gmt offset as in gmt -6 etc. as in gmt -X for America/Havana or any other example that you can think of? FYI tzdb is located at Code Examples · pavkam/tzdb Wiki · GitHub
  10. JIMSMITH

    Sending Email VIA Google.

    Here is the latest information. The referenced mail project does include a TidHTTPServer. The port was changed and it no longer worked. I have corrected this problem and it works. Truth is I did not know that Oauth 2.0 communication required all of these pieces. I wish there was a flow diagram. Thanks for all of your help education.
  11. JIMSMITH

    Sending Email VIA Google.

    Remy , The product has a datamodule with a idhttpserver on it. I might have broken this part of the implementation. This is new ground for me with additional complications beyond my daily scope and skill set. I am digging into it to figure this oauth 2.0 process out. All assistance/input has been greatly appreciated. I need one of you sharp gents on retainer.
  12. JIMSMITH

    Sending Email VIA Google.

    Do I find a http server on the web and install it? I will be checking for solutions in the meanwhile. The core of the app that I am testing is from Geoffrey Smith's GmailAuthsmtp demo. This entire oauth2 process is new to me and a little unclear. I think it has an http server component internally. Not sure if I broke it an it no longer works.
  13. JIMSMITH

    Sending Email VIA Google.

    Not sure why I end up with local. The application is in dev/test mode. I get to a web page that says google has not verified this app. Thanks for your help Google uses localhost for OAuth2 authentication during development to simplify the process of testing and debugging. When you're developing an application, you can use localhost as the redirect URI to avoid the complexities of setting up a public server for testing purposes. This allows developers to run and test their applications locally without exposing their credentials and tokens to the internet.
  14. For some reason I have to authorize my application through google to send email again. During the process I check the box indicates read, compuse, send email. I encounter an error indicated in the image below. The firewall has been turned off on this computer. Does anyone know how to resolve this error?
  15. JIMSMITH

    sending email with oauth2

    Thanks for responding to my post. Can you advise which example code should I place the creds and IdSMTP1 code into. FYI: The geoffsmith sample project prompts for user authentication. I can have that as this will execute as a back end process and not be visible to the ui. I just need to send an email
×