Вот этот код
procedure Tform_Edtxt.SpeedButton1Click(Sender: TObject);
Var
ss : string;
wname : array [0..80] of Char;
begin
Radius := StrToFloat(Edit1.Text);
form_main.MapSelectObjectRsc.ExecuteForMapObj(form_main.MapObj2, true);
loc_new := mapObjectLocal(form_main.MapObj2.ObjHandle); // имеющаяся локализация
kd_new := mapObjectExcode(form_main.MapObj2.ObjHandle);
ho := mapCreateObject(form_main.mvMap.MapHandle,1,KM_IDDOUBLE2,0);
mapReadCopyObject(ho,form_main.MapObj1.ObjHandle);
mapInsideZoneObjectEx(Radius,ho, 0, 0, Radius/15, 3);
mapRegisterObject(ho,kd_new, loc_new);
mapObjectLocal(ho);
mapPointCount(ho, 0);
MetricCount := mapPointCount(ho, 0);
mapCommitObjectAsNew(ho);
IDObject := copy(GetGuid,2,25);
mapAppendSemanticUn(ho,10,PChar(IDObject),25);
mapCommitObject(ho);
mapFreeObject(ho);
form_main.mvMap.Repaint;
работает отлично на локальном компьютере
работает очень хорошо на файловом корпоративном сервере
работает более менее на WebDav если ОС на компьютере пользователя Windows 7
не работает совсем на WebDav если ОС на компьютере пользователя Windows 8 и выше
Почему?
procedure Tform_Edtxt.SpeedButton1Click(Sender: TObject);
Var
ss : string;
wname : array [0..80] of Char;
begin
Radius := StrToFloat(Edit1.Text);
form_main.MapSelectObjectRsc.ExecuteForMapObj(form_main.MapObj2, true);
loc_new := mapObjectLocal(form_main.MapObj2.ObjHandle); // имеющаяся локализация
kd_new := mapObjectExcode(form_main.MapObj2.ObjHandle);
ho := mapCreateObject(form_main.mvMap.MapHandle,1,KM_IDDOUBLE2,0);
mapReadCopyObject(ho,form_main.MapObj1.ObjHandle);
mapInsideZoneObjectEx(Radius,ho, 0, 0, Radius/15, 3);
mapRegisterObject(ho,kd_new, loc_new);
mapObjectLocal(ho);
mapPointCount(ho, 0);
MetricCount := mapPointCount(ho, 0);
mapCommitObjectAsNew(ho);
IDObject := copy(GetGuid,2,25);
mapAppendSemanticUn(ho,10,PChar(IDObject),25);
mapCommitObject(ho);
mapFreeObject(ho);
form_main.mvMap.Repaint;
работает отлично на локальном компьютере
работает очень хорошо на файловом корпоративном сервере
работает более менее на WebDav если ОС на компьютере пользователя Windows 7
не работает совсем на WebDav если ОС на компьютере пользователя Windows 8 и выше
Почему?