Stéphane Wierzbicki

This looks really interresting! Any ETA ?

Hello, Could someone help me? I'm searching some Delphi code to quicly help me implementing the SWIFT RT940 protocol. I've so far googled for it but I can't find anything in Pascal/Delphi language. Thanks in advance. Kind regards, Stéphane

I'm also facing issues with RDP and Delphi 12 (actionbar menus are messy). No problem at all with Delphi 11. Found this workaround. program xxxxx; uses Vcl.Forms, WinAPI.Windows, ....; {$R *.res} begin Application.SingleBufferingInRemoteSessions := GetSystemMetrics(SM_REMOTESESSION) = 0; Application.Initialize; Application.MainFormOnTaskbar := True; Application.Title := 'xxxxxxxxxxxxxxxx'; Application.CreateForm(Tformxxxx, formxxxx); Application.Run; end.

Oh, that's you, I heard that nobody is perfect 😉

Hi Kas Ob. I'm sorry, but this is clearly a defect/change on the VCL side. The very same application compiled with Delphi 11.3 is working as expected. When compiled with Delphi 12, menu is messed.

Hello, We have painting issues with Delphi 12 compiled application. When run from RDS, menu is not correctly painted (see attached gif). There is no issue when running from a user's desktop. Anyone know hof to fix this ? Kind regards, Stéphane RDS Painting issues.zip

Grep Insights Extended Grep Advanced Grep

How funny ! I'm working 100 meter from your office. Trust you will quickly find someone.

Is there any job description or direct link to it ?

I've asked ChatGPT. He proposed this: To authenticate with Microsoft 365 and send emails through Exchange Online, you can use the Microsoft Graph API to obtain an access token, and then include that access token in the HTTP headers when sending the email. Here's an example Delphi code that shows how to do this: delphi Copy code uses System.Net.URLClient, System.Net.HttpClient, System.Net.HttpClientComponent; procedure SendEmail; var AuthToken: string; Http: TNetHTTPClient; Request: TNetHTTPRequest; Response: IHTTPResponse; Body: TStringStream; begin // First, obtain an access token using the Microsoft Graph API. Http := TNetHTTPClient.Create(nil); try Body := TStringStream.Create('grant_type=client_credentials&client_id=<your_client_id>&client_secret=<your_client_secret>&scope=https://graph.microsoft.com/.default'); try Response := Http.Post('https://login.microsoftonline.com/<your_tenant_id>/oauth2/v2.0/token', Body, nil); try if Response.StatusCode = 200 then begin AuthToken := TJSONObject.ParseJSONValue(Response.ContentAsString).GetValue<string>('access_token'); end else begin // Handle error. Exit; end; finally Response := nil; end; finally Body.Free; end; finally Http.Free; end; // Now, send the email using the access token. Http := TNetHTTPClient.Create(nil); try Request := TNetHTTPRequest.Create(nil); try Request.Method := TNetHTTPRequest.TMethod.rmPOST; Request.URL := 'https://graph.microsoft.com/v1.0/me/sendMail'; Request.ContentType := 'application/json'; Request.CustomHeaders['Authorization'] := 'Bearer ' + AuthToken; Request.Source := TStringStream.Create('{ ' + '"message": {' + '"subject": "Test email",' + '"body": {' + '"contentType": "Text",' + '"content": "This is a test email."' + '},' + '"toRecipients": [{' + '"emailAddress": {' + '"address": "<recipient_email_address>"' + '}' + '}]' + '},' + '"saveToSentItems": "true"' + '}', TEncoding.UTF8); Response := Http.Execute(Request); try if Response.StatusCode <> 202 then begin // Handle error. end; finally Response := nil; end; finally Request.Free; end; finally Http.Free; end; end; Replace <your_client_id>, <your_client_secret>, <your_tenant_id>, and <recipient_email_address> with your own values. Note that you'll need to register an application in the Azure Portal and grant it the appropriate permissions to use the Microsoft Graph API

I guess that MS Technical support was wrong. There is several ways to send emails throught SMTP (you will need a licence). Have a look at this URL https://learn.microsoft.com/en-us/exchange/mail-flow-best-practices/how-to-set-up-a-multifunction-device-or-application-to-send-email-using-microsoft-365-or-office-365

Hi Ian, I guess it is Spanish, definitely not French. Why don't you get in touch with the developer and help him translating in English?

Hello, I'm facing the same issue, especially on win32 packages. Running Windows 11 22H2 + updated Borland .net v3 files (found here https://quality.embarcadero.com/browse/RSP-39519 ) I'm no more able to update any of my components. My environment is totally broken... I guess it is related to the last Windows 11 update...

That's also down for me!

Workaround available here: https://quality.embarcadero.com/browse/RSP-39519