Копирование файла и progressbar

[VenMaster]

Как реолизовать процесс копирования файла имея на форме Button,OpenDialog и progressbar???

[eoln]

http://programmersforum.ru/showthread.php?t=17690

[VenMaster]

Тогда у меня вопросик: как через opendialog узнать размер выбранного файла????

[Denager]

Сообщение от VenMaster

Тогда у меня вопросик: как через opendialog узнать размер выбранного файла????

function GetFileSize1(FileName: String): Integer;
var
  FS: TFileStream;
begin
  try
    FS := TFileStream.Create(Filename, fmOpenRead);
  except
    Result := -1;
  end;
  if Result <> -1 then Result := FS.Size;
  FS.Free;
end;

...

For i:=0 to OpenDialog1.Files.Count-1 do
    Size[i]:=GetFileSize1(OpenDialog2.Files.Strings[i]);

[BOBAH13]

Гы. Логически подумать, этот кусок кода неверен, если FS объект не будет создан тогда пойдем на except после выйдет и наткнется на FS.Free и тут ошибка. Лучше уже так

function GetFileSize(FileName: String): DWORD;
var
  f: HFILE;
begin
  Result := 0;
  f := FileOpen(FileName, fmOpenRead);
  if (f <> HFILE_ERROR) then
  begin
    Result := Windows.GetFileSize(f, NIL);
    FileClose(f);
  end;
end;

[VenMaster]

Народ простите мне мою тупость, но у меня вопрос. Я описываю функцию getfilesize. Но чето не понял как мне привязать это к opendialog и предположем вывести размер файла в edit. Наверно всеже надо прописать if opendialog.execute ????

[BOBAH13]

А что не ясно то ? GetFileSize(OpenDialog.FileName); Это чтоли не ясно ?

[VenMaster]

СПС, все теперь разобралася)))
Вот теперь мне ктонибудь сможет подсказать как этот размер привязять к копированию файла и progressbar???

[BOBAH13]

Может в ProgressBar.Position = (позиция в файле / GetFileSize()) * ProgressBar.Max) ?