Jump to content

Stéphane Wierzbicki

Members
  • Content Count

    232
  • Joined

  • Last visited

Everything posted by Stéphane Wierzbicki

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

    PyScripter - Integration with LLM

    This looks really interresting! Any ETA ?
  4. Stéphane Wierzbicki

    Delphi-neon, any thought?

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

    Delphi 12 is available

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

    New Grep Expert in GExperts - need a name

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

    Is Embarcadero's DocWiki down?

    That's also down for me!
  16. 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.
  17. Stéphane Wierzbicki

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

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

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

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

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

    Correct... but this doesn't answer my question 🙂
  20. 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?
  21. 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!
  22. Stéphane Wierzbicki

    MSBuild error when switching platforms and try to compile

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

    where is the error

    You should contact your DB Admin and ask him to grant you read (maybe write) access.
  24. 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
  25. Stéphane Wierzbicki

    Zint barcode studio zint.dll

    Would you mind sharing this with the community?
×