Android上展示firemonkey穿黑色頁面

Question

我使用的httpd從互聯網

function requestToServer(lParamList: TStringList) : string; 
var 
    userDataString : string; 
    lHTTP: TIdHTTP; 
    serverResponce : string; 
    aobj: ISuperObject; 
begin 
application.ProcessMessages; 
    TThread.CreateAnonymousThread(
    procedure 
    begin 
     lHTTP := TIdHTTP.Create(nil); 
     try 
      serverResponce := lHTTP.Post('http://domain.com/mjson.php', lParamList); 
      application.ProcessMessages; 
      aobj:= SO(serverResponce); 
      try 
      X := aobj['dta'].AsArray; 
      Except 
      form2.Memo1.Lines.Add('errr'); 
      end; 
      if aobj['result'].AsString = 'lr_102' then 
      begin 
      form2.Label3.Text:='Saved token expired.'; 
      form2.Rectangle2.Visible:=true; 
      end 
      else if aobj['result'].AsString = 'lr_103' then 
      begin 
      form2.Label3.Text:='Auto login.'; 
      //load device data 
      form2.allDeviceListData := X; 
      form2.Hide; 
      form1.show; 
      end; 
      // globalReachedServer:=true; 
     finally 
      lHTTP.Free; 
      lParamList.Free; 
     end; 

     TThread.Synchronize(nil, 
     procedure 
     begin 

     end); 
    end 
).Start(); 
end; 

要求的一些數據，但之後達到這一功能 應用程序顯示一個黑色的頁面，不做任何事情，直到手動關閉

我該如何在背景上做網絡請求，並且掛在火猴上？ 什麼是REST使用REST更好地訪問Web服務？

Answer 1

您的代碼不是線程安全的。您的線程直接訪問UI控件而無需與主UI線程同步。這一點可能會導致問題。

此外，所有在requestToServer()的var部分聲明的變量應該被移動到替代匿名方法的var部分，因爲requestToServer()不使用他們，因此他們可以完全本地的線程來代替。匿名程序應該捕獲的唯一內容是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;