Jump to content

Stéphane Wierzbicki

Members
  • Content Count

    231
  • Joined

  • Last visited

Everything posted by Stéphane Wierzbicki

  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-neon, any thought?

    I just found this Delphi Library. https://github.com/paolo-rossi/delphi-neon Did someone test it?
  3. 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
  4. 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.
  5. Stéphane Wierzbicki

    Delphi 12 is available

    Oh, that's you, I heard that nobody is perfect 😉
  6. 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.
  7. Stéphane Wierzbicki

    New Grep Expert in GExperts - need a name

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

    Is Embarcadero's DocWiki down?

    That's also down for me!
  15. Hello, I have a very odd issue with Delphi 11.2 (French Windows 11 22H2). I'm no more able to compile/build any Win64 project after compiling a Win64 "Python4Delphi" project (python version installed: 3.10.8) Here is the message I'm getting: I'm able to compile and run the project after restarting the IDE, but cannot build any other Win64 project (need to restart the IDE). This is really bizarre.
  16. Stéphane Wierzbicki

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

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

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

    https://quality.embarcadero.com/browse/RSP-39629
  18. Stéphane Wierzbicki

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

    Correct... but this doesn't answer my question 🙂
  19. Stéphane Wierzbicki

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

    I didn't found any relevant topic on the internet. Can someone help me on this?
  20. Stéphane Wierzbicki

    SFTP client

    Hello, Does Indy support SSH? I need to connect to an SFTP server. I don't need SFTP (FTP over SSH) as it is different than FTPS (FTP over SSL/TLS). If so, is there simple example available? If not, is there any free library available? Thank you!
  21. Stéphane Wierzbicki

    MSBuild error when switching platforms and try to compile

    Same problem here windows 11 22H2 and Delphi 11.2
  22. Stéphane Wierzbicki

    where is the error

    You should contact your DB Admin and ask him to grant you read (maybe write) access.
  23. Hello, Just to let you know. Each time I install a Delphi Update, I'm getting this error: Steps: Download new Delphi web installer Run Delphi web installer Installer ask uninstalling previous delphi version. Keep registry settings and proceed Installer uninstall delphi Installer display install option (which platform to install + add. options" When installer is over, you are invited to click the "Begin work" (or something similar) Installer is closing and running Delphi IDE Act: Exception is displayed Thanks
  24. Stéphane Wierzbicki

    Zint barcode studio zint.dll

    Would you mind sharing this with the community?
  25. Stéphane Wierzbicki

    Parnassus Bookmarks for Delphi 11 Alexandria?

    FWIW I haven't installed Bookmarks nor navigator plugins right now. I'll next week. If the same issue happens I will try to uninstall all experts, start Delphi and reinstall Bookmarks and navigator through Getit to see how it will behave. I'll keep informed.
×