Jump to content

Stéphane Wierzbicki

Members
  • Content Count

    231
  • Joined

  • Last visited

Community Reputation

45 Excellent

About Stéphane Wierzbicki

  • Birthday July 20

Technical Information

  • Delphi-Version
    Delphi 12 Athens

Recent Profile Visitors

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

  1. 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
  2. Stéphane Wierzbicki

    Delphi 12 VCL painting differs through RDP

    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.
  3. Stéphane Wierzbicki

    Delphi 12 is available

    Oh, that's you, I heard that nobody is perfect 😉
  4. Stéphane Wierzbicki

    Delphi 12 - Action Bar Menu painting issues with RDS

    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.
  5. Stéphane Wierzbicki

    Delphi 12 - Action Bar Menu painting issues with RDS

    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
  6. Stéphane Wierzbicki

    New Grep Expert in GExperts - need a name

    Grep Insights Extended Grep Advanced Grep
  7. How funny ! I'm working 100 meter from your office. Trust you will quickly find someone.
  8. Is there any job description or direct link to it ?
  9. 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
  10. 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
  11. Stéphane Wierzbicki

    English Version of GLibWMI??

    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?
  12. Stéphane Wierzbicki

    Delphi 11.2 Cannot Create and Install New Component

    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...
  13. Stéphane Wierzbicki

    Is Embarcadero's DocWiki down?

    That's also down for me!
  14. Stéphane Wierzbicki

    [MSBuild Error] The "BRCC32" task failed unexpectedly.

    Workaround available here: https://quality.embarcadero.com/browse/RSP-39519
  15. Stéphane Wierzbicki

    [MSBuild Error] The "BRCC32" task failed unexpectedly.

    https://quality.embarcadero.com/browse/RSP-39629
×