|
|
@@ -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
|
