其他分享
首页 > 其他分享> > Delphi Future 执行异步请求并返回请求结果

Delphi Future 执行异步请求并返回请求结果

作者:互联网

Delphi Future 执行异步请求并返回请求结果

  1. 先添加线程引用单元 System.Threading

  2. 声明一个带返回值(string类型)的方法:传入一个字符串并返回一个字符串

    function LogMsg( Msg : string):string;
    begin
    
      Result := '这是一段Future记录的日志' + Msg ;
    
    end;
    
  3. 开启一个线程并执行医生方法

var th1 : TThread;
begin

   th1 :=  TThread.CreateAnonymousThread(
           procedure
           var
             Future : IFuture<string>;
             val : string;
           begin
             Future := Ttask.Future<string>(
              function : string
              begin
                 Sleep(5000);

                 Result := LogMsg('1020-01');   //自己封装的带string返回值的方法


              end);
             val := Future.Value;   //获取 Future的返回值

             TThread.Synchronize(nil,       //线程结束后处理返回的数据
                procedure
                begin
                    Memo1.Lines.Add(val);


                end);

           end);
   th1.Start;  //执行

标签:begin,end,请求,val,Delphi,th1,Future,string
来源: https://www.cnblogs.com/Ken2018/p/15919095.html