Jump to content

Berocoder

Members
  • Content Count

    72
  • Joined

  • Last visited

  • Days Won

    1

Berocoder last won the day on July 28

Berocoder had the most liked content!

Community Reputation

14 Good

About Berocoder

  • Birthday 05/16/1965

Technical Information

  • Delphi-Version
    Delphi 10.4 Sydney

Recent Profile Visitors

2749 profile views
  1. Berocoder

    Are the jcl and jvcl libraries still alive?

    Bit late to comment this thread... Anyway I use Starteam from Borland in the past. It was slow and not reliable. 2013 the database was corrupted so our team has to change source control system. We choosed Git and Github as that seems to be standard even at that time. SmartGit was choosen as client as none of us want to spend time to learn git commandline. Yes there was some hick ups in the beginning because we didn't understand the concept. The common solution was to delete local source folder and clone a new one from Github. Now this never happen anymore. Git is great both for small one man size projects and for big projects maintained by a team. It is simple if you are the only one that change it as there can be no conflicts. And in case your computer start burning or something you have a backup on github. In a team conflicts can occur. Often git handle that fine but if 2 people make change in same file you have to merge changes manually.
  2. Berocoder

    12.2 Instability

    Eventlog show Faulting application name: bds.exe, version: 29.0.53571.9782, time stamp: 0x66d2e9f2 Faulting module name: AttracsComponentsXE12Athens.bpl_unloaded, version: 1.0.0.0, time stamp: 0x6731159b Exception code: 0xc000041d Fault offset: 0x0093958c Faulting process ID: 0x2b50 Faulting application start time: 0x01db33ad2fc10672 Faulting application path: C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\bds.exe Faulting module path: AttracsComponentsXE12Athens.bpl AttracsComponentsXE12Athens.bpl is an own custom package that contain both own components and commercial we bought with source. So in this case eventlog was actually useful.
  3. Berocoder

    12.2 Instability

    Thanks, will look at eventlog. But honestly Windows eventlog itself is cryptic. It has never shown any valuable information for me...
  4. Berocoder

    12.2 Instability

    I have a problem with stability in Delphi 12.2. IDE can just die without any error. The process BDS.exe is just gone and this can happen after some time like 10 to 30 minutes of working. Unfortunately my subscription ended previous month so I cannot download the latest from my.embarcadero.com but I have saved an older exe-file for installation. I can then use Getit to install the patch When installing I use the webinstaller and only install Delphi and Windows as target platform. Also Help, fonts and DUnit. Everything else is unchecked Version is now 29.0.53571.9782 Delphi 12 and C++ Builder 12 Update 2 RAD Studio 12.2 Patch 1 DevExpress 24.1.7 is also installed. I have tried reinstalled Delphi and Devexpress from scratch. I am stuck how to fix this I doubt BSD.exe itself is unstable. Host OS is Ubuntu 24.04 Delphi is running on Windows 10 Pro with KVM. This setup works fine with Delphi 11.3. So I just copied that to a new VM, uninstall 11.3 and installed 12.2. No other plugins are used for now.
  5. Berocoder

    Simulate blocking mode to send Email

    @Remy Lebeau thanks for the code with WaitForMultipleObjects. I might try that later πŸ˜€
  6. Berocoder

    Simulate blocking mode to send Email

    I find a solution now. I have not done much of thread-handling before Here are the modified code: function TATMail.SendCloudMail(const aReceiver, aReplyTo, aCc, aSubject, aBody, aAttachments: string; ACallBack: TEMailCallBack; out AErrorMessage: string): Boolean; var oOutLook: TOutlookEmail; begin oOutLook := TOutlookEmail.Create(aReceiver, aReplyTo, aCc, aSubject, aBody, aAttachments, ACallBack); if not Assigned(ACallBack) then begin // Simulate blocking while oOutLook.EventSignal.WaitFor(100) = wrTimeout do begin CheckSynchronize(50); end; AErrorMessage := oOutLook.fMessage; Result := oOutLook.fSuccess; end else Result := True; // Doesn't matter. None blocking code should never check result. end; I made 2 important changes 1. Call SetEvent in the event that is called by FNC mailcomponent after mail was sent. I somehow thought that this happen automatically. 2. In while loop compare with wrTimeOut instead of "<> wrSignaled". But when I think about it now maybe not so important...
  7. Normally a developer want to use async mode when send emails to make main thread more responsive. But I am in the situation to maintain an old ERP application. We use Delphi 11.3 for that. Currently it use 2 kind of email solutions. - SMTP. This contact an inhouse emailserver - SendGrid https://sendgrid.com There is now a request for a third email solution OutLook Azure from one big customer. So TMS FNC CloudPack component was bought. It was fairly easy to send emails once you get client id, secret etc correct. But the component only use asynchronous design which is correct from architecture point of view. The current code that use email method expect synchronous design. As long as emailing is working my current solution is ok. But there is no way to check and notify user in case of problem. It can be network or other reasons for error. To rewrite it require a major refactoring, that is also risky. So the most pragmatic solution would be to simulate blocking mode with FNC CloudPack if possible. So made 2 public methods in the mailing class. Send and SendWait. Send use asynchronous on places where it is possible and SendWait use synchronous. Current implementation function TATMail.SendCloudMail(const aReceiver, aReplyTo, aCc, aSubject, aBody, aAttachments: string; ACallBack: TEMailCallBack; out AErrorMessage: string): Boolean; var oOutLook: TOutlookEmail; begin oOutLook := TOutlookEmail.Create(aReceiver, aReplyTo, aCc, aSubject, aBody, aAttachments, ACallBack); if not Assigned(ACallBack) then begin while true do begin if oOutLook.Done then break; Application.ProcessMessages; end; TraceLog.Trace('After blocking'); AErrorMessage := oOutLook.fMessage; Result := oOutLook.fSuccess; end else Result := True; // Doesn't matter. None blocking code should never check result. end; I am aware that ProcessMessages is famous for cause random bugs and would prefer to no using it. I see that email component use CheckSynchronize to trigger the callback event. I tested while event.Waitfor(100) <> wrSignaled do begin CheckSynchronize(50); end; I asked similar thing on Stack overflow https://stackoverflow.com/questions/79094352/how-can-i-convert-code-to-synkron-in-delphi And @Dalija Prasnikar suggested that. But CheckSynchronize is supposed to run in the background thread not in main thread ? Could be some misunderstanding. Anyway it didn't work. So I search for a solution in main thread that cooperate well when backgroud thread is calling CheckSynchronize. There is also some code on pastebin https://pastebin.com/EXsf4ywP Only as illustration. It won't compile
  8. Berocoder

    Remove uses with interface

    Wrote a blog today how to use interfaces to remove uses in a unit. https://berocoder.blogspot.com/.../how-to-remove... Code for project https://github.com/bero/InterFaceWithGUI
  9. Hi I want to know if anyone actually can debug a Delphi console program reliable? My setup is latest Delphi 12.1 on a Window 10 running in KVM. Host is Ubuntu 24.04. Sometimes it works to singlestep source but most of the time IDE just freeze and I have to kill itπŸ™ I know 2 other developers with same experience as mine. I just don't understand how testing works at Embarcadero. This kinds of bugs must be catched before release! My report here https://embt.atlassian.net/servicedesk/customer/portal/1/RSS-1415
  10. Berocoder

    Sourcecode for BOLD published at GitHub

    I am a member of that team using Delphi 11.3 now if someone is interested to know more about BoldI can tell more 😊
  11. Berocoder

    Refactoring in Delphi

    Builtin Refactoring in Delphi is bad. I think we all agree that MMX Explorer works better. Have there ever been any talk with Embarcadero about use MMX Explorer instead? There is a link https://www.facebook.com/groups/137012246341854/permalink/7883294345046900/ that discuss replace builtin refactoring. Any license problems?
  12. Berocoder

    New ChatLLM application.

    Interesting, thanks for sharing!
  13. Berocoder

    Do you need an ARM64 compiler for Windows?

    I assume those Delphi developers that using a Mac M1, M2 or M3 would be happy if Embarcadero would recompile Delphi IDE and compiler to Windows ARM. What is the potential problem with that ?
  14. Berocoder

    SonarDelphi v1.0.0 released!

    Peganza and pascal expert is great products. I use them both in my daily work to ensure quality!
  15. Berocoder

    Use case or if else ?

    I would prefer alternative 2. But you are right that it is error prone on change as it is harder to read. And as David said using enum would be best choice. Currently alternative 1 is used so I think I leave it as is for now πŸ™‚
Γ—