gmlib - gmlib 问题 - 搜索方向不起作用

Question

你能帮我解决这个问题吗？请参阅下面的说明。

@author Xavier Martinez (cadetill) @version 1.5.4

项目 MegaDemo

单击按钮搜索方向后，什么也没有发生。

程序 Execute 中单元 GMDirection 中的程序循环：

ExecuteScript('GetDirections', 参数); 重复 TGMGenFunc.ProcessMessages；直到 (GetIntegerField(DirectionsForm, DirectionsFormResponse) = 1); 获取RetournedData；！

Answer 1

我在 GMMap.pas 单元中临时解决了这个问题

function TGMObjects.ExecuteScript(NameFunct, Params: string): Boolean;
begin
    Result := False;

    Map.FDocLoaded := true; <<- new line

    if (csDesigning in ComponentState) or not Assigned(FMap) or
        not Map.Active or not Map.FDocLoaded then Exit;

    Result := FMap.ExecuteScript(NameFunct, Params);
end;