IdTCPClient  -> dTCPServer 로 파일을 보내는데...

서버가 파일을 받는 상태를 프레스바로 나타내려고 하는데..


어떻게 해야 될지 모르겠습니다.

알려주세요..

저는 현제 이렇게 코딩했습니다.
아래

procedure TfrmMain.S_ServerExecute(AThread: TIdPeerThread);
Var
   Cmd : String;
   FStream : TFileStream;
begin
     Cmd := AThread.Connection.ReadLn('',200);
     If Trim(Copy(Cmd,1,4))= 'SEND' then
     begin
          if Application.MessageBox('파일전송을 허락하시겠습니까','File전송',MB_ICONQUESTION or MB_YESNO) = IdYes then
          begin
              AThread.Connection.ReadLn('YES');
              if FileExists(Trim(Copy(Cmd,65,30))) then
                DeleteFile(Trim(Copy(Cmd,65,30)));
              FStream := TFileStream.Create(DownDir + Trim(Copy(Cmd,65,30)),fmCreate);
              AThread.Connection.ReadStream(FStream ,-1, True);  //여기가 파일수신 받은 파일있것 같은데.. 진행상태를 어떻게 나타내나요

아래는 이렇게 하면 된다고 했는데 어떻게 하는 지 모르겠음
==> ReadStream()에서요 Buffer Size를 주셔서.. 루프에 넣어주신담에 Synchronize()로 UI 처리하시면 될거같습니다. -1이믄, 걍 한방에 받는거니깐.. ^^;

ps. 성공하시길, 즐프 & 즐타


              FStream.Free;
          end;
     end
     else begin
          AThread.Connection.WriteLn('NO');
      end;

end;

알려주세요
>