Home > IT, Utilizare > Crearea unei aplicatii in Turbo Delphi Explorer

Crearea unei aplicatii in Turbo Delphi Explorer

Delphi este un limbaj de programare, produs iniţial de firma americană Borland, iar apoi de CodeGear, o firmă deţinută de Borland. În 2008 a fost anunţată vânzarea CodeGear către Embarcadero Technologies.
Limbajul Delphi este varianta celor de la Borland de Object Pascal (Pascal cu obiecte), care este evoluţia limbajului Pascal, creat în 1970 ca limbaj de programare cu scop didactic. Iniţial a fost produs pentru sistemele de operare Windows, apoi a urmat o perioadă în care se producea şi o versiune pentru GNU/Linux (denumită Kylix).
Până în anul 2008, versiunile existente au fost cea pentru aplicaţii native Windows şi cea pentru .NET Framework. Scopul principal pentru care Delphi a apărut a fost crearea rapidă a aplicaţiilor pentru Windows. Un important atu de care Delphi a beneficiat de la început a fost IDEul (Integrated Development Environment) cu care era distribuit. Acesta, fiind de tip RAD (Rapid Application Development), permitea crearea unei aplicaţii grafice minimale pentru Windows cu doar câteva click-uri de mouse, depăşind la acest capitol toate aplicaţiile de pe piaţă la ora aceea.
Cu timpul, numele Delphi a început să fie folosit şi pentru IDE, nu doar pentru limbaj. Tipul de aplicaţie pentru care Delphi este folosit cel mai des este VCL Forms Application, bazată pe Visual Component Library, un set de librării create de Borland pentru dezvoltarea de aplicaţii Windows.

01

Pentru crearea unui proiect nou se accesează meniul File, comanda VCL Forms Application din submeniul New:
02

Implicit este creată o fereastră denumită Form1:
03

Din bara de componente Tool Palette se adaugă un buton TButton prin drag&drop sau prin selectare din Tool Palette, apoi prin indicare în fereastra Form1:
04

Butonul creat va avea numele Button1 şi va avea eticheta implicită cu acelaşi nume:
05

Se va adauga o fereastră de dialog-deschidere fişier TOPenDialog în acelaşi mod descris pentru buton:
06

Componentele pot fi mutate oriunde în Form1 sau redimensionate precum se poate vedea Button1:
07

Alte proprietăţi pot fi modificate din Object Inspector:
08

Modificările au loc instantaneu – se poate vedea schimbarea etichetei afişate pe buton din Button1 în Upload a file…
09

Se poate selecta tab-ul Events din Object Inspector pentru adaăgarea de evenimente declanşate de obiectul selectat în Form1. Pentru Button1 eu voi ataşa un eveniment la apăsarea pe el cu mouse-ul, denumit OnClick. Voi face dublu-click pe Button1 în Form1 sau în Object Inspector în dreptul evenimentului OnClick:
10

În acest moment se deschide editorul codului sursă, cu procedura Button1Click creată pentru Button1. Mai rămâne scrierea operaţiunilor ce se doresc a se efectua la apăsarea pe butonul Button1:
11

Se poate vedea funcţia de autocompletare a codului sursă:
12

Am utilizat procedura ShellExecute din unit-ul ShellApi astfel:
If OpenDialog1.Execute Then
ShellExecute(Handle,'open',
PChar(IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)))+'VirusTotalUpload.exe'),
PChar(OpenDialog1.FileName),Nil, SW_ShowNormal);

Explicarea acesteia este următoarea: dacă (IF) este executată comanda OpenDialog1 (.Execute) atunci (Then) este lansat în execuţie (ShellExecute) programul VirusTotalUpload.exe din directorul aplicaţiei create de noi – ExtractFilePath(ParamStr(0)). Acestui program lansat (VirusTotalUpload.exe) îi este transmis ca parametru în linia de comandă fişierul returnat de OpenDialog1.Execute şi anume OpenDialog1.FileName. Pentru lansarea fişierului VirusTotalUpload.exe normal se transmite SW_ShowNormal ca ultim parametru pentru ShellExecute:

13

Este necesar adăugarea unit-ului ShellApi folosit în declararea interfeţelor programului (interface):
14

Salvarea proiectului se face prin comanda Save All din meniul File (comandă rapidă – Shift+Ctrl+S):
15

Se vor preciza numele fişierelor Unit1.pas:
16

şi Project1.bdsproj:
17

Pentru a putea testa programul este necesară obţinerea fişierului VirusTotalUpload.exe. Acesta este disponibil pentru download pe site-ul virustotal.com:
18

Accesăm link-ul Email/Uploader:
19

Derulăm pagina în jos:
20

După accesarea link-ului Download salvăm fişierul VTUploader2.0Setup.exe:
21

Alegem locaţia de salvare:
22

Vom lansa programul de instalare pentru VirusTotalUpload:
23

Confirmăm termenii şi condiţiile de utilizare:
24

Selectăm toate componentele de instalare:
25

Se va selecta locaţia de instalare implicită, C:\Program Files\VirusTotalUploader2:
26

Închidem programul de instalare:
27

Copiem fişierul VirusTotalUpload2.exe din directorul instalat în directorul unde am creat aplicaţia noastră, cu numele precizat în proiect VirusTotalUpload.exe:
28

Putem reveni la Turbo Delphi şi lansa comanda Run din meniul Run:
29

Aplicaţia proaspăt creată este lansată în execuţie:
30

Vom testa funcţionalitatea aplicaţiei prin apăsarea pe butonul din fereastră – Upload a file… Se deschide o fereastra în care vom alege un fişier pentru trimitere către site-ul virustotal.com spre scanare de viruşi:
31

Este lansat VirusTotalUpload.exe şi fişierul selectat Internet_TV_Setup.exe este transmis:
32

Se va deschide browser-ul implicit şi se va afişa rezultatul oferit de virustotal.com privind detecţia de viruşi:
33

Fişierul transmis are un scor de 4/40, adică 10% din antiviruşii cu care a fost scanat au returnat pozitiv:
34

La derularea paginii se pot identifica antiviruşii care au returnat pozitiv: MCAfee-GW-Edition, NOD32, Panda şi VirusBuster:
35

În acest moment putem copia pe un stick fişierele Project1.exe şi VirusTotalUpload.exe şi putem verifica pe orice calculator orice fişier suspect a fi virus.

Categories: IT, Utilizare
  1. No comments yet.
  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: