- Код: Выделить всё
begin
ResultURL:=GetURLBase+RoundEx(GetLLon,15)+','+RoundEx(GetBLat,15)+','+RoundEx(GetRLon,15)+','+RoundEx(GetTLat,15);
end.
params.txt параметр TIME меняйте на нужную дату, параметр LAYERS меняйте на MODIS_Fires_Aqua, MODIS_Fires_Terra, VIIRS_SNPP_Fires_375m_Day, VIIRS_SNPP_Fires_375m_Night
- Код: Выделить всё
DefURLBase=https://gibs-c.earthdata.nasa.gov/wms/wms.php?TIME=2018-04-20&SERVICE=WMS&VERSION=1.1.1&REQUEST=GetMap&FORMAT=image/png&TRANSPARENT=true&LAYERS=MODIS_Fires_All&WIDTH=256&HEIGHT=256&SRS=EPSG:4326&STYLES=&BBOX=
ContentType=image/png
Ext=.png
если это устроит - любую сумму в поддержку проекта