Здравствуйте!
Подключаюсь к GIS Server так:
strLogin := Login;
strPassw := Pass;
If form_main.MapGisServer1.OpenConnect(strHost, 2047) <> 0 then
begin
If (form_main.MapGisServer1.StringToHash(strPassw, strPassw)<>0) then
res := form_main.MapGisServer1.RegisterUser(form_main.MapGisServer1.OpenConnect(strHost, 2047), strLogin, strPassw)
...
alias := form_main.MapGisServer1.BuildAliasName(form_main.MapGisServer1.HostName[1], form_main.MapGisServer1.PortNumber[1], alias);
form_main.mvMap.MapOpen(alias, true);
Отключаюсь так:
ProcUzor.CloseMap();
form_main.MapGisServer1.CloseConnect(1);
В результате в log файле следующая запись:
14:59:41 [001] Connection with a server is open. Free memory (Kb) = 14853496
14:59:41 [001] Begin registration of the user. User = 1@GEO24
14:59:41 [001] Registration of the user. User = 1@GEO24
14:59:51 [001] User = 1. Open map. Name = 2A76D042-70D8-4A03-88C5-D
14:59:51 [001] [01] Open map. number = 1. Path = D:\Karta\2A76D042-70D8-4A03-88C5-D\Karta.map
14:59:51 [001] [01] Open map. Rsc = D:\Karta\2A76D042-70D8-4A03-88C5-D\Uzor.rsc
14:59:58 [001] [01] Close map, number = 1
14:59:58 [001] User = 1. Open map. Name = AB7CC3DC-0F62-49E9-850D-3
14:59:58 [001] [01] Open map. number = 1. Path = D:\Karta\AB7CC3DC-0F62-49E9-850D-3\Karta\Karta.map
14:59:58 [001] [01] Open map. Rsc = D:\Karta\AB7CC3DC-0F62-49E9-850D-3\Karta\Uzor.rsc
15:00:05 [001] [01] Close map, number = 1
---> 15:00:06 [001] Read socket error. An existing connection was forcibly closed by the remote host // Не понятно почему здесь ошибка?
15:00:06 [001] Connection with a server is close. force = 0
Подключаюсь к GIS Server так:
strLogin := Login;
strPassw := Pass;
If form_main.MapGisServer1.OpenConnect(strHost, 2047) <> 0 then
begin
If (form_main.MapGisServer1.StringToHash(strPassw, strPassw)<>0) then
res := form_main.MapGisServer1.RegisterUser(form_main.MapGisServer1.OpenConnect(strHost, 2047), strLogin, strPassw)
...
alias := form_main.MapGisServer1.BuildAliasName(form_main.MapGisServer1.HostName[1], form_main.MapGisServer1.PortNumber[1], alias);
form_main.mvMap.MapOpen(alias, true);
Отключаюсь так:
ProcUzor.CloseMap();
form_main.MapGisServer1.CloseConnect(1);
В результате в log файле следующая запись:
14:59:41 [001] Connection with a server is open. Free memory (Kb) = 14853496
14:59:41 [001] Begin registration of the user. User = 1@GEO24
14:59:41 [001] Registration of the user. User = 1@GEO24
14:59:51 [001] User = 1. Open map. Name = 2A76D042-70D8-4A03-88C5-D
14:59:51 [001] [01] Open map. number = 1. Path = D:\Karta\2A76D042-70D8-4A03-88C5-D\Karta.map
14:59:51 [001] [01] Open map. Rsc = D:\Karta\2A76D042-70D8-4A03-88C5-D\Uzor.rsc
14:59:58 [001] [01] Close map, number = 1
14:59:58 [001] User = 1. Open map. Name = AB7CC3DC-0F62-49E9-850D-3
14:59:58 [001] [01] Open map. number = 1. Path = D:\Karta\AB7CC3DC-0F62-49E9-850D-3\Karta\Karta.map
14:59:58 [001] [01] Open map. Rsc = D:\Karta\AB7CC3DC-0F62-49E9-850D-3\Karta\Uzor.rsc
15:00:05 [001] [01] Close map, number = 1
---> 15:00:06 [001] Read socket error. An existing connection was forcibly closed by the remote host // Не понятно почему здесь ошибка?
15:00:06 [001] Connection with a server is close. force = 0