Beep vs MessageBeep vs Windows.Beep procedure in Delphi

-
Beep 
Beep procedure call generates a very short and quiet sound through the internal speaker of our system. It is used to inform the user that something has gone wring. It is declared in SysUtils unit. and on Windows OS, Beep procedure call Windows API MessageBeep procedure internally.

 How to use Beep?

 Start a project. Put a button on it. Make the button's OnClick handler do.....

 Uses
      SysUtils;
..........………....
procedure TForm1.Button1Click(Sender: TObject);
begin
  Beep;
end;

 That’s it, we can hear a sound on button click after application run.

 MessageBeep
The MessageBeep function plays a waveform sound. The waveform sound for each sound type is identified by an entry in the sounds section of the registry. After queuing the sound, the MessageBeep function returns control to the calling function and plays the sound asynchronously. It is declared in Windows unit.

   MessageBeep(uType: Cardinal);
Parameter uType specifies the sound type, as identified by an entry in the [sounds] section of the registry. This parameter can be one of the following values:

 Value                              Meaning
MB_OK                             Plays default beep sound
MB_ICONINFORMATION     Plays information message sound
MB_ICONWARNING             Plays warning message sound
MB_ICONERROR             Plays error message sound
MB_ICONEXCLAMATION     Plays warning message sound
MB_ICONASTERISK             Plays informaction message sound
MB_ICONHAND                     Plays error message soung
MB_ICONSTOP                     Plays error message sound
If it cannot play the specified alert sound, MessageBeep attempts to play the system default sound. If it cannot play the system default sound, the function produces a standard beep sound through the computer speaker. The user can disable the warning beep by using the Control Panel Sound application.

 How to use MessageBeep?

 Start a project. Put a button on it. Make the button's OnClick handler do.

 Uses
    Windows; 
....................
procedure TForm1.Button1Click(Sender: TObject);
begin
    MessageBeep(MB_OK);
    MessageBeep(MB_ICONINFORMATION);
    MessageBeep(MB_ICONWARNING);
    MessageBeep(MB_ICONERROR);
    MessageBeep(MB_ICONASTERISK);
    MessageBeep(MB_ICONEXCLAMATION);
    MessageBeep(MB_ICONHAND);
    MessageBeep(MB_ICONSTOP);
End;

 Beep vs MessageBeep
Beep can play only default wave sound but MessageBeep can play different kind of wave sound based on utype paramater value. And Beep internally calls MessageBeep with utype=0.

 Windows.Beep
We checked a Beep procedure with no parameters in Sysutils unit which indirectly calls MessageBeep Windows API procedure. Now we will see another Beep procedure with parameters and is a winows api procedure. This Beep procedure can play sound for a specific duration with specific frequency.

 Windows.Beep(dwFreq:cardinal; dwDuration:cardinal);

 How to use the Windows.Beep?

 Start a project. Put a button on it. Make the button's OnClick handler do.

 Uses
    Windows; 
…………............
procedure TForm1.Button1Click(Sender: TObject);
begin
     Windows.Beep(300,500);
End;
The first parameter (300) sets the frequency of the beep. It can be anything from 37 to 32,767. The second sets the duration of the beep in milliseconds. N.B.: The function is synchronous; it does not return control to its caller until the sound finishes. So don't use this to make long sounds, e.g. more than a second.

 SysUtils.Beep vs Windows.Beep
SysUtils.Beep is asynchronous so after queuing the sound, the MessageBeep function returns control to the calling function and plays the sound asynchronously. Where Windows.Beep function is synchronous that generates simple tones on the speaker. The function is synchronous; it performs an wait and does not return control to its caller until the sound finishes.

Comments

  1. franklinjOctober 25, 2019 at 4:25 AM

    Majority of the issues regarding windows 10 are associated with serious damage in system files this lead to potential issues, hence a Factory reset windows is highly recommended.

    ReplyDelete
  2. Saliver InformáticaAugust 27, 2020 at 7:10 AM

    Thank you for it.
    Now it's easy to use it and select the adequate option.

    ReplyDelete

Post a Comment

Popular posts from this blog

ShellExecute in Delphi

-
ShellExecute in Delphi – Launch external applications. ShellExecute is Delphi Windows API function that is mostly used for launch external applications from our Delphi application. This function is linked to the ShellExecute Windows  API function. The function returns an integer that corresponds to an error code which is very useful when we need to show some status  if the function worked  or not . By using ShellExecute we can also do following operations.... Can print documents from within my program, without explicitly starting the application  that created the document, such as: print a Word-document without starting Word. Can open browser with a local HTML page Can surf to a site i.e. open an external URL link from a Delphi application Can send mails thorugh outlook Syntax of Windows API function HINSTANCE ShellExecute(   _In_opt_        HWND hwnd,   _In_opt_        LPCTSTR lpOperation,   _In_              LPCTSTR lpFile,   _In_opt_        LPC
Read more

How to send Email in Delphi?

-
Today in most of software program it is required to send mail to others with attached data. As some time we need to update clients about their account details, status or any other information through mail. So Delphi provides so many easiest ways to send mail from our Delphi application. I have collected some of ways which are very useful for Delphi developers. In Delphi we don't required any third party components to send mails. We can send mail to single or group of peoples with CC, BCC and attachments. Even we can send HTML mails from Delphi. So here are the ways... 1. ShellExecute Sends Email using default mail client software installed on user's system. But it will not work with attachment for every mail client. And you have to use ShellAPI  unit in uses list. ShellExecute(Self.Handle,              nil,              'mailto:' +              'jiten.g.s001@gmail.com' +              '?Subject=Test Message Subject' +            
Read more

Drawing Shapes in Delphi

-
Image
Believe me, drawing shapes in Delphi is so easy. To develop a software like CAD, Paint, CorelDraw Delphi provides large number of classes and members that supports to draw shapes on a form or on a graphic control. In Delphi, we draw shapes on canvas of a form or graphic controls. Canvas is an area of form where we can draw shapes, lines and can fill colors on shapes. In Delphi, every form or graphic controls have Canvas property which provides TCanvas object that can be used to draw shapes. TPen object is used to draw lines and we can set size, color of lines. TBrush object is used to set color and style to fill the shapes. Most frequently used classes for drawing shapes are TCanvas , TBitmap, TGraphics, TPen, TBrush TCanvas Use TCanvas as a drawing surface for objects that draw an image of themselves TBitmap   Bitmap is a powerful graphics object used to create, manipulate (scale, scroll, rotate, and paint), and store images in memory and as files on a disk.  TGraphics TGr
Read more