自动同步变更令

Frames/BGLFme.pas

@@ -259,7 +259,7 @@ begin
   sgs := TStringList.Create;
   try
     sgs.Add(Format('filter=%s', [FBGLData.AllCloudBGLWebID]));
-    sUrl := PHPWeb.WebPath + Format('change/get/%d/list', [TProjectData(FBGLData.ProjectData).WebID]);
+    sUrl := PHPWeb.MeasureURL + Format('change/get/%d/list', [TProjectData(FBGLData.ProjectData).WebID]);
     if PHPWeb.UrlGet(sUrl, sgs, sInfo) = 1 then
       FBGLData.LoadCloudBGL(sInfo)
     else if sInfo <> '' then