

Ian Branch
Members-
Content Count
1435 -
Joined
-
Last visited
-
Days Won
3
Everything posted by 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
-
wuppdi Welcome Page for Delphi 11 Alexandria?
Ian Branch replied to PeterPanettone's topic in Delphi IDE and APIs
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
-
wuppdi Welcome Page for Delphi 11 Alexandria?
Ian Branch replied to PeterPanettone's topic in Delphi IDE and APIs
Here is the 10.4 plug in, it may work in 10.1.pkgWuppdiWP_DX104D.bpl -
wuppdi Welcome Page for Delphi 11 Alexandria?
Ian Branch replied to PeterPanettone's topic in Delphi IDE and APIs
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
-
wuppdi Welcome Page for Delphi 11 Alexandria?
Ian Branch replied to PeterPanettone's topic in Delphi IDE and APIs
I take it the ability to create project folders is still coming??