양동욱 wrote:

> 안녕하세요.

> 델파이 초보입니다.

> 제가 원하는 것은

> 하드에 있는 파일을 플로피 디스켓으로 복사 하는동안 복사 진행과정을

> ProgressBar로 보여주려고 합니다. 그런데 안되네요.

> 정확한 소스를 보고 싶은데.....좀 도와 주세요.

>



에구 델파이 코리아에 참고하시라고 적어 놓구 왔더만 여기도 있네요..



혹시나 하니까 다시 적을께요..



뭐 윈도우즈 자체에서 제공하는 API를 사용한 복사를 하면 윈도우 탐색기에서 복사 형태의 프로그래시브바가 생성되고요.



전 예전에 StatusBar에 ProgressBar를 나타내 복사 상황을 보여주었던 예제가 있네요..



참고 하세요..



procedure TForm1.Button1Click(Sender: TObject);

var

FromStream, ToStream: TFileStream;

BytesToCopy: LongInt;

begin

FromStream := TFileStream.Create(Edit1.Text, fmOpenRead);

ToStream := TFileStream.Create(Edit2.Text, fmCreate or fmOpenWrite);

{ Set up Statusbar control }

StatusBar1.SimplePanel := True;

StatusBar1.SizeGrip := False;

StatusBar1.SimpleText := 'Saving to ' + Edit2.Text;

StatusBar1.Refresh; // ensure the text is displayed

try

with TProgressBar.Create(Self) do

try

{ Position the progress bar within the

status bar on the right side. }

Top := Top + 3;

Left := StatusBar1.Width - Width;

Height := Height - 3;

Parent := StatusBar1;

{ Set small portions for the copy steps. }

Step := FromStream.Size div 1000;

Max := FromStream.Size;

BytesToCopy := Step;

{ Display statistics. }

lblStep.Caption := 'Step: ' + InttoStr(Step);

lblSize.Caption := 'From Stream size: ' + InttoStr(FromStream.Size);

lblMin.Caption := 'Min: ' + InttoStr(Min);

lblMax.Caption := 'Max: ' + InttoStr(Max);

{ Perform the stream copy. }

while (ToStream.Position + BytesToCopy <= FromStream.Size) do

begin

ToStream.CopyFrom(FromStream, BytesToCopy);

StepIt;

Application.ProcessMessages;

end;

{ Copy remaining bytes }

ToStream.CopyFrom(FromStream, FromStream.Size - ToStream.Size);

Position := ToStream.Size;

finally

StatusBar1.SimpleText := '';

Free;

end;

finally

ToStream.Free;

FromStream.Free;

end;

end;