Ian Branch

FYI - This is how the two versions are appearing on my PC with a 4k monitor.

I deleted all D11 then used the License Manager in my D10.4.2 to delete the D11 Beta license. Then installed D11 without issue.

Hi David, Thank you for your thoughts. Yes, they are all my Apps. Rebooting is not the issue, it is getting the message to them to exit the Apps so I can. ;-) They are on a LAN with Win 7 PCs and RDP into a Win 2012 Server R2. Regards, Ian

Tested and verified. Thanks Uwe.

😀

Thanks Uwe. Appreciated. Ian

Hi Uwe, By way of example. This is what I have.. Vcl.Printers, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls, Vcl.Menus, vcl.wwdbgrid, Vcl.wwIDlg, Vcl.wwdbdlg, vcl.wwdblook, vcl.wwdbnavigator, vcl.Wwdbedit, vcl.Wwkeycb, vcl.Wwdbcomb, vcl.Wwfltdlg, Vcl.Mask, Vcl.NumberBox, vcl.Wwmemo, Vcl.ImgList, Vcl.Grids, vcl.wwDialog, vcl.Wwdotdot, vcl.wwdbigrd, vcl.wwspeedbutton, vcl.wwclearpanel, This is what I would like to see.. Vcl.Printers, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls, Vcl.Menus, Vcl.Mask, Vcl.NumberBox, Vcl.ImgList, Vcl.Grids, vcl.wwdbgrid, Vcl.wwIDlg, Vcl.wwdbdlg, vcl.wwdblook, vcl.wwdbnavigator, vcl.Wwdbedit, vcl.Wwkeycb, vcl.Wwdbcomb, vcl.Wwfltdlg, vcl.Wwmemo, vcl.wwDialog, vcl.Wwdotdot, vcl.wwdbigrd, vcl.wwspeedbutton, vcl.wwclearpanel, Regards, Ian

Question on a similar frain.. I have the following in the Uses Clause Sorting.. "WinApi;System.Win;System;Data;Vcl;Vcl.ww;LMD*;js*;rz*;pp*;da*;sc*;adv*;edb*;nlh*;id*;esbpcs*" It doesn't seem to respect the Vcl vs Vcl.ww* Should it or is this simply a case of confusion buy the sorter?? Regards & TIA, Ian

Hi Guys, D10.4.2, latest MMX. Plus GExperts & Parnassus Bookmarks. While in the Uses clause, if I press Ctrl-Alt-U to order the units in the uses clause, I end up with a 7 in the gutter. How do I stop this please? Regards & TIA, Ian

Ah Ha! Done. Thanks Uwe. Regards, Ian

Hi Team, ATT I use this routine in the OnKeyPress of the TDBEdit to limit the data entry to only numbers. // #8 is Backspace if not (Key in [#8, '0'..'9']) then begin MessageBeep(MB_ICONERROR); TaskMessageDlg('Invalid data entry!', 'Only numbers are allowed for the Service #.', mtError, [mbOK], 0); // Discard the key Key := #0; end; // Unfortunately this does not allow cut & paste of a number. How can I facilitate cut & paste a number with leading or trailing spaces, without losing the numeric control? I have tried using MaskEdit but it still allows the pasting of the number with leading or trailing spaces. :-( Regards & TIA, Ian

Hi Team, D10.4.2, ElevateDB, Koonopka Sig VCL controls v 7. I am trying to configure the control to accept a float value at run time but it keeps beeping at me when I go to enter the decimal point. Seemingly it will only accept integers via the keyboard, however I can enter a float via the 'calculator'. What have I missed/am doing wrong please? Regards & TIA, Ian

Yup. I have. Hence my other question. Thanks & Cheers. Ian

Doh!!!! Thank you. I must have looked through the properties a dozen times and didn't see that. "Forest for the Trees.." :-( Thanks again. Ian

Trap for Windows 11 Players. I recently updated to Windows 11. I got the following error when building rev 3572 for D2007. >> D:\GExperts\Projects\Delphi2007\GExpertsDelphi2007.dproj(122,13): error MSB4019: The imported project "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Borland.Delphi.Targets" was not found. Confirm that the path in the <Import> declaration is correct, and that the file exists on disk. << The Address up to "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727" is present but no 'Borland.Delphi.Targets' :-( I found it in "C:\Windows.old\Windows\Microsoft.NET\Framework\v2.0.50727". Copied to the 'new' directory. 3572 now builds fine for D2007. HTH somebody. Regards, Ian

Hi Guys, Is there a way to retrieve the actual UTC date/time? All the routines I can find work backwards from local date/time. Regards & TIA, Ian

Hi Remy, Thank you for the vey informative response. Appreciated. I have ended up using IdSNTP1.Host := 'time-a.nist.gov'; as it gives me a direct comparison between what the time should be v what the PC says. This I can work with. Regards & Thanks again, Ian

HI Guys, Not to prolong this thread any longer than necessary... This is what I have att. 1. GetSystemTime returns a 'UTC' time but it seems it is derived from the local PC time. - No good to me. 2. IdSNTP1.Host := 'time-a.nist.gov'; returns my local time. - No good to me. 3. IdDayTime1.Host := 'time-a.nist.gov'; returns what appears to be a complete UTC date/time string. - If this is true then it is exactly what I need. I continue to experiment. Regards and again thanks to all for your inputs. Ian

Ahhh. Tks Angus.

All, Nothing like a kick in the right direction. Forest & Trees and all that. Oh so simple using Indy's idDayTime component. IdDayTime1.Host := 'time-a.nist.gov'; Label1.Caption := IdDayTime1.DayTimeStr; My thanks to all for your patience and suggestions. Regards, Ian

Angus, Thank you, correct me if I am wrong but this appears to use the local time as its basis. dummzeuch, Thank you. I am aware of various hardware methods but the End User isn't interested. He has the habit of letting his Server clock 'run free' and after a couple of months it can be 2+ minutes out. He doesn't want to sync with nntp as his Country plays funny with daylight savings. Additionally he is forgetful (did I say lazy) about checking and correcting the server. So, I thought if could detect the time difference between UTC and his Server clock I could overtly flag (remind) him that it needs adjusting. David, Absolutely, that is why I thought of reading a UTC/GMT clock from somewhere. Is it possible to read the date/time form one of those internet time sources? Regards and thanks to all, Ian

Hi David, Well I guess that is where I am a little lost. Hmmm. I'm guessing GMT date time doesn't have daylight savings and is therefore effectively UTC time, so I guess the trick would be to source from a GMT clock somehow?? Ian

Hi Wagner, Thank you for your suggestion. My read of "TTimeZone.Local.ToUniversalTime" in the Delphi docs is that it derives the UTC from your Local. This is no good if the time on your local PC is incorrect. This isn't what I am after, I am after the actual UTC date/time. Regards, Ian

Hi Guys, D10.4.2, latest Indy 10, Win 10. I have created a console app with my Indy code in it. The code is exactly the same as I have in my VCL app, same settings/parameters, etc, which works. But. When I run it in the cmd prompt I get the following error. >>EIdTLSClientTLSHandShakeFailed: SSL negotiation failed.<< Now, I freely acknowledge I probably don't have something set right. 😞 Here is the source I have att.. program DBiPREmail; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils, IdMessage, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, IdBaseComponent, IdComponent, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdAttachment, IdMessageParts, IdEMailAddress, IdAttachmentFile, IdGlobal, IdText; // These are all in just to start. To be cleaned up when working.. var dmPREmail: TdmPREmail; IdSMTP: TIdSMTP; IdMessage: TIdMessage; IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL; // to allow SSL authenticate // try // try // IdSMTP := TIdSMTP.Create(nil); // try // IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(IdSMTP); // IdMessage := TIdMessage.Create(IdSMTP); // // IO HANDLER SETTINGS // with IdSSLIOHandlerSocketOpenSSL1 do begin MaxLineAction := maException; SSLOptions.Method := sslvTLSv1; end; // IdSMTP.Host := 'my smtp email host'; // IdSMTP.Port := 587; // IdSMTP.Username := 'my user name'; IdSMTP.Password := 'my password'; // IdSMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1; IdSMTP.AuthType := satDefault; // IdSMTP.UseTLS := utUseExplicitTLS; // // SETTING email MESSAGE DATA // IdMessage.Clear; // IdMessage.From.Address := 'my email address'; IdMessage.Recipients.EMailAddresses := 'second email address'; IdMessage.CCList.EMailAddresses := 'third email address'; // IdMessage.Subject := 'Test Email Subject'; IdMessage.Body.text := 'Test Email Body'; IdMessage.Priority := mpHigh; // with TIdText.Create(IdMessage.MessageParts, nil) do begin // Body.text := Body.text + '<p style="color: #5e9ca0;">This is a test <strong>message</strong> for <span style="color: #ff0000;"><strong>emailing</strong></span>.</p><h1 style="color: #5e9ca0;"> </h1>'; ContentType := 'text/html'; end; // IdMessage.ContentType := 'multipart/mixed'; // try IdSMTP.Connect; except on E: Exception do begin Writeln(E.ClassName, ': ', E.Message); Exit; end; end; // try try IdSMTP.Send(IdMessage); finally IdSMTP.Disconnect(); end; except on E: Exception do begin Writeln(E.ClassName, ': ', E.Message); Exit; end; end; // finally // IdSMTP.Free; // end; // except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; // end. Thoughts, suggestions appreciated.. Regards & TIA, Ian

Doh! Stupid, stupid me! I forgot to put the two .dll files in the project directory. :-( All good now. Thanks Guys, Ian