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

Serveur de tuiles distant

Vous êtes ici :TECNativeMap

Par défaut TECNativeMap utilise son propre serveur de tuiles mais nous pouvons le déporter sur un poste distant.

Pour notre démo nous utilisons les WebSockets d'Andre Mussche

C'est une démo minimaliste qui n'a pas la prétention d'être un tutorial pour l'utilisation des WebSockets !

25

Serveur de tuiles

Fig. 79 Server

Vous pouvez indiquer un cache pour limiter les connexions internet

18

Notre serveur n'a pas besoin du composant TECNativeMap juste de la partie serveur pour cela nous allons utiliser la classe TNativeMapServer de l'unité uecNativeTileServer

procedure TForm1.FormCreate(Sender: TObject);
begin

// create tile server ( unit uECNativeTileServer )
FMapServer := TNativeMapServer.Create(nil);
FMapServer.OnLoadTile := doOnLoadTile;
FMapServer.TileServer := tsOSM;

// create WebSocket server
server := TIdWebsocketServer.Create(Self);
server.SocketIO.OnSocketIOMsg := doMessage;

end;


// request tile from client : ^Tile|x|y|z
procedure TForm1.doMessage(const ASocket: ISocketIOContext; const aText:string; const aCallback: ISocketIOCallback) ;
var Text:string;
sxStream:TMemoryStream;
ix,iy,iz,isz:integer;
begin

TThread.synchronize(nil,
procedure
begin

Text := aText;

if pos('^Tile',text)>0 then
begin
StrToken(text,'|');

ix:=StrToIntDef(StrToken(text,'|'),0);
iy:=StrToIntDef(StrToken(text,'|'),0);
iz:=StrToIntDef(StrToken(text,'|'),0);
sxStream:=TMemoryStream.Create;

// request tile
if FMapServer.GetStreamTile(sxStream,ix,iy,iz) then
begin
// if tile is ready send to client
ASocket.Send('^Tile|'+inttostr(ix)+'|'+inttostr(iy)+'|'+inttostr(iz)+'|'+EncodeStreamTo64(sxStream));
end;

sxStream.Free;
end;

end);
end;


// tile is ready now, send to clients
procedure TForm1.doOnLoadTile(sender: TObject; const x, y, z, t: integer);
var TileStream: TMemoryStream;
begin

TThread.synchronize(nil,
procedure
begin

// send response : ^Tile|x|y|z|Base64-Stream-Data-Tile
server.SendMessageToAll('^Tile|'+inttostr(x)+'|'+inttostr(y)+'|'+inttostr(z)+'|'+EncodeStreamTo64(TileStream));

end);


end;


// connect / deconnect server
procedure TForm1.btConnectClick(Sender: TObject);
begin

if not Server.Active then
begin
Server.DefaultPort:=StrtoIntDef(edPortServer.Text, 8080);
end;
Server.Active:=not Server.Active;
if Server.Active then btConnect.Caption:='Stop server' else btConnect.Caption:='Start server';

end;

// set cache
procedure TForm1.ckCacheClick(Sender: TObject);
begin
if ckCache.Checked then
begin
FMapServer.LocalCache:=edCache.Text;
end else
begin
FMapServer.LocalCache:='';
end;
end;


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if CanClose then
begin
FMapServer.Free;
end;
end;

Client

Fig. 80 Client

Le client n'a pas besoin d'avoir un accès internet, il doit juste pouvoir se connecter à un poste local qui lui aura accès à internet et sur lequel tournera notre serveur.

procedure TForm2.FormCreate(Sender: TObject);
begin

// manual management tiles as stream
map.TileServerInfo.getTileStream := getTileStream;
// the name will be uses as subdirectory in cache
map.TileServerInfo.Name := 'MyMAP';
// important to specify a manual management tiles
map.TileServer := tsOwnerDraw;

// do the same for the tiles low resolutions
map.LowTileServerinfo.GetTileStream := getLowTileStream;
map.LowTileServerInfo.Name := 'MyMAP';
map.LowTileServer := tsOwnerDraw;

// create WebSocket clients for communication with server
client := TidHTTPWebSocketClient.Create(self);
client.SocketIOCompatible := true;
client.SocketIO.OnSocketIOMsg := doMessage;

// client for low tiles
client2 := TidHTTPWebSocketClient.Create(self);
client2.SocketIOCompatible := true;
client2.SocketIO.OnSocketIOMsg := doLowMessage;

end;


// asks for a tile
procedure TForm2.getTileStream(var TileStream: TMemoryStream;
const x, y, z: integer);
begin

// send request to the server : ^Tile|x|y|z
client.SocketIO.Send('^Tile|' + inttostr(x) + '|' + inttostr(y) + '|' + inttostr(z));

end;

// asks for a tile low resolution
procedure TForm2.getLowTileStream(var TileStream: TMemoryStream;
const x, y, z: integer);
begin

client2.SocketIO.Send('^Tile|' + inttostr(x) + '|' + inttostr(y) + '|' + inttostr(z));

end;


// response from server, get tile : ^Tile|x|y|z|Base64-Stream-Data-Tile
procedure TForm2.doMessage(const ASocket: ISocketIOContext; const aText: string;
const aCallback: ISocketIOCallback);
var
Text: string;
sxStream: TMemoryStream;
ix, iy, iz: integer;
begin


Text := aText;

if pos('^Tile', Text) > 0 then
begin
StrToken(Text, '|');
ix := StrToIntDef(StrToken(Text, '|'), 0);
iy := StrToIntDef(StrToken(Text, '|'), 0);
iz := StrToIntDef(StrToken(Text, '|'), 0);
sxStream := TMemoryStream.Create;
if Decode64ToStream(Text, sxStream) then
begin
map.AddStreamTile(sxStream, ix, iy, iz);
end;
sxStream.Free;
end;


end;

// response from server for low tile, get tile : ^Tile|x|y|z|Base64-Stream-Data-Tile
procedure TForm2.doLowMessage(const ASocket: ISocketIOContext; const aText: string;
const aCallback: ISocketIOCallback);
var
Text: string;
sxStream: TMemoryStream;
ix, iy, iz: integer;
begin


Text := aText;

if pos('^Tile', Text) > 0 then
begin
StrToken(Text, '|');
ix := StrToIntDef(StrToken(Text, '|'), 0);
iy := StrToIntDef(StrToken(Text, '|'), 0);
iz := StrToIntDef(StrToken(Text, '|'), 0);
sxStream := TMemoryStream.Create;
if Decode64ToStream(Text, sxStream) then
begin
map.AddStreamLowTile(sxStream, ix, iy, iz);
end;
sxStream.Free;
end;



end;


// connect / deconnect from server
procedure TForm2.btConnectClick(Sender: TObject);
begin

if not client.Connected then
begin
client.Host := edIPServer.Text;
client.Port := StrToIntDef(edPortServer.Text, 8080);
client.Connect;

client2.Host := edIPServer.Text;
client2.Port := StrToIntDef(edPortServer.Text, 8080);
client2.Connect;
end
else
begin
client.Disconnect(false);
client2.Disconnect(false);
end;

if client.Connected then btConnect.Caption:='Stop client' else btConnect.Caption:='Start client';

end;

// set cache
procedure TForm2.ckCacheClick(Sender: TObject);
begin
if ckCache.Checked then
begin
Map.LocalCache:=edCache.Text;
end else
begin
Map.LocalCache:='';
end;
end;

Le client peut lui aussi avoir son propre cache de tuiles.

19
Aller à la page
Composant Delphi / Google Maps / OpenStreetMap / Leaflet  / Mappilary© 2016 ESCOT-SEP Christophe - Réalisé avec Help&Web - RSS - RSS - Google+