--> September 2011 | Delphi Tips Trick

For Newbie

Tuesday 27 September 2011

no image

Overlay Text in Video/Preview Webcam in Delphi 7 Using Video Grabber Component (Basic Concept)

Overlay Text in Video/Preview Webcam in Delphi 7 Using Video Grabber Component
In the news broadcast, absolutely there is running text in the bottom of the monitor that keep moving (running news) to visualize the variety of latest news. Tone of the way that is used to visualize the running news is with overlay text in news video that is reported.
Video grabber component in Delphi can be used to conducted overlay text in video that will be visualized. Overlay can be done in the static text mode and dynamic text mode according to the program that is conducted.
Note:
The video grabber component that is used in this application is shareware version so that it could not work properly (maximal), in limited random time, applicaton will stopped working, besides that application will appear overlay text nagscreen the address of the website is www.datastead.com

  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting
 

Accessing Video URL with Delphi Using Video Grabber Component

Accessing Video URL with Delphi Using Video Grabber Component

Accessing Video URL with Delphi Using Video Grabber Component

Accessing video URL is video access that is saved in a certain directory website, where the video is addressed in a certain web domain. Domain can be in the form form of address that is friendly user like   axrtsphttp://webkamera.kristinehamn.se/mpeg4/media.amp,  or IP, for example http://192.168.50.1/cencored

Programming with Borland Delphi support for accessing video url including IP camera,
The component that is used in making video url accessing application with Delphi is as follows:  

No
Component Name Properties Value
1 Label1 Caption Video URL Address
2 Button1 Caption Preview
3 Edit1 Text axrtsphttp://webkamera
.kristinehamn.se/mpeg4/media.amp
4 Videograbber1 -


Arrange the source code like the picture Bellow:



And then type the following source code

No Component Event Source Code
1 Button1 OnClick VideoGrabber.IPCameraURL := edtIPCameraURL.Text;
    if VideoGrabber.VideoSource <> vs_IPCamera then begin
if VideoGrabber.CurrentState = cs_Down then begin
VideoGrabber.VideoSource := vs_IPCamera;
      end
end;
VideoGrabber.StartPreview;
2 Form1 OnCreate VideoGrabber.VideoSource := vs_IPCamera;

then run the application, this is the resut test:


Note:
The video grabber component that is used in this application is shareware version so that it could not work properly (maximal), in limited random time, applicaton will stopped working, besides that application will appear overlay text nagscreen the address of the website is www.datastead.com


  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting
 
no image

Short Review about accessing web camera by video grabber Component on Delphi 7

Short Review about accessing web camera by video grabber Component on Delphi 7


Overlaying Picture in Delphi 7

Have you ever been watch television? Maybe that’s weird and silly question. The answer is absolutely yes. Next, have you ever concern that every television channel that you choose always appearing their logo, for example BBC, Al Jazeera, etc. Every channel has logo as their brand.

Overlaying Text in Video/Preview Webcam in Delphi 7
In the news broadcast, absolutely there is running text in the bottom of the monitor that keep moving (running news) to visualize the variety of latest news. Tone of the way that is used to visualize the running news is with overlay text in news video that is reported.
Video grabber component in Delphi can be used to conducted overlay text in video that will be visualized. Overlay can be done in the static text mode and dynamic text mode according to the program that is conducted.

Access Multi Web Camera Delphi
This application is application that can visualize video preview or picture which the source is from web camera, where the amount of camera input is 3 web cameras. The next step is video preview or recording toward video from multi camera that is used. Video will be saved in one folder. To make Access multi web camera Delphi through video grabber component, please follow the steps below, fast and easy, but powerful. However, this article just discuss about making application that is limited on preview web camera, for processing video capture will be discussed in another writing.

Video Rotation with Delphi
If you ever record video using digital camera, handy cam, or camera with low resolution in mobile phone J, but the recording result is at an angle 90, of course it will uncomfortable to watch it. It is uncomfortable because you have to tilt your head to balance the video declivity. My question maybe sound silly, but the fact is like that right? Of course you will more enjoy watching video that fit with the monitor, right? If so, maybe the video rotation application using Delphi making use of video grabber component will very helpful to solve the problem.
The application that will be made can rotate video visualization suitable with your expectation, for example rotate in 90°,180° ,270° or suitable with the corner in your expectation that you can type the value so that the declivity is suitable with your expectation.,

Capturing Picture /Photo Delphi Using Video Grabber Component
Video grabber component in Delphi can be used to capture picture/ photo the picture can be saved in to folder or database. This component has a lot of function and the function refer to camera access like video recorder, photo, video player etc.

Motion Detection with Delphi
Motion detection is application that is used as observer system or protection system in a certain room, for example coffer room of a organization, such as bank, in a certain time this room has to be empty without anyone inside, as protection application can be developed using sms delivery facility to those that is related when detected a movement. This application can also be developed by automatic facility video recorder if detecting a movement in video preview that is capture in camera as protection input system.

Video Recorder Or Video Capture With Borland Delphi
Video grabber component have function as video recorder, with the source of the video is web camera. Besides, this component have function as Audio recording, motion detection, text over lay, picture over lay, video rotation, and etc.
This article will discuss how to make video recorder application with Delphi through video grabber component.

Video Player Delphi Using Video Grabber Component
This writing will discuss the steps of making video player application using video grabber component.

Accessing Video URL with Delphi

Accessing video URL is video access that is saved in a certain directory website, where the video is addressed in a certain web domain. Domain can be in the form form of address that is friendly user like   axrtsphttp://webkamera.kristinehamn.se/mpeg4/media.amp,  or IP, for example http://192.168.50.1/cencored
Accessing IP Camera with Delphi Using Video Grabber Component
IP camera actually has similarly with video url, the difference is on the sort, where IP cam is just a preview from camera that is used. For the next can be processed video recording, picture/photo capturing or just preview. Whereas video url is a file that is saved in certain directory website then can be accessed (similar with hosting free video)


  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting
Error Handler for Error Duplicates Inserting Data on Delphi with Microsoft Access Database

Error Handler for Error Duplicates Inserting Data on Delphi with Microsoft Access Database



Error Handler for Error Duplicates Inserting Data on Delphi with Microsoft Access Database
Big possibilities of a lot of beginners in database programming using Delphi, ever been found an error message like this:

“Project raised exception class EOleException with message 'The Change you requested to the table were not successful because they would create value in the index, primary key, or relationship. Change the tata in the fields that contain duplicate data, reove the index, or redefine the index to permit duplicate entries and try again'. Process stopped. Use Step or Run to Continue”

This message appear when there is mistake like duplication (double data) in a filed that is set as unique field, usually marked with primary key. The field does not allow identical data to be inserted into record on that field.
In this article, there is example where the insert processing database conducted through  ADOTable component, the error message that appear is as follows:


The solution to solve the error duplicate database problem is as follows:


Add the following source code on event OnPostError properties that Adotable component :



var
Action: TDataAction);// àà this source code to abort the inserting data process
begin
Action:=daAbort;
ShowMessage('Error Duplicate data, Double Counting');
end;


 So when duplication happen when adding new data, will appear message like the following and that data will not be saved, or abort.




  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting

no image

Making Video Rotation with Delphi Using Video Grabber Component

Making  Video Rotation with Delphi Using Video Grabber Component 
            If you ever record video using digital camera, handy cam, or camera with low resolution in mobile phone J, but the recording result is at an angle 90, of course it will uncomfortable to watch it. It is uncomfortable because you have to tilt your head to balance the video declivity. My question maybe sound silly, but the fact is like that right? Of course you will more enjoy watching video that fit with the monitor, right? If so, maybe the video rotation application using Delphi making use of video grabber component will very helpful to solve the problem.

The application that will be made can rotate video visualization suitable with your expectation, for example rotate in 90°,180° ,270° or suitable with the corner in your expectation that you can type the value so that the declivity is suitable with your expectation.,

Note:
The video grabber component that is used in this application is shareware version so that it could not work properly (maximal), in limited random time, application will stopped working, besides that application will appear overlay text nagscreen the address of the website is www.datastead.com


  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting

Video Recorder Or Video Capture With Borland Delphi Through Video Grabber (Share Ware Version)

Video Recorder Or Video Capture With Borland Delphi Through Video Grabber (Share Ware Version)

Video Recorder Or Video Capture With Borland Delphi Through Video Grabber (Share Ware Version)
Video grabber component have function as video recorder, with the source of the video is web camera. Besides, this component have function as Audio recording, motion detection, text over lay, picture over lay, video rotation, and etc.
This article will tell you how to make video recorder application with Delphi through video grabber component.
Please Insert this Following Component to the design form

No Component Name Properties Value
1 Button1 Caption Record
2 Button2 Caption Stop Record
3 Button3 Caption Preview
4 Button4 Caption Stop Preview
5 VideoGrabber1 Name VideoGrabberSrc1
6 ComboBox1 Text Camera Device
7 Label1 Choose Camera
8 CheckBox1 - -
9 Edit1 Text FileName

 
Then Arrange the application design like the picture bellow :



Video Recorder Or Video Capture With Borland Delphi design Form

Type this following source code:

No
Component Event Source Code
1 Form1 OnCreate cboVideoDevices1.items.add(   VideoGrabberSrc1.VideoDevice);
VideoGrabberSrc1.Display_AutoSize := False;
2 cboVideoDevices1 OnChange    VideoGrabberSrc1.VideoDevice :=CboVideoDevices1.ItemIndex ;
3 Button1 OnClick    if CheckBox1.Checked then begin
VideoGrabberSrc1.RecordingFileName := Edit1.Text;
end
else begin
VideoGrabberSrc1.RecordingFileName := '';
4 Button2 OnClick   VideoGrabberSrc1.StopRecording;
5 Button3 OnClick VideoGrabberSrc1.StartPreview;
6 Button4 OnClick VideoGrabberSrc1.StopPreview;

This is the picture of Video Recorder Or Video Capture With Borland Delphi Application test
Note:
The video grabber component that is used in this application is shareware version so that it could not work properly (maximal), in limited random time, application will stopped working, besides that application will appear overlay text nagscreen the address of the website is www.datastead.com

  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting
 
Capture Picture /Photo Delphi Using Video Grabber Component

Capture Picture /Photo Delphi Using Video Grabber Component

Capture Picture /Photo Delphi Using Video Grabber Component
Video grabber component in Delphi can be used to capture picture/ photo the picture can be saved in to folder or database. This component has a lot of function and the function refer to camera access like video recorder, photo, video player etc. To make the Capturing picture /photo Delphi using video grabber component please follow a brief tutorial below:
Insert the component on the table bellow to the design form :
No Component Name Properties Value
1 Button1 Caption Preview
2 Button2 Caption Capture Photo
3 Label1 Caption Select Camera
4 Combobox1 - -
5 Image1 - -
6 VideoGrabber1 - -


Arrange the component like the picture bellow:



Capture Picture /Photo Delphi Using Video Grabber Component design Form


Then type this following source code

No
Component Event Source Code

Form1 OnCreate videograbber1.Display_AutoSize:=false;
combobox1.Items.add(videograbber1.VideoDevices);

Button1 OnClick videograbber1.StartPreview;

Button2 OnClick var
Picture: TBitmap;
begin
Picture:=videograbber1.GetLastFrameAsTBitmap(0, false, 0, 0, 0, 0, image1.Width, image1.Height, 0);
image1.Picture.Assign (Picture);
end;

Then run the CapturePicture /Photo Delphi Using Video Grabber by pressing run button
This is the picture of CapturePicture /Photo Delphi Using Video Grabber Application



Note:
The video grabber component that is used in this application is shareware version so that it could not work properly (maximal), in limited random time, application will stopped working, besides that application will appear overlay text nag screen the address of the website is www.datastead.com

  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting
 
no image

SMS WORKING MECHANISM

SMS WORKING MECHANISM
When user sends SMS to a number, the SMS is not directly sent to the destination number, but, first, it will enter the SMS Center (SMSC) of the telephone operator that the user used. SMS Center itself can be mean as a server that is responsible in SMS sending process in a operator. SMS that is sent in a mobile phone will enter this SMSC, and then continued to the destination number of that SMS. If the destination number is offline, SMSC will keep that SMS for a while until the destination number is active. The time in keeping the SMS depends on how long the time that had been determined by operator to keep the SMS. The number that receives the SMS will send report to SMSC that SMS has been received. The report then will be continued back to the sender number.


  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting
Step by step Overlaying Picture in Delphi 7 Using Video Grabber Component

Step by step Overlaying Picture in Delphi 7 Using Video Grabber Component

Step by step Overlaying Picture in Delphi 7 Using Video Grabber Component
This writing will discuss picture overlay technique by Delphi 7 using video grabber component.
The following component as follows,

No
Component Name Properties Value
1 Button1 Caption Start Picture Overlay 1
2 Button2 Caption Preview Video
3 Button3 Caption Start Picture Overlay 2
4 Label1 Caption Select Camera
5 ComboBox1 Text -
6 Image1 Picture Load from Folder and Chose the picture (File Type Jpg / Bmp)
7 Image2 Picture Load from Folder and Chose the picture (File Type Jpg / Bmp)
8 VideoGrabber1 - -

arranges it until become like the picture below.


The source code for this Overlaying Picture in Delphi 7 Using Video Grabber Component describe bellow:
No Component Event Source Code
 1 Form1 OnCreate combobox1.Items.Add(videograbber1.VideoDevices);
2  Button1 OnClick videograbber1.ImageOverlayEnabled:=true;
videograbber1.ImageOverlay_LeftLocation:=0;
videograbber1.ImageOverlay_TopLocation:=0 ;
videograbber1.ImageOverlay_Height:=50;
videograbber1.ImageOverlay_Width:=50;
videograbber1.SetImageOverlayFromTImage(image1);
 3 Button2 Caption videograbber1.StartPreview;
Button3 Caption videograbber1.ImageOverlayEnabled:=true;
videograbber1.ImageOverlay_LeftLocation:=270;
videograbber1.ImageOverlay_TopLocation:=0 ;
videograbber1.ImageOverlay_Height:=50;
videograbber1.ImageOverlay_Width:=50;
videograbber1.SetImageOverlayFromTImage(image2);
The following is the execution result of picture overlay application that had been made.




Note:
The video grabber component that is used in this application is shareware version so that it could not work properly (maximal), in limited random time, applicaton will stopped working, besides that application will appear overlay text nagscreen the address of the website is www.datastead.com


  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting
no image

Overlaying Picture in Delphi 7 Using Video Grabber Component

Overlaying Picture in Delphi 7 Using Video Grabber Component
Have you ever been watch television? Maybe that’s weird and silly question. The answer is absolutely yes. Next, have you ever concern that every television channel that you choose always appearing their logo, for example BBC, Al Jazeera, etc. Every channel has logo as their brand.
            Note:
The video grabber component that is used in this application is shareware version so that it could not work properly (maximal), in limited random time, applicaton will stopped working, besides that application will appear overlay text nagscreen the address of the website is www.datastead.com


  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting
Step By Step Over Lay Text In Video / Preview Webcam on Delphi 7 Using Video Grabber Component

Step By Step Over Lay Text In Video / Preview Webcam on Delphi 7 Using Video Grabber Component

Step By Step Over Lay Text In Video / Preview Webcam on Delphi 7 Using Video Grabber Component

Enter the component below into the Delphi form design

No Component Name Properties Value
1 Button1 Caption Start Overlay
2 Button2 Caption Preview Video
3 Label1 Caption Text to Overlay
4 Label2 Caption Select Camera
5 Edit1 Text www.ItsToShare.com
6 Combobox1 - -
7 VideoGrabber1 - -

arrange the design visualization of the Overlay text Delphi component become as follows. 


Type the source code program as follows:
No Component Event Source Code
1 Form1 On
Create
combobox1.Items.Add(videograbber1.VideoDevices);
2 Button1 On
Click
videograbber1.TextOverlay_Enabled:=true;
videograbber1.TextOverlay_Left:=0;
videograbber1.TextOverlay_String:=edit1.Text;
3 Button2 On
Click
videograbber1.StartPreview;
4 Edit1 On
Change
videograbber1.TextOverlay_String:=edit1.Text;

next execute the application that had been made, the result is as follows:


overlay text Delphi application test is as follows;








Note:
The video grabber component that is used in this application is shareware version so that it could not work properly (maximal), in limited random time, application will stopped working, besides that application will appear overlay text nagscreen the address of the website is www.datastead.com

  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting
 
Delete Chararter in a Text in Delphi Programming

Delete Chararter in a Text in Delphi Programming

Delete Chararter in a Text in Delphi Programming
Sometimes it is needed erasing toward certain character from a text in component label or edit, or other components. For example, when a data in the form of “my father” will be erased * character that exist so that become “my fther”, in this case, can be made a function. Give name “DeleteString” to the function, the source code:  The example of the implementation is as follows: Source Code that is typed in delete string button is:

Function DeleteString(Str: string): string;
var
  i: Integer;
begin
  i:=0;
  while i<=Length(Str) do
 if Str[i]=' a' then Delete(Str, i, 1)// ini adalah perintah utama untuk menghapus karakter “a”
    else Inc(i);
  Result:=Str;
end;




The source code on Button1 On Click

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text:=DeleteString(Edit1.Text);
end;


  I hope this writing can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting

Monday 26 September 2011

Binary to decimal and Hexa Decimal converter
            This application is used to change binary 8 bit data in to other forms that are decimal and hexadecimal. This application is used to make numeral binary conversion easier to be written in the Port Parallel that is impossible to write data in bit type format, the data that can be written to Port Parallel is Byte, Word, and DWord data.
To make binary numeral Converter Application to decimal and hexadecimal, enter the following component in the table to Form 1:

Table, the list of the Binary numeral Application Converter to the decimal and hexadecimal
No Component Properti Value
Form1 Caption BINER TO DEC AND HEXA
GroupBox1 Caption BINER
GroupBox1 Caption Hexa + Decimal
Label1 Caption D0
Label2 Caption D1
Label3 Caption D2
Label4 Caption D3
Label5 Caption D4
Label6 Caption D5
Label7 Caption D6
Label8 Caption D7
Label9 Caption Hexa
Label10 Caption Decimal
Edit1 Text 1
Edit2 Text 1
Edit3 Text 1
Edit4 Text 1
Edit5 Text 1
Edit6 Text 1
Edit7 Text 1
Edit8 Text 1
Edit9 Text Kosongkan
Edit10 Text Kosongkan
Button1 Caption Low
Button2 Caption Low
Button3 Caption Low
Button4 Caption Low
Button5 Caption Low
Button6 Caption Low
Button7 Caption Low
Button8 Caption Low
Button9 Caption CONVERT HEXA
Button10 Caption CONVERT DEC

After that arrange the visualization become:



Picture. Binary Converter Application Visualization Design to decimal and hexadecimal. 

After finishing arrange it, declare a global variable with value name integer type as the following picture below:

Picture; Global Variable declaration.
Type Source Code properly with the following table below:


Table. Binary numeral converter application visualization design to decimal and hexadecimal source code.


Component Event Source Code
Button1 OnClick value:=strtoint(edit1.Text);
if    value = 1 then
begin
value:=0;
button1.Caption:='High';
edit1.Text:=inttostr(value);
end
else
if value = 0 then
begin
value:=1;
edit1.Text:=inttostr(value);
button1.Caption:='Low';
end;
Button2 OnClick value:=strtoint(edit2.Text);
if    value = 1 then
begin
value:=0;
button2.Caption:='High';
edit2.Text:=inttostr(value);
end
else
if value = 0 then
begin
value:=1;
edit2.Text:=inttostr(value);
button2.Caption:='Low';
end;
Button3 OnClick value:=strtoint(edit3.Text);
if    value = 1 then
begin
value:=0;
button3.Caption:='High';
edit3.Text:=inttostr(value);
end
else
if value = 0 then
begin
value:=1;
edit3.Text:=inttostr(value);
button3.Caption:='Low';
end;
Button4 OnClick value:=strtoint(edit4.Text);
if    value = 1 then
begin
value:=0;
button4.Caption:='High';
edit4.Text:=inttostr(value);
end
else
if value = 0 then
begin
value:=1;
edit4.Text:=inttostr(value);
button4.Caption:='Low';
end;
Button5 OnClick value:=strtoint(edit5.Text);
if    value = 1 then
begin
value:=0;
button5.Caption:='High';
edit5.Text:=inttostr(value);
end
else
if value = 0 then
begin
value:=1;
edit5.Text:=inttostr(value);
button5.Caption:='Low';
end;
Button6 OnClick value:=strtoint(edit6.Text);
if    value = 1 then
begin
value:=0;
button6.Caption:='High';
edit6.Text:=inttostr(value);
end
else
if value = 0 then
begin
value:=1;
edit6.Text:=inttostr(value);
button6.Caption:='Low';
end;
Button7 OnClick value:=strtoint(edit7.Text);
if    value = 1 then
begin
value:=0;
button7.Caption:='High';
edit7.Text:=inttostr(value);
end
else
if value = 0 then
begin
value:=1;
edit7.Text:=inttostr(value);
button7.Caption:='Low';
end;
Button8 OnClick value:=strtoint(edit8.Text);
if    value = 1 then
begin
value:=0;
button8.Caption:='High';
edit8.Text:=inttostr(value);
end
else
if value = 0 then
begin
value:=1;
edit8.Text:=inttostr(value);
button8.Caption:='Low';
end;
Button9 OnClick var bit1,bit2,bit3,bit4,bit5,bit6,bit7,bit8,dec1,dec2,dec3,
dec4,dec5,dec6,dec7,dec8,dec_tot:integer;
begin
bit1:= strtoint(Edit1.text);
if bit1=0 then dec1:=0 else  dec1:=1;
bit2:= strtoint(Edit2.text);
if bit2=0 then dec2:=0 else dec2:=2;
bit3:= strtoint(Edit3.text);
if bit3=0 then dec3:=0 else   dec3:=4;
bit4:= strtoint(Edit4.text);
if bit4=0 then dec4:=0 else   dec4:=8;
bit5:= strtoint(Edit5.text);
if bit5=0 then dec5:=0 else   dec5:=16;
bit6:= strtoint(Edit6.text);
if bit6=0 then dec6:=0 else   dec6:=32;
bit7:= strtoint(Edit7.text);
if bit7=0 then dec7:=0 else   dec7:=64;
bit8:= strtoint(Edit8.text);
if bit8=0 then dec8:=0 else   dec8:=128;
dec_tot:=dec1+dec2+dec3+dec4+dec5+dec6+dec7+dec8;
edit10.Text:=inttostr(dec_tot);
Button10 OnClick var str1,str2,hexa : string;
begin
str1 :=Edit4.Text + Edit3.Text + Edit2.Text + Edit1.Text;
   if (str1 = '0000')then hexa :='0';
if (str1 = '0001')then hexa :='1';
if (str1 = '0010')then hexa :='2';
if (str1 = '0011')then hexa :='3';
if (str1 = '0100')then hexa :='4';
if (str1 = '0101')then hexa :='5';
if (str1 = '0110')then hexa :='6';
if (str1 = '0111')then hexa :='7';
if (str1 = '1000')then hexa :='8';
if (str1 = '1001')then hexa :='9';
if (str1 = '1010')then hexa :='A';
if (str1 = '1011')then hexa :='B';
if (str1 = '1100')then hexa :='C';
if (str1 = '1101')then hexa :='D';
if (str1 = '1110')then hexa :='E';
if (str1 = '1111')then hexa :='F';
str2 := Edit8.Text + Edit7.Text + Edit6.Text +  Edit5.Text ;
if (str2 = '0000')then hexa :='0'+hexa;
if (str2 = '0001')then hexa :='1'+hexa;
if (str2 = '0010')then hexa :='2'+hexa;
if (str2 = '0011')then hexa :='3'+hexa;
if (str2 = '0100')then hexa :='4'+hexa;
if (str2 = '0101')then hexa :='5'+hexa;
if (str2 = '0110')then hexa :='6'+hexa;
if (str2 = '0111')then hexa :='7'+hexa;
if (str2 = '1000')then hexa :='8'+hexa;
if (str2 = '1001')then hexa :='9'+hexa;
if (str2 = '1010')then hexa :='A'+hexa;
if (str2 = '1011')then hexa :='B'+hexa;
if (str2 = '1100')then hexa :='C'+hexa;
if (str2 = '1101')then hexa :='D'+hexa;
if (str2 = '1110')then hexa :='E'+hexa;
if (str2 = '1111')then hexa :='F'+hexa;
Edit9.text :=hexa;
end;



After that run, the following is the testing visualization of binary to hexa decimal and decimal Converter Application visualization design to decimal and hexadecimal that is made:




  I hope this article can give benefit to the visitors, readers, developer and me. Thanks for visiting and availability for sharing this article by pressing 
Share this on Facebook
or just press like button under this posting