Jump to content

mvanrijnen

Members
  • Content Count

    494
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by mvanrijnen

  1. mvanrijnen

    In Case You Didn't Know

    My thoughts go to method injection 🙂
  2. Wich idiot (NOFI) wrote the getit manager? Feels like it's done by some intern? Slow search, Slow scroll, can not queue packages to install at once and go drink coffee. (sorry bad day 🙂 )
  3. mvanrijnen

    Large project does not start

    [badmorning mode] Yes the Delphi IDE performs at is best as: - You create all components manually - Do not use form/frame inherentance - Disable all code- and error insight features. - Use external compiler it's Embarcadero's believe that the IDE is best used as a luxury notepad. (but then you better use notepad++) 🙂 but hey, what else you gonna do with the few thousand dollars of the cost of Delphi 🙂 [/badmorning mode]
  4. Hi, i'm having a problem receiving mails with TIdSmtpServer from a specific client (it's a server enclosure, there the coolling alarm from) . Receive from all other kinds of clients works, (I use this in a service i call "ProtcolBridge", i can go - from simple smtp -> o365, gmail, etc - from ftp -> smtp - from smtp -> ftp i use this for "old" devices which have limited smtp and/or ftp support. ) This is a log of the chronical events of TidSmtpServer: 22-11-2020 00:56:46.587 [INFO ] - Connection from: 172.16.29.250:1498 [smtpReceiverConnect/MAIN] 22-11-2020 00:56:46.587 [INFO ] - Command Receieved from: 172.16.29.250:1498 | EHLO 172.16.29.250 [smtpReceiverBeforeCommandHandler/MAIN] 22-11-2020 00:56:46.587 [ERROR] - Reset [MAIN] 22-11-2020 00:56:46.587 [INFO ] - SPFcheck OK [smtpReceiverSPFCheck/MAIN] 22-11-2020 00:56:46.587 [INFO ] - Command Receieved from: 172.16.29.250:1498 | MAIL FROM:<address1@company.name> [smtpReceiverBeforeCommandHandler/MAIN] 22-11-2020 00:56:46.587 [INFO ] - SPFcheck OK [smtpReceiverSPFCheck/MAIN] 22-11-2020 00:56:46.587 [INFO ] - MailFrom: address1@company.name [smtpReceiverMailFrom/MAIN] 22-11-2020 00:56:46.602 [INFO ] - Command Receieved from: 172.16.29.250:1498 | RCPT TO:<meldingen@company.name> [smtpReceiverBeforeCommandHandler/MAIN] 22-11-2020 00:56:46.602 [INFO ] - RCPTTO: meldingen@company.name [smtpReceiverRcptTo/MAIN] 22-11-2020 00:56:46.602 [INFO ] - Command Receieved from: 172.16.29.250:1498 | BDAT 350 [smtpReceiverBeforeCommandHandler/MAIN] 22-11-2020 00:56:46.602 [INFO ] - BeforeMessage [MAIN] 22-11-2020 00:56:51.149 [INFO ] - Command Receieved from: 172.16.29.250:1498 | QUIT [smtpReceiverBeforeCommandHandler/MAIN] 22-11-2020 00:56:51.149 [ERROR] - Reset [MAIN] 22-11-2020 00:56:51.149 [INFO ] - Disconnected from: 172.16.29.250:1498 [smtpReceiverDisconnect/MAIN] The message received never fires ?? here's an example of a client which works: 22-11-2020 00:32:22.513 [INFO ] - RCPTTO: meldingen@company.name [smtpReceiverRcptTo/MAIN] 22-11-2020 00:32:22.513 [INFO ] - Command Receieved from: 192.168.1.15:50656 | DATA [smtpReceiverBeforeCommandHandler/MAIN] 22-11-2020 00:32:22.513 [INFO ] - BeforeMessage [MAIN] 22-11-2020 00:32:22.856 [INFO ] - Connected with smtp.office365.com:587 [SMTP_TO_SMTP:smtp.ict@company] 22-11-2020 00:32:23.356 [INFO ] - StartReceive. [MAIN] 22-11-2020 00:32:23.356 [ERROR] - 1 [MAIN] 22-11-2020 00:32:23.356 [INFO ] - Incoming message (sender: address1@company.name), subject: Healthy System - no action required (SN:00C0FF289B0F) for meldingen@company.name, on 192.168.1.18:25, from 192.168.1.15:50656 [MAIN] 22-11-2020 00:32:23.356 [INFO ] - EndReceive. [MAIN] 22-11-2020 00:32:23.356 [ERROR] - Reset [MAIN] 22-11-2020 00:32:23.356 [INFO ] - Command Receieved from: 192.168.1.15:50656 | QUIT [smtpReceiverBeforeCommandHandler/MAIN] 22-11-2020 00:32:23.356 [ERROR] - Reset [MAIN] 22-11-2020 00:32:23.356 [INFO ] - Disconnected from: 192.168.1.15:50656 [smtpReceiverDisconnect/MAIN] 22-11-2020 00:32:23.700 [INFO ] - Message for file e:\Data\Hesi\ProtoBridge\SMTP\smtp.ict@company\smtp.ict@company_20201122003222231.eml, send. [SMTP_TO_SMTP:smtp.ict@company] 22-11-2020 00:32:26.216 [INFO ] - Connected with smtp.office365.com:587 [SMTP_TO_SMTP:smtp.ict@company] 22-11-2020 00:32:27.169 [INFO ] - Message for file e:\Data\Hesi\ProtoBridge\SMTP\smtp.ict@company\smtp.ict@company_20201122003223356.eml, send. [SMTP_TO_SMTP:smtp.ict@company]
  5. mvanrijnen

    TIDSmptServer does not receive mail from certain client [Fixed]

    Things work now. Some how two version in two different folders where placed on the server by the sysadmin. So a few weeks ago i update the wrong folder and wrong config. I'v had added the possibility to enable/disable SMTP AllowPipelining property. For completion the logs with the BDAT sequence. INDY Intercept: 172.16.29.250:1545 Stat Connected. 172.16.29.250:1545 Sent 11/25/2020 10:36:58 AM: 220 Welcom to the ProtocolBridge<EOL> 172.16.29.250:1545 Recv 11/25/2020 10:36:58 AM: EHLO 172.16.29.250<EOL> 172.16.29.250:1545 Sent 11/25/2020 10:36:58 AM: 250-Hello 172.16.29.250<EOL>250-AUTH LOGIN<EOL>250-ENHANCEDSTATUSCODES<EOL>250-PIPELINING<EOL>250-SIZE 0<EOL>250-CHUNKING<EOL>250-8BITMIME<EOL>250 BINARYMIME<EOL> 172.16.29.250:1545 Recv 11/25/2020 10:36:58 AM: MAIL FROM:<company@company.eu><EOL> 172.16.29.250:1545 Sent 11/25/2020 10:36:58 AM: 250 2.1.0 company@company.eu Address Okay<EOL> 172.16.29.250:1545 Recv 11/25/2020 10:36:58 AM: RCPT TO:<meldingengroep@company.eu><EOL> 172.16.29.250:1545 Sent 11/25/2020 10:36:58 AM: 250 2.1.5 meldingengroep@company.eu Address Okay<EOL> 172.16.29.250:1545 Recv 11/25/2020 10:36:58 AM: BDAT 355<EOL>Sender: company@company.eu<EOL>From: company@company.eu<EOL>To: meldingengroep@company.eu<EOL>Reply-To: <EOL>Date: Wed Nov 25 10:32:49 2020 +0000<EOL>Message-Id: <1606300369.99074@company.eu><EOL>Subject: Rittal CMC-TC: company (172.16.29.250), myplace<EOL>Message(s) from Rittal CMC-TC<EOL>-----------------------------<EOL>Name: company (IP: 172.16.29.250)<EOL>Location: myplace<EOL>Contact: xxx xxxx <EOL><EOL>BDAT 141<EOL>Message of 25.11.2020, 10:32:04<EOL>Blussing[02|01], Service/Blocked: Alarm <EOL><EOL><EOL>http://172.16.29.250<EOL><EOL>-- Do not reply to this E-Mail!! --<EOL>BDAT 0 LAST<EOL> 172.16.29.250:1545 Sent 11/25/2020 10:37:02 AM: 250 Ok<EOL> 172.16.29.250:1545 Sent 11/25/2020 10:37:02 AM: 250 Ok<EOL> 172.16.29.250:1545 Sent 11/25/2020 10:37:02 AM: 250 Ok<EOL> 172.16.29.250:1545 Recv 11/25/2020 10:37:02 AM: QUIT<EOL> 172.16.29.250:1545 Sent 11/25/2020 10:37:02 AM: 221 Signing Off<EOL> 172.16.29.250:1545 Stat Disconnected. 0.0.0.0:0 Stat Disconnected. ServicesLog: 25-11-2020 10:36:32.184 [INFO ] - Connection from: 172.16.29.250:1544 [smtpReceiverConnect/MAIN] 25-11-2020 10:36:32.184 [INFO ] - Command Recieved from: 172.16.29.250:1544 | EHLO 172.16.29.250 [smtpReceiverBeforeCommandHandler/MAIN] 25-11-2020 10:36:32.184 [ERROR] - Reset [MAIN] 25-11-2020 10:36:32.184 [INFO ] - SPFcheck OK [smtpReceiverSPFCheck/MAIN] 25-11-2020 10:36:32.184 [INFO ] - Command Recieved from: 172.16.29.250:1544 | MAIL FROM:<ict@company.eu> [smtpReceiverBeforeCommandHandler/MAIN] 25-11-2020 10:36:32.184 [INFO ] - SPFcheck OK [smtpReceiverSPFCheck/MAIN] 25-11-2020 10:36:32.184 [INFO ] - MailFrom: ict@company.eu [smtpReceiverMailFrom/MAIN] 25-11-2020 10:36:32.200 [INFO ] - Command Recieved from: 172.16.29.250:1544 | RCPT TO:<ict@company.eu> [smtpReceiverBeforeCommandHandler/MAIN] 25-11-2020 10:36:32.200 [INFO ] - RCPTTO: ict@company.eu [smtpReceiverRcptTo/MAIN] 25-11-2020 10:36:32.200 [INFO ] - Command Recieved from: 172.16.29.250:1544 | BDAT 344 [smtpReceiverBeforeCommandHandler/MAIN] 25-11-2020 10:36:32.200 [INFO ] - BeforeMessage [MAIN] 25-11-2020 10:36:36.731 [INFO ] - Command Recieved from: 172.16.29.250:1544 | BDAT 216 [smtpReceiverBeforeCommandHandler/MAIN] 25-11-2020 10:36:36.731 [INFO ] - Command Recieved from: 172.16.29.250:1544 | BDAT 0 LAST [smtpReceiverBeforeCommandHandler/MAIN] 25-11-2020 10:36:36.731 [INFO ] - StartReceive. [MAIN] 25-11-2020 10:36:36.731 [ERROR] - 1 [MAIN] 25-11-2020 10:36:36.731 [INFO ] - Incoming message (sender: ict@company.eu), subject: Rittal CMC-TC: company (172.16.29.250), myplace for ict@company.eu, on 172.16.29.4:25, from 172.16.29.250:1544 [MAIN] 25-11-2020 10:36:36.731 [INFO ] - EndReceive. [MAIN] 25-11-2020 10:36:36.731 [ERROR] - Reset [MAIN] 25-11-2020 10:36:36.764 [INFO ] - Command Recieved from: 172.16.29.250:1544 | QUIT [smtpReceiverBeforeCommandHandler/MAIN] 25-11-2020 10:36:36.764 [ERROR] - Reset [MAIN] 25-11-2020 10:36:36.764 [INFO ] - Disconnected from: 172.16.29.250:1544 [smtpReceiverDisconnect/MAIN] 25-11-2020 10:36:37.247 [INFO ] - Connected with smtp.office365.com:587 [SMTP_TO_SMTP:smtp.ict@company] 25-11-2020 10:36:37.950 [INFO ] - Message for file e:\Data\company\ProtoBridge\SMTP\smtp.ict@company\smtp.ict@company_20201125103636731.eml, send. [SMTP_TO_SMTP:smtp.ict@company]
  6. mvanrijnen

    auto-generated REST APIs?

    "Anyone on the client side with the credentials could run any kind of SQL statements, which may be pretty unsafe, like DROP TABLE or DROP DATABASE in the middle of a SELECT statement. Or it could access data from other customers." 100% agree 🙂 But for us it;s for "inner" use, and not directly sql statements, there are different parameters from which sql statements are generated, filter, (and|or etc), sortby, fields. Thereby for us it's select only, not update/insert/delete. it's more like an excercise for playing with rest
  7. mvanrijnen

    auto-generated REST APIs?

    Just written our own tool for this. We already have the DB layout in specific tables, with extra attributes, used for generating std forms, lists etc. Now busy with a experiment to acces tables with REST, also publish the table data & info with radserver (internal use only!). Generating now all the radserver resources for schema's (collection of tables for us), tables etc. Mostly just for getting the hang of radserver etc. (developing a a 1990 years environment here) But i agree that you should not expose your tables like this for the "public" or for what application whatever, my colleague likes to use tables for client apps (not through general api's though). I think api's should expose usable information blocks or usable application blocks, not simple table CRUD actions etc.
  8. mvanrijnen

    ANN: Sempare Template Engine for Delphi

    Was looking for something like this. Created myself a few half working "engines" (just for own needs), Hopefully can replace those with one good one 🙂
  9. mvanrijnen

    Having fun with Delphi

    Good idea with the pointer, you do have to encode somevalues in the stringbuilder (escape special chars etc) maybe with an TInterfaced (no need to free) THSURI2 = class(TInterfacedObject) private FScheme: THSURIScheme; FFragment: string; FQuery: string; FPort: Integer; FPassword: string; FHost: string; FUserName: string; FPath : string; function GetAsString: string; constructor Scheme(const AScheme : THSURIScheme); public constructor HTTP; constructor HTTPS; .... TMP2 := THSURI2.HTTPS .UserName('yourname') .Password('andpassword') .Host('www.website.com') .Port(1234) .Path('chapter') .Path('subchapter') .Path('subsubchaper') .Parameter('showall') .Parameter('yearstart', '1990') .Fragment('startreadinghere'); test := TMP2.AsString;
  10. mvanrijnen

    Having fun with Delphi

    Ok, did not know that. So have to be carefull where and how to use this. Would not be wise to use it in highperf code sections, but There where you set up connection strings, sql statements, urls etc, why not use it ?
  11. mvanrijnen

    Having fun with Delphi

    Something like: tmp := THSUri.HTTPS .UserName('yourname') .Password('andpassword') .Host('www.website.com') .Port(1234) .Path('chapter') .Path('subchapter') .Path('subsubchaper') .Parameter('showall') .Parameter('yearstart', '1990') .Fragment('startreadinghere'); tmp.AsString Reults in: 'https://yourname:andpassword@www.website.com:1234/chapter/subchapter/subsubchaper?showall&yearstart=1990#startreadinghere' I'm using the scheme (HTTP, HTTPS) as the record constructor/initializer. .... public class function Scheme(const AScheme : THSURIScheme) : THSUri; static; class function HTTP : THSURI; static; class function HTTPS : THSURI; static; ..... implementation class function THSURI.Scheme(const AScheme: THSURIScheme): THSUri; begin // some needed and needless inits. Result.FScheme := AScheme; Result.FPort := 0; Result.FHost := string.Empty; Result.FUserName := string.Empty; Result.FPassword := string.Empty; Result.FPath := string.Empty; Result.FQuery := string.Empty; Result.FFragment := string.Empty; end; class function THSURI.HTTP: THSURI; begin Result := THSURI.Scheme(usHTTP); end; class function THSURI.HTTPS: THSURI; begin Result := THSURI.Scheme(usHTTPS); end;
  12. mvanrijnen

    FireDAC and pooling random error

    "a specific part of the program" is a thread (amongst other parts) in your case, misunderstood your sentence there 🙂
  13. mvanrijnen

    FireDAC and pooling random error

    That is tricky, you should not do that, maybe the underlaying physicaldb class takes care of you for this, but with most db types, you must not practise this. (i can not forbid you todo 🙂 ). See this: http://docwiki.embarcadero.com/RADStudio/Rio/en/Multithreading_(FireDAC) I have some troubles with a new project too, with MT and FD, probably some (yet) unidentified loading from a thread in a datamodule which is purely running mainthread.
  14. mvanrijnen

    More performance Stringgrid sorting algorithm help

    1st You constantly assign the strings of the stringlist, do you do this within a beginupdate/endupdate ? 2nd Not want to be too harsh, but looks not good to be a final solution that code.
  15. Hello, maybe someone can help me out with the following problem, serverside resource See following code, i post a request for updating something, serverside can not find body? this is what the post request, posts to the server (captured with fiddler): POST http://pc-pcname:8080/appointments/21140 HTTP/1.1 Connection: Keep-Alive Content-Type: application/json Accept: application/json, text/plain; q=0.9, text/html;q=0.8, Accept-Charset: utf-8, *;q=0.8 User-Agent: Embarcadero RESTClient/1.0 Content-Length: 435 Host: pc-ict1:8080 application/json{"ID":21140,"Description":"blah blah blah" "UpdateState":0} Server Side: procedure TAppoinmentResource.PostAppointment(const AContext: TEndpointContext; const ARequest: TEndpointRequest; const AResponse: TEndpointResponse); var jsonobj : TJSONObject; begin if ARequest.Body.TryGetObject(jsonobj) then begin // do something with the jsonobject end; end; Client Side procedure TPlannerRestClient.UpdateAppointment(const AAppointment: TPlannerAPIAppointment); var request : TRESTRequest; jsonstring : string; jsonobject : TJSONObject; begin request := NewRequest(resAppointment, TRESTRequestMethod.rmPOST); try request.ResourceSuffix := AAppointment.ID.ToString; // todo fix serialization TgoBsonSerializer.Serialize(AAppointment, jsonstring); jsonobject := TJSONObject.ParseJSONValue(jsonstring) as TJSONObject; request.ClearBody; request.AddBody(jsonobject); request.Execute; finally jsonobject.Free request.Free; end; end; Somebody a hint what i'm doing wrong?
  16. mvanrijnen

    TEndpointRequest, can not get body (json)

    Problem solved itself after restarting Delphi and clear all dcu's from the build. strange but true.
  17. maybe this is usable: https://blog.grijjy.com/2018/02/28/javascripting-with-duktape-for-delphi/ (those guys write pretty good code)
  18. Look out with the TZipFile class, there is a bug which causes empty zips when it gets too large (or you insert very big files) i posted a bug a few years ago. (i go search if it's fixed) can not find it, but problem is that it did execute normally without raising an exception, but you end(ed) up with an empty zip file.
  19. So, where does this leave us? EMB did not test D10.4 on Vmware/HyperV guests? Or they did and just decided to bother us with this ?
  20. mvanrijnen

    Are we just "Cash Cows"?

    for a fact my first official programming classes where in COBOL 🙂 very long time ago.
  21. mvanrijnen

    Are we just "Cash Cows"?

    Not read the whole thread, but this is my opinion. Delphi comes to me as a product for which you pay full price (a lot more then VisualStudio), with less capabilities/tooling, but the most painfull, it seems/looks like it is being developed as a opensource project with some projectmanagers and a varying dev team. They really should sit on their customers seat for a while and get a new perspective on how to go forward with Delphi. It's a wonderful language with enough possibilities, would be a shame if we would have to go look around for another dev platform if quality does not improve. At the moment it;s not future proof.
  22. Hey guys, Installed D10.4 in a HyperV guest (Win10Pro, 16GBmem, 4 procs). We notice very slow Options dialogs now, takes more then 10seconds to open the Delphi->Tools->Options dialog, also the project options dialogs are very slow? More people with these complaints? Someone with a hint to better performance?
  23. mvanrijnen

    Why does GetIt require Delphi to restart so often?

    Sometimes, it seems that with GetIt you just start an installer, and the rest is the same as if you downloaded the installer outside delphi. For this i think they need to restart Delphi, because otherwise adjustments in Paths etc will not be recognized in the running instance of delphi?
  24. mvanrijnen

    Analyze interbase slow queries

    Something whats bothering me a few months now, Is there anybody who knows how to best analyze your application for slow (eg non-indexed or wrong indexed queries), with most databases you can set some switches and they will be logged. With interbase i never found something like that, yes you can output some lowlevel data with firedac but it does not give a (fast) usable result. Anybody some tips, or some tooling for his?
  25. mvanrijnen

    Analyze interbase slow queries

    Yes i know that one already, but thats realtime, not exactly what i'm looking for., thnx though.
×