delphi XE5 - возможность посмотреть потом WMSConnectionString

Пользователь

Сообщений: 168 Регистрация: 18.01.2016

24.03.2016 11:45:12

Добрый день !

При подключении WMS разными способами

- b:=MapView1.MapOpen(aWMSConnectionString, true);
- k:=MapView1.MapWMS.Append(aWMSConnectionString);

есть ли возможность посмотреть потом WMSConnectionString ?

MapView1.MapWMS[k].WMSName - всегда пустое

MapView1.MapWMS[k] - тут данных нет никаких по WMSConnectionString

Алексей Азаренко Пользователь Сообщений: 168 Регистрация: 18.01.2016	#2 24.03.2016 11:59:32 мне это нужно, чтоб сохранять в файл текущее представление карты

Роман Твердов

Пользователь

Сообщений: 239 Регистрация: 20.04.2009

24.03.2016 15:08:14

Добрый день!

Цитата
- k:=MapView1.MapWMS.Append(aWMSConnectionString);

У Вас возвращает не 0? Если 0, то проверяйте строку подключения.

Код

TMapWmsAccess.WMSName 
property WMSName: string; 
Свойство возвращает имя WMS-соединения. 
Для закрытой карты свойство возвращает пустую строку.

Попробуйте следующую строку подключения:

Код

var
  aWMSConnectionString : string;
begin
  aWMSConnectionString := 'WMTS#IP=http://gisserver.info/GISWebServiceSE/service.php&ID1=Osm&Name1=Карта России (OSM)&Format=image/png&Matrix=urn:ogc:def:wkss:OGC:1.0:GoogleMapsCompatible';
  mvMap.MapWMS.Append(aWMSConnectionString);
  ShowMessage(mvMap.MapWMS[1].WMSName);
end;

Для сборки строки можно воспользоваться диалогом TMapWMSBuildURLDialog.

Изменено: Роман Твердов - 24.03.2016 15:09:07

Алексей Азаренко Пользователь Сообщений: 168 Регистрация: 18.01.2016	#4 24.03.2016 15:28:40 Все оказалось очень просто.. я использовал такую конструкцию for I := 0 to MapView1.MapWMS.WMSCount-1 do oMapWmsAccess:=MapView1.MapWMS.MapWMSAccess[i]; а оказалось (ShowMessage(mvMap.MapWMS[1].WMSName); ) надо начинать с единицы !!!!! for I := 1 to MapView1.MapWMS.WMSCount do ---------------------------- PS: я не могу только понять, почему все остальное работает с 0, а WMS работает с 1 .... в жизни бы не догадался , что надо с единицы начинать нумерацию..