Composant Delphi / Google Maps / OpenStreetMap / Leaflet / Mappilary / Native Maps 100% Delphi 0% WebBrowser 0% Javascript

TECVelib

Vous êtes ici :Autres composants

English

ECMap
Achat - Contact
Licence d'utilisation
Installation
TECMap
1. Positionnement
2. Type de carte
3. Contrôles
4. Localisation
5. Places
6. Import/Export
7. Overlays
  1. Markers
    1. Mobiles
  2. InfoWindows
  3. Labels
  4. Route
  5. Layers
  6. Pois
8. Groupes
9. StreetView
10. EarthView
11. Panoramio
12. DistanceMatrix
TECNativeMap
Autres composants
1. TECCesiumMap
2. TECMapAdressEdit
3. TECStaticMap
4. TECVelib
Programmation

Contactez-moi pour obtenir une version de test du composant

Sommaire

TECVelib est une classe qui vous donne accès à l'api des Vélos en livre-service JCDecaux (Vélib)

Fig. 182 DemoVelib

TECVelib

function getContracts : integer;

Récupére l'ensemble des contrats, ils sont stockés dans le tableau Contracts
Retourne le nombre de contrats, accessible aussi au travers de la propriété ContractsCount

function getAllStations:integer;

Récupére l'ensemble des stations de tous les contrats, accessible dans le tableau Stations
Retourne le nombre de stations

function getContractStations(const Contract:string):integer;

Récupére l'ensemble des stations pour un contrat, accessible dans le tableau Stations
Retourne le nombre de stations

function InfoStation(const Contract: string; const Station: TECVelibStation): boolean;

Obtient les informations d'une station liée à un contrat

property ApiKey: string;

Une clé d'api est nécessaire, elle est gratuite il vous suffit de vous enregistrer sur le site
TECVelib possède sa propre clef mais il est préférable que chacun enregistre la sienne.

property Stations : TECVelibStations;

Liste des stations (voir getAllStations et getContractStations)

property Contracts[index:integer] : TECVelibContractInfo;

Liste des contrats (voir getContracts)

property ContractsCount:integer;

Nombre de contrats

Exemple d'utilisation

// Delphi map component ECMap

// use TECVElib

FECVelib := TECVelib.Create;

// get stations in Paris
FECVelib.getContractStation('Paris');

// set stations on map
...
var i : integer;
id :integer;
Station : TECVelibStation;
Poi : TECMapPoi;

for i:=0 to FVelib.Stations.count-1 do
begin
begin

Station := FECVelib.Stations[i];

id := map.Pois.add(Station.latitude,Station.Longitude);

Poi := map.Pois[id];

Poi.caption := Station.Name;

end;

Aller à la page