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

TECVelib

you are here :Autres composants

Français

ECMap
Purchase - Contact
Use License
Installation
TECMap
1. Positioning
2. Map Type
3. Controls
4. Location
5. Places
6. Import / Export
7. Overlays
  1. Markers
    1. Mobile
  2. InfoWindow
  3. Labels
  4. Road
  5. Layers
  6. Pois
8. Groups
9. StreetView
10. EarthView
11. Panoramio
12. DistanceMatrix
TECNativeMap
1. Offline mode
2. Styles
3. Multi view
4. Remote tile server
5. Location
6. Import/Export
7. High resolution
8. Shapes
9. Roads
10. Layers
11. Android
12. iOS
Autres composants
1. TECCesiumMap
2. TECMapAdressEdit
3. TECStaticMap
4. TECVelib
Programming

Contact me to get a test version of the component

Summary

TECVelib is a class that gives you access to the api of Self-service bicycles JCDecaux (Vélib)

Fig. 183 DemoVelib

TECVelib

function getContracts : integer;

Retrieves all the contracts, they are stored in the array Contracts
Returns the number of contracts, accessible also through the property ContractsCount

function getAllStations:integer;

Retrieves all the stations of all contracts, accessible in the table Stations
Returns the number of stations

function getContractStations(const Contract:string):integer;

Retrieves all of the stations for a contract, available in the table Stations
Returns the number of stations

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

Gets the station a contract-related information

property ApiKey: string;

An api key is required, it is free just register on the site
TECVelib has its own key but it is preferable that each uses its own.

property Stations : TECVelibStations;

List of stations (see getAllStations et getContractStations)

property Contracts[index:integer] : TECVelibContractInfo;

List of contracts (see getContracts)

property ContractsCount:integer;

Number of contracts

Example of use

// 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;

go to page