android 查看线程堆栈,firemonkey

您的代码不是线程安全的。 您的线程直接访问UI控件，而不与主UI线程同步。 仅此一项就可能引起问题。

同样，应将requestToServer()的var部分中声明的所有变量移到匿名过程的var部分，因为requestToServer()不使用它们，因此它们可以完全位于线程本地。 匿名过程应该捕获的lParamList内容是lParamList内容。

尝试更多类似这样的方法：

function requestToServer(lParamList: TStringList) : string;

var

Params: TStringList;

Thread: TThread;

begin

Params := TStringList.Create;

try

Params.Assign(lParamList);

except

Params.Free;

raise;

end;

TThread.CreateAnonymousThread(

procedure

var

lHTTP: TIdHTTP;

serverResponce : string;

aObj: ISuperObject;

begin

try

try

lHTTP := TIdHTTP.Create(nil);

try

serverResponce := lHTTP.Post('http://domain.com/mjson.php', lParamList);

aObj := SO(serverResponce);

if aObj['result'].AsString = 'lr_102' then

begin

TThread.Queue(nil,

procedure

begin

form2.Label3.Text := 'Saved token expired.';

form2.Rectangle2.Visible := true;

end

);

end

else if aObj['result'].AsString = 'lr_103' then

begin

X := aObj['dta'].AsArray;

TThread.Queue(nil,

procedure

begin

form2.Label3.Text := 'Auto login.';

//load device data

form2.allDeviceListData := X;

form2.Hide;

form1.show;

end

);

end;

// globalReachedServer := true;

finally

lHTTP.Free;

end;

finally

Params.Free;

end;

except

TThread.Queue(nil,

procedure

begin

form2.Memo1.Lines.Add('errr');

end

);

end;

end

).Start;

end;