With Delphi, you can listen to MP3 and Wav files. Continuous play, shuffle, repeat, volume control, balance, time (remaining / passing), progress bar with which you can adjust the position of the song, status indicator bar, search option on the database, changing the data, adding to the database, selected in the database (CD- In the ROM, you must have the correct CD) The mp3 collection that uses SQL uses the system paradox database. Coding was done with delphi 6.

Delphi comes with the 'TMediaPlayer' component to play media files such as video and audio. This component remains in Delphi for compatibility with older versions, but is quite old and difficult to maintain due to a reduced number of compatible codecs. However, Windows has an alternative component for the Microsoft Windows Media Player ActiveX component.

In this article, I'll show you how to import and use Windows Media Player using Delphi.

As far as I can remember, although not in earlier versions, as far as Delphi 5, the RAD Studio IDE had an import wizard that allows you to import ActiveX components. Keep in mind that ActiveX is known as COM, COM +, OLE, and possibly as other names over the years, and Microsoft does not seem to have settled in the name of this technology. Regardless of what it is looking for, it provides a technology for converting some technologies into components and a language-agnostic interface to these components. Many components of the Windows system can be used in ActiveX format, including Delphi's TWebBrowser component for VCL and a web browser where the Windows Media Player component is wrapped.

With Delphi, you can listen to MP3 and Wav files. Continuous play, shuffle, repeat, volume control, balance, time (remaining / passing), progress bar with which you can adjust the position of the song, status indicator bar, search option on the database, changing the data, adding to the database, selected in the database (CD- In the ROM, you must have the correct CD) The mp3 collection that uses SQL uses the system paradox database. Coding was done with delphi 6.

By using it as an example you can develop according to yourself.

This application is a source code file describing the use of Windows Calculator with a Delphi. Delphi Programming Language will be very useful in learning. In addition, Delphi mathematical operations to add, subtract, multiply and divide will give you an idea of how to do.

 

We are adding 16 buttons, 4 pieces of labels and 4 labels to our form which we have started with delphi as a starting point for calculating the logic and making a very simple calculator. We will use buttons to multiply, divide, add and subtract from these components.

 

The overview of our application will be as follows:

 

Our codes are:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    procedure Button15Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:Double;
  b:Double;
  c:Double;

implementation

{$R *.dfm}

procedure TForm1.Button10Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '0'
    else
    begin
      Edit2.Text:=Edit2.Text + '0'
    end;
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
  Edit3.Text:='+';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
  Edit3.Text:='-';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
  Edit3.Text:='x';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
  Edit3.Text:='/';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';

end;

procedure TForm1.Button16Click(Sender: TObject);
begin
  if Edit3.Text ='+' then
    a:=StrToInt(Edit1.Text);
    b:=StrToInt(Edit2.Text);
    c:=a+b;
    Edit4.Text:=FloatToStr(c);

  if Edit3.Text ='-' then
    a:=StrToInt(Edit1.Text);
    b:=StrToInt(Edit2.Text);
    c:=a-b;
    Edit4.Text:=FloatToStr(c);

   if Edit3.Text ='*' then
    a:=StrToInt(Edit1.Text);
    b:=StrToInt(Edit2.Text);
    c:=a*b;
    Edit4.Text:=FloatToStr(c);

  if Edit3.Text ='/' then
    a:=StrToFloat(Edit1.Text);
    b:=StrToFloat(Edit2.Text);
    c:=(a)/(b);
    Edit4.Text:=FloatToStr(c)


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '1'
    else
    begin
      Edit2.Text:=Edit2.Text + '1'
    end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '2'
    else
    begin
      Edit2.Text:=Edit2.Text + '2'
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '3'
    else
    begin
      Edit2.Text:=Edit2.Text + '3'
    end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '4'
    else
    begin
      Edit2.Text:=Edit2.Text + '4'
    end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '5'
    else
    begin
      Edit2.Text:=Edit2.Text + '5'
    end;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '6'
    else
    begin
      Edit2.Text:=Edit2.Text + '6'
    end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '7'
    else
    begin
      Edit2.Text:=Edit2.Text + '7'
    end;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '8'
    else
    begin
      Edit2.Text:=Edit2.Text + '8'
    end;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  if Edit3.Text = '' then
    Edit1.Text:=Edit1.Text + '9'
    else
    begin
      Edit2.Text:=Edit2.Text + '9'
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Text:='DELPHI CALCULATOR By: Teody';
  Form1.Position:=poMainFormCenter;
end;

end.

A simple but functional parking lot control system with Paradox database. A nice system for managing a small car park. Check the entrances and exits for hours or days and follow them with the license plate. It is a simple but beautiful application that supports payment system and can print out parking tickets.

Parking Lot Tracking Program can be developed for you to perform car park management meticulously. With the further development of this program, which has a very simple interface and offers its users the opportunity to follow without any difficulties, we can list the advantages that it will offer its users as follows:

• Registering parking vehicles into the system according to the license plate
• Starting subscription transactions for the parking lot
• In addition to the parking fee, if any, adding an interior and exterior cleaning service fee
• Printing receipts for customers
• Creating door authorization for personnel
• Receive daily revenue report
• Protect data with automatic backups

 

Parking Tracking Program, one of the unique programs for parking lot operators, has a very useful and simple interface. For this reason, it offers a form that can be used easily for users of all levels. In addition, the fact that such a program has a strong database is important in terms of securing transactions and hosting a lot of data.

As Safir Media, we have published the source code of this program to set an example for programmers and to use them to improve themselves, as well as to make the program more professionally usable.

You can specify your requests, suggestions and requests by writing them under the subject. In addition, your support is very important for us to share more. You can support by following us and sharing on social media.

This application is a source code file describing the use of WebBrowser Internet Explorer with a Delphi. Delphi Programming Language will be very useful in learning. It will also give you an idea of ​​how to navigate through your program with WebBrowser Internet Explorer in Delphi.

 

The TWebBrowser component (in the Delphi IDE's Internet palette) is a Microsoft ActiveX ® control that you can use in the forms of your application to browse Web sites, view Web pages and other documents, and download data that is available on the Internet.

 

The TWebBrowser component is useful when you don't want to interrupt your workflow by switching from your application to a Web browser or another document viewing application.

 

The TWebBrowser component can display any Web page that Microsoft Internet Explorer version 3.0 or later (ie 4.0, 4.01, 5, 5.5, 6 ...) can display.

 

 

 

For example, the TTWebBrowser component can display pages that contain the following features:

 

 

 

1. Standard HTML and HTML enhancements such as floating frames and Cascading Style Template

 

2. Other ActiveX controls

 

3. Most Netscape add-ons

 

4. Microsoft Visual Basic Scripting Edition (VBScript) or JavaScript

 

5. JavaTM applications

 

6. Multimedia content such as video and audio playback

 

7. Three-dimensional virtual worlds created with Virtual Reality Modeling Language (VRML)

 

 

 

In addition to opening web pages, the TWebBrowser component can open any ActiveX document that contains most Microsoft Office documents. For example, if Microsoft Office is installed on a user's computer, an application that uses the TWebBrowser component can open and edit Microsoft Excel spreadsheets, Microsoft Word documents, and Microsoft PowerPoint presentations from within the control.

 

Similarly, if Microsoft Excel Viewer, Microsoft Word Viewer, or Microsoft PowerPoint Viewer is installed, users can view these documents in the TWebBrowser component. With the TWebBrowser component, users of your application can browse sites on the World Wide Web, as well as folders on a local hard disk and local area network.

 

Users can track hyperlinks by clicking or typing a URL in a text box. In addition, the TWebBrowser component maintains a history list that users can browse to view previously scanned sites, folders, and documents.

 

 

 

View a Web page or document in TWebBrowser

 

 

 

To view a Web page or document in the TWebBrowser component, we must use the Navigate method programmatically. The codes for the navigation method are:

 

The overview of our application will be as follows:

 

 

 

The URL specifies the path name of a file or the Uniform Resource Locator (URL) of an Internet resource that the Web browser should display. If the URL points to an Internet protocol and a location on an intranet server, the computer running your application must be connected to the Internet or intranet, and must have permission to access that server. If the URL points to a standard file system path on a local hard drive or intranet, the TWebBrowser component opens and displays the document immediately. The TWebBrowser component can open Microsoft Office documents, text files, and HTML documents.

 

Flags - A set of values ​​that specify whether the resource should be added to the history list, read from the cache, and whether the resource is displayed in a new window.

 

TargetFrameName is zero if the name of the frame to show the source or if the source should not be displayed in a named frame.

 

PostData contains data sent to the server when using Navigate to generate an HTTP POST message. If PostData is zero, Navigate generates an HTTP GET message. If the URL does not specify an HTTP URL, PostData is ignored.

 

Headers contain headers sent to servers when the URL represents an HTTP URL. HTTP headers, the desired action of the server, data type, and so on.

 

Now let's conclude.

 

Create a new VCL Application project and save it to a folder. Then, add a TWebBroswer component to the form. Then add buttons, edits, or other necessary components to create them as follows.

 

Here are our codes:

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Buttons;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    Label1: TLabel;
    editURL: TEdit;
    btnLoad: TButton;
    btnnext: TSpeedButton;
    btnback: TSpeedButton;
    btnrefresh: TSpeedButton;
    btnHome: TSpeedButton;
    btnStop: TSpeedButton;
    btnQuit: TSpeedButton;
    procedure btnLoadClick(Sender: TObject);
    procedure editURLKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnbackClick(Sender: TObject);
    procedure btnnextClick(Sender: TObject);
    procedure btnHomeClick(Sender: TObject);
    procedure btnrefreshClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure btnQuitClick(Sender: TObject);
    procedure WebBrowser1TitleChange(ASender: TObject; const Text: WideString);
  private
    { Private declarations }
    procedure OpenURL;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.OpenURL;
begin
  WebBrowser1.Navigate(editURL.Text);
// URL can be www.google.com
// URL can be C:\testfolder
// URL can be C:\testfolder\tset1.jpg
end;

procedure TForm1.btnLoadClick(Sender: TObject);
begin
  OpenURL;
end;

procedure TForm1.editURLKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    OpenURL;
end;

procedure TForm1.btnbackClick(Sender: TObject);
begin
  WebBrowser1.GoBack
end;

procedure TForm1.btnHomeClick(Sender: TObject);
begin
  WebBrowser1.GoHome;
end;

procedure TForm1.btnnextClick(Sender: TObject);
begin
  WebBrowser1.GoForward;
end;

procedure TForm1.btnQuitClick(Sender: TObject);
begin
  WebBrowser1.Quit;
end;

procedure TForm1.btnrefreshClick(Sender: TObject);
begin
  WebBrowser1.Refresh;
end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
  WebBrowser1.Stop;
end;

procedure TForm1.WebBrowser1TitleChange(ASender: TObject;
  const Text: WideString);
begin
  editURL.Text := Text;
end;

end.

In this hint, I want to explain how to create an unlimited list of categories in the database and how to read the category list.

One of the most difficult work of creating a store is to create a category and distinguish products with subcategories, and perhaps have a subcategory of this subcategory. Some programmers create a table for each category, which forces them to have limited categories.

After designing many applications, I learned that many people have problems with database design and created many useless things or limited usage tables and areas. Now, I would like to explain another vision vision related to database design.

Let me show you my app to do this.

In this partial class, we're creating two fields for switching for Category Names, such as two fields and Category Table, but with a difference, I used the variable CategoryList array type repeated in the partial class instead of registering the child category here.

This project includes:

• Unlimited category and subcategory structure
• Designing with a single table
• Control with Ajax

You can place an order by adding the corresponding source code to your cart and then download it from the My Files link in your personal menu.

I wanted to share with you the delphi source code of the stock program I prepared with Delphi for the companies or traders who worked with you years ago. With these source codes we prepared as Safir Media, you can have information about how to do mathematical operations in delphi and database programming and you can use the source codes. 

Paradox database is used in the program. For this reason, Paradox database connections must be made for the program to work. If you have not made a Paradox database connection in your Delphi installation, you can learn how to link the Paradox Database in Delphi.

• Program user name and password and management input is available.  
• A demo user mode is available for the first time presentation. The demo version for the username: warehouse password: warehouse.
• By entering the correct User Name and Password, the menu will be activated.
• And the program is ready to use with the features defined and determined by the authorized person of your profile.

DEPARTMENT OF PERSONS:

In this section, it is aimed to keep the employees, the customers who are constantly shopping, and the companies and companies purchased from the product.

Bank accounts and address information can also be saved.

This allows registered wholesalers and firms to automatically select the company that received the product at the product entry.

Saved customers allow you to automatically select the customer who sold the product if required.

Staff: In this section you can keep your employees' contact and bank account information.

Customers: In this section you can keep your customers' contact and bank account information.

Wholesalers / Companies: In this section you can keep communication and bank account information of companies and wholesalers.

Record Search: If you want to search among the contacts you have saved, you can use the QUICK SEARCH section.

Add New Record: To add a new entry, press the NEW button, Company Name, Address, Phone, Fax Number, Website, E-mail address, Bank Name-1, Account No.-1, Bank Name-2, Account No-2 fields. cleared for new record. Enter this information.

Saving Information: Click the SAVE button to save the information you entered. Never leave the Company Name field blank when saving information. Your information will be saved.

Making Changes to the Information: Select the contact you want to change from the section under which all records are listed. The information of the person you selected will appear above. You can save the change made with the CHANGE button after you change the part you want to change the fields.

Undoing Changes: If you made an incorrect change by knowing or not knowing the open record, you can undo the changes by using the CANCEL button before saving.

Delete Recordings: Select the contact you want to delete first. You can use the DELETE button to delete the record by pressing Yes.

DEPARTMENT OF STOCKS:

In this section, you can save the products you have purchased and add them to your stock, make sales and check the stock status.

You save the products you have purchased and set the sales price. You can search for the products you have saved by Stock Code and Product Name.

As you enter the product Purchase Date, Production date and Expiration date, you can query the information about the current status of your products.

Sales price will be displayed automatically at the entrance of the product sale process and you will be able to perform the sales transaction by adding VAT at this price. You can change the sales price immediately if you wish.

You will be informed about products that are out of stock after the sale.

When you sell products in stock, you will immediately see the stock stop and you are not allowed to sell more than this amount.

ACCOUNTING GENERAL SPECIFICATIONS:

• In this section, you can make money in / out from the accounts you have set in my bank accounts section.
• The entries are kept in the accounts of the funds deposited in your accounts or sent to you by wire transfer.
• In the Payments section, the records of the payments you made or transferred from your accounts are kept.
• You can review the entries and payments to the accounts you have specified in My Bank Accounts.

The Banks section is the fixed entries of the Bank's names used in all kinds of registration transactions. Overall, banks in Turkey comes as registered. You can add as many banks as you want.

REPORTING FEATURES:

In this section according to stock status;

You can report products in stock in various categories. The Stock Status Report can list the two dates specified in the following categories.

Categories in Inquiry;

• Date of Purchase: Date of purchase (registration).
• Date of Manufacture: The date of manufacture you entered in the registration.
• Expiration Date: Expiration date of products.
• You can break down the date range you specified or all sales made.

Also according to stock status;

You can report products in stock in various categories. The Stock Status Report can list the two dates specified in the following categories.

SETTINGS SECTION FEATURES:

This section contains information about your company that will be used in some titles and the settings for registering the person authorized to use the program.

The user name and password definitions that are asked at the first login are done here. Only authorized person is defined in the program. This user can enter the user name and password in the User Settings section and define as many users as they want. General users cannot log in / change user settings. But they can use other parts of the program.

From the user movements section you can see which user has used the program in which time intervals.

 

Accordion – Responsive accordion WordPress Plugin. It’s have 22 styles . You can use this accordion on your website easily. it has a lot of options to make in more customizeable.

Demo: Demo 

Accordion Collection Main Features

 

• 27 Unique tabs Styles * More Style Coming Soon!
• Drag & Drop Ordering
• Pagination Options
• Show Category Name beside the title in admin panel
• Limit To Display number of accordion
• Display Category wise accordion
• Fully Customizeable
• Typography Options
• Unlimited Color Scheme
• Build in support for Elementor
• Build in support for Wpbakery Page Builder
• Support Divi ,Avada,Be All Mejor Theme
• Gutenberg Compatible
• 100% Multi Language
• Responsive Design
• Smooth hover effect
• Fully Customization
• Unlimited Color Style
• All Browser Supported
• Clean Coding, W3c Validate
• Step by Step Well Documented
• 24/7 First Support

(Zip Pass: safirmedya.com)

Free address book, which you can keep detailed information such as phone, address, mail, site address, mobile phone, short note of the persons you want in computer environment, is a kind of organizer program. In addition, this program has a reminder feature. Birthday etc. You can also add a reminder on special days. The file contains both the exe file that you can use and the delphi source code, which you can edit. You can also print out the contact information that you saved in the program from the printer. You can also use the source files for further development or adaptation.

• Possibility to enter unlimited records.
• Important days to add alarm reminders.
• Ability to print information from the printer.
• Source codes are included.

You can edit the program as you want by making the changes you want in the program source code or you can use it to improve your knowledge by getting information about the source code. Or you can use the program's running .exe application as a calendar.

Zip Pass: safirmedya.com