Ian Branch

Hi Guys, Just like to throw in a positive note. We seem quick to criticize but slow to recognize. !@#$%^& Yankee spelling.... I just updated from 10.3.1 to 10.3.2 using the web update and had absolutely no issues. Obviously some of the 3rd party libraries had to be updated also but all went smoothly. Regards, Ian

Hi Guys, This might be one of those personal preference things... Does anybody have any view on using the built in (Delphi Rio) memory manager v using FastMM4 or ScaleMM2? Or any other 3rd Party Delphi Memory manager for that matter? I use EurekaLog for error trapping so I don't need/use that functionality from FastMM4 per se. Thoughts, preferences. reasons? Regards, Ian

Hi Team, I want to give the User of an App the ability to click on a button or a menu selection that will cause the app to close and restart. Can this be done? Thoughts/suggestions appreciated. Regards & TIA, Ian

Hi Team, I have some SMTP email routines however I want to be able to check/confirm the ISPs smtp server is available before attempting to send the email. Thoughts/suggestions appreciated. Regards & TIA, Ian

Hi Team, Pulled up an old App renamed it and re-built it in D2007. I get the following Messages.. >> [DCC Error] E2161 Warning: Duplicate resource: Type 16 (VERSIONINFO), ID 1; File E:\DBiWorkflow D2007 Development\DBiManager\DBiManager.res resource kept; file E:\DBiWorkflow D2007 Development\DBiManager\verinfo.res resource discarded. >> [DCC Error] E2161 Warning: Duplicate resource: Type 24 (user-defined), ID 1; File E:\DBiWorkflow D2007 Development\DBiManager\DBiManager.res resource kept; file E:\DBiWorkflow D2007 Development\DBiManager\verinfo.res resource discarded. DBiWorkflow is the new name of the App. Never come across this before. What is the appropriate action to eliminate this warning pls? Where do I find reference to DBiWorkflow.res and verinfo.res in the project files? Is it any real concern? I note Delphi says after this that the "Project compilation failed" however it is actually there and runs as expected. Regards & TIA, Ian

Hi Team, Great minds..... I found it. It was in one of the source files. {$R verinfo.res} I took it out. Guess what? The file size jumped by about 500k. What the!!! Anyway, the duplicate warning is now gone. Regards, Ian

Thanks Peter, There is only a {$R *.res} in the project file so I guess it is coming from one of the 3rd Party libraries. It doesn't seem to affect the App at all although the 'Project compilation failed. message was disconcerting until I realized it was in fact built. Something to just put up with I guess. Regards & Tks again, Ian

Hi Team, I want to have the only the Minimize button border icon on the form but it seems I have to have the SystemMenu button on as well. :-( Is there any way to just have the minimize button and not the SystemMenu button? The form BorderStyle is bsSingle. Regards & TIA, Ian

Hi Schokohase, Thank you for the advice on the buttons. I was afraid of that. Philosophical discussion - On the aspect of 'User-friendly' - User-friendly is not what I or Microsoft say it is, it is what the User says it is. If he/she doesn't like the way it looks or the way it does it, it isn't user-friendly, to them. Yes, there tomes about the right way to do things however ultimately it is the User that decides. And ultimately they are the ones paying the Bills. 🙂 Regards, Ian

Hi Team, Perhaps I am looking at this from the wrong perspective. The primary issue is the Customers Internet access/availability. The Customers are based in the Pacific and their Internet/ISPs tend to be a little iffy. Yesterday, one of the Customer's Internet access was down for 3 hours. :-( I think instead of testing for the smtp server I will simply test for the ability to access the internet with something like this.. uses ...., wininet; Function CheckUrl(url: string): Boolean; var hSession, hfile, hRequest: hInternet; dwindex, dwcodelen: dword; dwcode: array [1 .. 20] of char; res: pchar; begin if pos('http://', lowercase(url)) = 0 then url := 'http://' + url; Result := False; hSession := InternetOpen('InetURL:/1.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); if assigned(hSession) then begin hfile := InternetOpenUrl(hSession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0); dwindex := 0; dwcodelen := 10; HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodelen, dwindex); res := pchar(@dwcode); Result := (res = '200') or (res = '302'); if assigned(hfile) then InternetCloseHandle(hfile); InternetCloseHandle(hSession); end; end; Just prior to the email creation. Regards, Ian

Trying to save the User the hassle of creating the email in the first place if the SMTP Server is not available.

OK. I Surrender. :-)

Are they really that flaky?

Hmmm. Yes, I could do that but I would rather test if the server is available when the App is started, not when I want to send an email.

Hi Tee, It does work well and I have integrated it into 3 Apps. I haven't checked it for memory leaks or anything under the hood. It does what I needed. As for publishing to GitHub, I'm afraid that's not in my knowledge base. :-( Regards, Ian

Hi Remy, Thank you for the clarifications and the assist. Much appreciated. Regards, Ian

Hi Team, D10.3.1. 32 bit. For reasons I don't understand my Apps have stopped responding to basic error. e.g. divide by 0 error. They just ignore them. They used to work. If I create a new App it responds OK but my existing apps don't. It is probably something I have changed but I can't discern what. Any advice/suggestions (polite :-) ) appreciated. Regards & TIA, Ian

Thanks Peter. Ian

Thanks Kruvich. I have it working now. What I have yet to find out is how/when it changed. :-( Attached are my current configurations. Regards & Tks for the pointers. Ian

timfrost I stand corrected.

Tks Remy, Works exactly as desired/needed. I had to change.. GetStartupInfo(@si); GetStartupInfo(si); No biggie. :-) Regards & Tks again. And to the others for your interest/support. Ian

Hi Remy, Thanks for that. I will give it a go. While trying to get the other routines I found going, I discovered the need to change Winapi.Windows to just Windows in the Uses area. I note your indication of just Windows in the uses area. What's the difference? It would seem they both can't be in the uses. Regards & Tks again, Ian

Timfrost - The post said "without the quotes".

Hi All, Thank you all for your pointers and consideration. I have now amassed the following routines which I think will get me there with some massaging. ExecuteAndWait. TerminateProcessByID. GetPIDByProgramName. ExecuteProcess. I will let you know how I go, or not. ;-) Regards & Tks again, Ian

Hi David, "Easy" Says he who knows how to do it. ;-) I have no idea how to do what you described. Ian