Oggi costruiamo una semplice applicazione che utilizza Google Maps per localizzare degli indirizzi, ottenere indicazioni stradali, ecc.
Per prima cosa apriamo un nuovo progetto di Delphi ed inseriamo tre etichette di tipo TLabel, rinominiamole rispettivamente in lblIndirizzo, lblCap e lblCitta, mentre in Caption inseriamo Indirizzo, Cap e Città; successivamente inseriamo tre caselle di testo di tipo TEdit, rinominiamole in edtIndirizzo, edtCap ed edtCitta ed eliminiamo il testo presente nella proprietà Text. Infine inseriamo un pulsante di tipo TBtnBtn e rinominiamolo in btnCerca, assegnamo alla caption il testo Cerca…, a questo punto visualizziamo la form in modalità Codice (Code) e, tra le variabili situate prima della sezione implementation, dichiariamo le seguenti:
google, indirizzo, citta, cap: string;
Inseriamo ShellApi fra le uses e ritorniamo in visualizzazione Design, facciamo doppio click sul pulsante ed digitiamo il seguente codice:
procedure TForm1.btnCercaClick(Sender: TObject);
begin
indirizzo:=edtIndirizzo.Text;
citta:=edtCitta.Text;
cap:=edtCap.Text;
google:='http://maps.google.it/maps?f=q&hl=it&q=';
google:=google+indirizzo+' ,+ ' + cap + '+'+citta;
ShellExecute(GetDesktopWindow(), 'open', PChar(google), nil, nil, SW_SHOWNORMAL);
end;
A questo punto non ci resta che compilare la nostra applicazione, avviarla e provarla.
Cosa molto importante, per vedere il risultato dell’applicazione appena presentata è necessario che sia attiva la connessione ad internet.
