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

Question

你能帮我解决这个问题吗？见下文的说明。

@作者Xavier Martinez (学员)@版本1.5.4

普罗吉特MegaDemo

单击“搜索方向”按钮后，什么也不会发生。

在过程执行中，单元GMDirection中的程序周期：

ExecuteScript('GetDirections'，Params)；重复TGMGenFunc.ProcessMessages；直到(GetIntegerField(DirectionsForm，DirectionsFormResponse) = 1)；GetRetournedData;！

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;