如何通过progressbar显示某个过程的执行进度？

Question

我是直接在客户端调用中间服务器的过程，假如通过线程操作的话如何实现？procedure Form1.BitBtn1Click(Sender: TObject);
begin
  SocketConnection1.AppServer.Updata(savename,sdata);//调用远端过程上传
end;

Answer 1

function MyUpdate(Parameter: Pointer): Integer;
var
  svr: Variant;
begin
  Result := 0;
  CoGetInterfaceAndReleaseStream(IStream(Parameter), IDispatch, svr);
  svr.Updata(savename,sdata);
end;procedure TForm1.FormCreate(Sender: TObject);
var
  stm: IStream;
  threadId: DWORD;
begin
  CoMarshalInterThreadInterfaceInStream(IDispatch, SocketConnection1.GetServer as IDispatch, stm);
  BeginThread(nil, 0, MyUpdate, Pointer(stm), 0, threadId);
end;