Jump to content

mvanrijnen

Members
  • Content Count

    489
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by mvanrijnen

  1. thats not good, having a problem with a RAD server package, which i would like to debug, gonna be a problem this week. Maybe the right time to say goodbye to RADserver and transfer the code to MARS (the Rest Server, not the planet) @Marco CantuWhats the status of this problem?
  2. Is this fixed in D12.2 ? Would nice to know before i spent 2 days updating the dev environment .
  3. Hi folks, We have a new developer at out team, he got C# & Python at his study, and has to learn Delphi now to be productive in our team πŸ™‚ What sites you recommend to start out with Delphi, we have him now looking to Learn Delphi, and the links mentioned there.
  4. So unusable πŸ™‚ Thats the EMB way, big mouth, big blogs, moving fancy blog posts, but not complete components or working IDE (i also hacked a few of the Rest.BackEnd.* units because they do not complete support all properties of the TRestRequest etc)
  5. mvanrijnen

    What happened to OmniThreadLibrary.com

    Omnithreadlibrary.com down? Check here and read user reports (downforeveryoneorjustme.com)
  6. Which service are you trying to reach? Cause (long time ago for me) i think that it depends on the server settings if a ClientCert is needed. See for examplle "IdServerIOHandlerSSLOpenSSL1.SSLOptions.Mode :" property. Could be that this also has to be set in the client
  7. At what point you are stuck? You can use the "TRestClient.OnNeedClientCertificate" event, simple example code: We check the certificate name, which has to begin with a certain value (stored in the CNST_CERT_PREFIX constant), and of course it has to be a valid certificate. (i believe you need the client certificate installed in "user" context, not sure about that, long time ago i was busy with this). procedure TMyProgram.DoOnClientCertificateNeeded(const Sender: TObject; const ARequest: TURLRequest; const ACertificateList: TCertificateList; var AnIndex: Integer); var idx : integer; begin if CNST_CERT_PREFIX.IsEmpty then raise Exception.Create('[TMyProgram.DoOnClientCertificateNeeded] CNST_CERT_PREFIX is empty.'); for idx := 0 to ACertificateList.Count - 1 do begin if ACertificateList[idx].CertName.StartsWith(CNST_CERT_PREFIX) then begin if (ACertificateList[idx].Start<=Now) and (ACertificateList[idx].Expiry>Now) then begin AnIndex := idx; break; end else raise Exception.Create('[TMyProgram.DoOnClientCertificateNeeded] Client Certificate Expired.'); end; end; end;
  8. mvanrijnen

    Upgarding from RAD Server 11 to RAD Server 12

    Just moving to D12 myself. in the EMSDevServer (development environment for RadServer), i do not get breakpoints in my code?
  9. mvanrijnen

    How to rearrange projects in projects group file?

    just drag and drop in the projects list of the group?
  10. mvanrijnen

    REST Web Service

    also check: GitHub - andrea-magni/MARS: MARS-Curiosity Delphi REST Library
  11. We have one application which since a few months gives problems on most of the workstation here. (not all, ofcourse not on the dev machines πŸ™‚ ) The application goes into high cpu constantly without doing anything (wanted). We noticed that this was causes by a thread which uses/started because TMethodImplementationIntercept so we fixed thats this method was not exported, then the troubles moved to __dbk_fcall_wrapper. It's only in one of the many applications we have here that this problem occurs, anyone any idea or direction we should search in?
  12. mvanrijnen

    indy https error 10061

    haha, you have stocks in that ? πŸ˜‰ (i still have to compare it to mitm)
  13. mvanrijnen

    Access multiple Outlook calendars

    if they are o365 accounts, you could take a look at the Microsoft Graph API instead. maybe worth instead of doing it the "old way".
  14. then he get's an AV, cause he's freeing the CustomButtons in his Clear method.
  15. i have a ini helpers for this ....
  16. mvanrijnen

    Delphi 12 is available

    But WHY πŸ™‚ The whole purpose of the CE licenses is to attract developers, not scare them away ?
  17. mvanrijnen

    Removing String

    double trouble πŸ™‚
  18. mvanrijnen

    Removing String

    and now try this ) with this ( text as it )() fill fail (sometimes) πŸ˜‰
  19. mvanrijnen

    Removing String

    Use this: System.SysUtils.TStringHelper.IndexOf - RAD Studio API Documentation (embarcadero.com) How to use the above to solve your problem is your job as a developer πŸ˜‰
  20. mvanrijnen

    Can not install Delphi Community Edition 11.2

    How do you get the CE version of 12 ? Delphi IDE for Native Apps: Community Edition - Embarcadero States its still 11.x ?
  21. mvanrijnen

    Delphi CE application accesses unknown IPs

    Ah see, little bit strange that a site as virustotal does not take this to consideration or report it with the found ip's.
  22. In D11.3, with search (ctrl-f and/or ctrl-shift-f), the checkbox for "Whole words only", goes randomly to checked state in my IDE. Somebody who knows why this is, and/or how to fix this ? (i want it not checked by default)
  23. mvanrijnen

    Delphi CE application accesses unknown IPs

    You can check this also with procmon: Process Monitor - Sysinternals | Microsoft Learn as said, i'm gonna check this now πŸ™‚ (private laptop i have CE installed, will do the same tomorrow with the Enterprise edition). procmon does not detect any network connectivity simple console app: (and just for fun i attached the ip trace from procmon, running bds-> start project1 -> close bds) Virustotal result: Link: VirusTotal - File - 956317d6f12af53a4c97db41807e9dd51fd37c30057607cecb969fc9214ccb99 Scanning: Bkav Pro W32.AIDetectMalware RisingTrojan.Generic@AI.100 (RDML:gihstO5MCnK0eVlOewg5Rw) SecureAgeMalicious VBA32 TScope.Trojan.Delf IP Traffic When executing the file being studied, it generated the following IP traffic. 192.229.211.108:80 (TCP) 20.99.184.37:443 (TCP) program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; begin try try Writeln; Writeln('This is just a test'); except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; finally Writeln; Write('press enter...'); Readln; end; end. bds ip trace.txt
  24. i'm out of idea, very strange that you get a statuscode 200, visible content in the proxy but not content in the delphi object.
Γ—