책보고 따라했는데 안되네요..
되긴 되는데 10번 다운 클릭하면 1번 되거든요?
이거 왜 이런지 모르겠어요..
파일 크기가 작아서 다운이 넘 빨리되서 표시가 안되는건지 어쩐건지..
만약에 크기가 작아서 그렇다면..
프로그래스바를 좀 천천히 움직일수는 없나요?
그럼 보이긴 할텐데..
아시는 분 답변주세요..
참고로 제가 코딩한 소스는..


procedure TForm1.Button2Click(Sender: TObject);
var
    Fp : TextFile;
    FileString : String;
begin
    BytesToTransfer  :=IdFTP1.Size('Update.List');
    ProgressBar1.Max := BytesToTransfer;

    IdFTP1.Get('Update.List', '.ListUpdate.List', true);
    AssignFile( Fp,'.ListUpdate.List');
    Reset(Fp);

    While NOT EOF(Fp) Do
    Begin
        ReadLn( Fp,FileString );
        SplitFileData(FileString);
    End;

    CloseFile(Fp);
end;

procedure TForm1.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  ProgressBar1.Position := AWorkCount;
end;


procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
    if AWorkCountMax > 0 then ProgressBar1.Max := AWorkCountMax
    else ProgressBar1.Max := BytesToTransfer;
end;

procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
    BytesToTransfer := 0;
    ProgressBar1.Position := 0;
end;


이거예요..
답변 부탁합니다..(__)