Jump to content

Ian Branch

Members
  • Content Count

    1435
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by Ian Branch

  1. Ian Branch

    Ctrl-Alt-F sometimes doesn't

    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
  2. Ian Branch

    Application virtualization (RDP)

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

    Application virtualization (RDP)

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

    SMS Sending - Still valid??

    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
  5. Ian Branch

    SMS Sending - Still valid??

    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
  6. Ian Branch

    SMS Sending - Still valid??

    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
  7. Ian Branch

    Application virtualization (RDP)

    @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
  8. Ian Branch

    SMS Sending - Still valid??

    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.
  9. Ian Branch

    SMS Sending - Still valid??

    Something in the Pacific region would be nice..
  10. Ian Branch

    Tip of day glitch

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

    Run a form on application exit??

    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
  12. Ian Branch

    Run a form on application exit??

    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
  13. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

    No problem. We have waited this long... :-)
  14. Ian Branch

    Move a form a few pixels??

    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
  15. Ian Branch

    Move a form a few pixels??

    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
  16. Ian Branch

    Move a form a few pixels??

    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
  17. Ian Branch

    Move a form a few pixels??

    Hi Francois, Tks. I was hoping it would be something as simple as that. Regards, Ian
  18. 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
  19. Ian Branch

    Form closing - curiosity question..

    Ahhhh. Tks Pat.
  20. Ian Branch

    Form closing - curiosity question..

    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
  21. Ian Branch

    Form closing - curiosity question..

    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
  22. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

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

    wuppdi Welcome Page for Delphi 11 Alexandria?

    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.
  24. Ian Branch

    Form closing - curiosity question..

    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
  25. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

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