Jump to content

Mark-

Members
 View Profile  See their activity

  • Content Count

    303

  • Joined

  • Last visited

  • Days Won

    1

Posts posted by Mark-

  2. Posted

    3 hours ago, Rick_Delphi said:

    Is there no one in the US building something awesome with Delphi? I keep looking but I'm not finding much. Mostly, it's just your same ole' same ole'--reinventing the wheel and making a dollar a day with all the pop u can drink. No one out there has come up with something lucrative and fascinating to develop and make fat stacks of cash?! This is sad, so very very sad.

    How about come up with an idea, fund it yourself and reap all the benefits?

  6. Posted

    15 minutes ago, Anders Melander said:
    1. Use the certificate providers cloud solution and pay per transaction (not gonna happen).

    So do you have any idea about what the price will be on this thing?

    Yes our previous cloud solution went to the per transaction model and our cost would have gone up over 1000%. Not going to happen.

    Yes, #2, the pricing page had no data.

     

    Funny, before adding code signing, many years ago, not one customer asked for it or made a comment about it. We have wondered if we removed it, would it have any negative effects.

     

    • Like 2

  7. Posted

    5 minutes ago, Remy Lebeau said:

    Perhaps the MCI_BREAK command can help you? CTRL+Break is the default for aborting am MCI wait operation, but you can specify a different key, or even disable breaking.

    Thanks for the response.

     

    I tried a bunch of variations of MC_Break, setting the key, setting it off, etc.. Nothing altered what I am seeing. CTRL+ Break does not stop a sound playing with MCI_Wait or MCI_Notify, as it should. No errors are reported for any calls I am using with success or trying with no success.  Well, unless I fail to open the device.

    I use MCI_STOP when the user selects a button and MCI_Notify is used.

     

    I do not see a command structure that uses MC_Break and actually says it will stop the sound playing.

    The docs do have this: "You might have to press the break key multiple times to interrupt a wait operation. " HA

     

    I just tested with MCI_Wait and CTRL+ Break, hit the key pair 30+ times, it did not stop the sound.🙂

     

     

  8. Posted

    More testing shows CTRL + Break is a toggle command and it appears after X time it resets to cleared/off.

    I do not see a way to query the device for its "break mode" state.

    CTRL + Break while another program has focus has the same result as if the program that plays the sound has focus.

    I have not found a way to send CTRL + Break to the system.

    If a method to query the state and send a CTRL + Break was possible, that would good.

    Might have to put a note in the user manual if the sound will not play.

     

  9. Posted · Edited by Mark-

    Hello,

     

    Today, I discovered some code using mciSendCommand with MCI_WAIT and MCI_PLAY, I wrote when Windows 7 was the cat's meow works under W10 and I assume W11 as long as the user has not used CTRL + break on the computer.

     

    Searching the web I found a fellow reported the issue in 2016, https://answers.microsoft.com/en-us/windows/forum/all/media-control-interface-nmci-not-working-properly/4931db24-a53a-46da-94db-7423e3d5540f

     

    I verified, code works sound plays, press CTRL + break, code says it works, no errors and no sound. Restarting the computer, the code works as long as CTRL + break has not been pressed. And there seems to be another time it might be cleared but, I could not repeat that part.

     

    Rewriting the code without using MCI_WAIT is possible but, before I started, I was wondering if anyone has an idea or has found a solution?

     

    Thanks,

     

    Mark

     

  11. Posted · Edited by Mark-

    I do not see a call to terminate the thread.

    Normally, for me, works like a charm. 

    procedure TForm1.Button2Click(Sender: TObject);
begin
 MyThread.Terminate;
 MyThread.WaitFor;
 MyThread.Free;
end;

//I don't do this:
FreeOnTerminate := True; // Free memory when finished
    procedure TMyThread.Execute;
begin
//if an exception is thrown in the thread we need to catch it
 try
  MyExecute;
 except
  on E:exception do
   exceptionString:=E.Message;
 end;
end;

procedure TMyThread.MyExecute;
begin
 while (not terminated) do
  begin
   try
//some code

   except
   end;

   if not terminated then
    Sleep(sleepAmount);
  end;
end;

     

  13. Posted

    2 hours ago, Remy Lebeau said:

    Sorry, I meant the TApplication(Events).OnDeactivate event, not the form's OnDeactivate event.

     

    You can't click on another form in your app since it has been disabled by the modal form.  But, if you click outside of the app then the modal form will lose focus, triggering the TApplication(Events).OnDeactivate event.  You can then close the modal form.

    Thanks.

     

  14. Posted

    10 minutes ago, Remy Lebeau said:

    You can call the form's Close() method, or set the form's ModalResult property, in the form's OnDeactivate event.

    I know that works for non modal forms, never tried with modal forms.

    Just tried with 10.2 and OnDeactivate is not called with a modal form, unless I am doing something wrong.

  17. Posted

    49 minutes ago, Miguel Jr said:

    Preciso executar o aplicativo database desktop  no menu tools do delphi 7 mas surge estas duas mensagens "private directory is invalid or undefined. using temporary directory instead." e "working directory is invalid or undefined. use startup directory instead." Se alguém puder me ajudar ficarei grato ? Para que continue a programar minha aplicação.  

    No aguardo, 

    Respeitosamente,

    Miguel A. F. D. Jr.

     

    I need to run the database desktop application in the tools menu of delphi 7 but these two messages come up "private directory is invalid or undefined. using temporary directory instead." and "working directory is invalid or undefined. use startup directory instead." If anyone can help me I will be grateful? So that I can continue to program my application. 

  21. Posted

    Hello,

     

    Delphi 10.2

    If I set the form's Constraint.MaxWidth to some value, 650 for example, with the form open, normal size and maximize the form, icon, right click menu, etc., the form bottom is hidden by the taskbar. With all Constraint.MaxWidth set to 0, works as expected.

    No anchors, align is none.

     

    Anyone seen this? It is reproducible with all forms I tested.

    Web searching, no joy.

    Ideas?

     

    Cheers,

     

    Mark

  23. Posted · Edited by Mark-

    Using version: 8.65

    Just a follow up for anyone wanting to fetch a file size. I could not get the Async call to work. 

     VerifyFTP.UserName:=<UserName>;            
 VerifyFTP.PassWord:=<Password>;
 VerifyFTP.HostName:=<HostName>;
 VerifyFTP.HostDirName:=<HostDirName>;
 VerifyFTP.HostFileName:=<HostFileName>;
 try
  VerifyFTP.Connect;
  VerifyFTP.Cwd;
  VerifyFTP.TypeBinary;
  VerifyFTP.Size;
 finally
  VerifyFTP.Quit;
  ShowMessage(VerifyFTP.SizeResult.ToString);
 end;

    Thanks François and Angus.

  24. Posted

    2 minutes ago, Angus Robertson said:

    As I said before, the option 'no temp file for xfers' magftpNoTmpFile will avoid the rename issue. you tried that and it did not fix the missing file name issue.

    Right, in the demo using that option failed on the STOR call.

    Back to the server shenanigans.

    Recall, this work fine for years. Something changed, not on my end.

     

    > The component will zip files...

    It is an installer that is already compressed. I need the file to be a "double click" run the installer action, just like it is now with the exe file.

     

    Thanks for your help.

×