Ian Branch

Thanks Thomas, Tried moving GExperts up the 'tree' didn't seem to change what I am experiencing. 😞 It does seem to be related to where the cursor is in the source code. For example, If I have the cursor in the Uses area it formats. If the cursor is in the Type area it pulls the Debug dialog. If I move the cursor down to support code/functions, it formats. If I move the cursor to the TMainForm.Function/Procedure code area, it pulls the Debug window. Sigh! 😉 Regards, Ian

No, sorry. My Customer uses a simple Win 2012 Server.

Hi Keesver, Tks. I haven't had anything like that reported to me. I would be interested though in the findings/solution. Regards, Ian

Hi Team, A Customer has asked about sending SMS messages from their Delphi App. I found the following code by Remy. var lHTTP: TIdHTTP; lParamList: TStringList; lResult: String; IdSSL : TIdSSLIOHandlerSocketOpenSSL; begin lParamList := TStringList.Create; try lParamList.Add('user=****'); lParamList.Add('password=****' ); lParamList.Add('message=Hello World'); lParamList.Add('sender=TestAccount'); lParamList.Add('mobile=+9195....'); lParamList.Add('type=1'); // or 3 lHTTP := TIdHTTP.Create(nil); try // note: if you are using an up-to-date version of Indy, // assigning the IOHandler is optional: // // http://www.indyproject.org/sockets/blogs/ChangeLog/20141222.aspx // lHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP); try lResult := lHTTP.Post('https://www.bulksmsgateway.in/sendmessage.php', lParamList); // WriteLn(lResult); // Readln; except on E: Exception do begin //WriteLn('Error: ', e.Message); end; end; finally FreeAndNil(lHTTP); end; finally FreeAndNil(lParamList); end; end; Is it still valid? Regards & TIA, Ian

Ahhh Ha! Thanks Remy. I figured it had to be something like that but I don't know enough about Indy and this type of thing.. :-( All good now. Appreciated. Regards, Ian

Hi Remy, Thank you. I should have mentioned D11.1.1 with the GetIt Indy. I am using the v 1.0.2u libraries. I cannot see how/where to set the 'SSLOptions.SSLVersions := [sslvTLSv1_1, sslvTLSv1_2];'.. To me the logical place would be into IdSSL i.e. 'IdSSL.SSLOptions.SSLVersions := [sslvTLSv1_1, sslvTLSv1_2];', however it doesn't appear to be being used anywhere. Regards, Ian

@Keesver What issues are you experiencing with VirtualUI? I presume you mean ThinFinity?? My Customer has been using it on a Win 2012 Server for years with only initial teething issues. Ian

I have had a modicum of success with the above code. It at least runs. 😉 I am getting the error.. "Error connecting with SSL". 😞 I have the latest ssleay & libeay dll files in the directory.

Something in the Pacific region would be nice..

FWIW I can't reproduce the effect on my PC either. Win 11, 4k Monitor, D1.1.1, latest MMX. Ian

Hi Team, Is it possible to run a form from the project (.dpr) file, after the main form has exited?? i.e. after 'Application.Run' The reason is I want to have an absolutely last action taken after the Application is exited, if that makes sense?? Probably not. :-( I know I can put something as the last action in the OnClose event, or maybe even in the OnDestroy event.. Regards & TIA, Ian

Hi Dave, Yes that is another option. The form won't actually be showing it will be opening a database updating a record and then closing the database again. Then the form can close. I may well use a datamodule, I am just investigating the concept att. Ian

No problem. We have waited this long... :-)

Hi Team, I have a Dashboard application that the Customer leaves up on their TV Monitor all day. I am not sure what type of TV Monitor it is. They used to leave it on 24/7 but I put an 8 hour time limiter on it. ;-) I'd like to mitigate any burn in by randomly moving/shifting the form. Is this possible? If so, how please? Regards & TIA, Ian

Hi Francois, Noted. It can't be. Not probable but not impossible. They can always drag it back to the center of the screen if they like. ;-) Regards, Ian

It would be if I had any say in it.. Lajos, I took your suggestion and made it into this.. procedure TMainForm.MoveWindowTimer(Sender: TObject); var ws: TWindowState; l: TRect; iLeft, iTop: SmallInt; begin ws := WindowState; l := BoundsRect; iLeft := RandomRange(-10, 10); iTop := RandomRange(-10, 10); // if ws = wsMaximized then WindowState := TWindowState.wsNormal; SetBounds(l.Left + iLeft, l.Top + iTop, l.Width, l.Height); Repaint; end; Works perfectly. Regards & Tks to all. Ian

Hi Francois, Tks. I was hoping it would be something as simple as that. Regards, Ian

Hi Team, I run an App inactivity/idle routine in the background. The objective is that if the App is idle, no keyboard or mouse activity for x minutes, the App closes. Closure is generally by closing the Main form. So, I was wondering, what does Delphi do if you are in a second form opened from the main form when the idle triggers? Does it formally/gracefully close the second form first, and by extension any other forms open in the App, then close the main form, or does it simply close the main form and crash the second, and any other, form? I guess a follow up to that, if it does close other forms gracefully first, what dictates the order of closure? Regards & TIA, Ian

Ahhhh. Tks Pat.

Hi Pat, Good point. I'm not sure I understand what you are saying here?? I have no special handling in the sub-forms. I have the CloseOpenForms being called in the FormClose of the MainForm. e.g. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin // CloseOpenForms; // Close any open forms. // DBC1.CloseDataSets; // Close any open tables/Queries. // DBE1.Close; // Close the DB Engine // end; In the context of this, is a Datamodule considered a Form? Ian

Hi Team, I have worked up the following code.. procedure TMainForm.CloseOpenForms; var TheForm: TForm; I: Integer; begin // for I := 0 to Screen.FormCount - 1 do begin TheForm := Screen.Forms[I]; // {$IF Defined(ELogging) or Defined(Codesite)} LogMessage('Form Name = '+ TheForm.Name); {$ENDIF} // if TheForm.Name <> 'MainForm' then TheForm.Close; // end; end; It turns out that MainForm is the first in the order of Screen.Forms so if I don't filter it out I end up in a loop. 🙂 Seems to work well. Open to any suggestions to improve it. Regards, Ian

Here is the 10.4 plug in, it may work in 10.1.pkgWuppdiWP_DX104D.bpl

Yes. In the left pane you could create sub folders that contained all the projects related together. That way I had several sub folders, one for each of my main Project groups, within which were the individual projects for that overall group. Not to be confused with Delphi's Project Group files, which also went in there. This kept the right hand pane filled with only those project files related to the overall Project. This was to me the greatest benefit of wuppdi. Project files & Project group files were physically moved from the right 'standard' projects pane to the new project group folder. Unfortunately I no longer have an older version of Delphi with the original Wuppdi installed to show you. Perhaps someone else here could post an image?? Perhaps something nice, but not actually needed, would be the ability to sort the files in the right pane. Sort by Projectgroup then project. Just a thought.

Uwe & Peter, thank you for your responses. I had suspected as much. Peter.. And how does one do that?? I think I have seen that somewhere but I don't recall where. 😞 Is it done from within the MainForm OnClose event? Regards & TIA, Ian

I take it the ability to create project folders is still coming??