标签：begin end 请求 val Delphi th1 Future string

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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。