Нужно узнать размер файла после сжатия.

← →
stupid (2002-05-27 15:23) [0]

Открыв файл, я вывожу его размер на форме. После нажатия на кнопку запускаеться внешняя программа, которая сжимает файл, открытый в моем приложении. Хотелось бы показать его размер после сжатия. Как это можно сделать на практике? Вот структура всего процесса:

1. Открытие файла в моем приложении
2. Отображения размера файла на форме до сжатия
3. Запуск внешней программы, которая сжимает файл, открытый в моем приложении
4. Отображение размера файла на форме после сжатия //Не реализовано

Конечно, можно положить на форму кнопку, по нажатию на которую будет определяться размер после сжатия, но это мне не очень подходит.

Вот функция, с помощью которой я определяю размер файла, может, кому-нибудь сгодиться.

Function GetFileSize(namefile : string) : Integer; Var InfoFile : TSearchRec; AttrFile : Integer; ErrorReturn : Integer; Begin AttrFile := $0000003F; ErrorReturn := FindFirst(namefile,AttrFile,InfoFile); if ErrorReturn <> 0 Then Result := -1 else Result := InfoFile.Size; {Размер файла в байтах} FindClose(InfoFile); End; //Вызов функции. (выводит размер файла в байтах в Label1): Label1.Caption:=inttostr(GetFileSize("c:\kuku.txt"))+ " байт";

← →
Song © (2002-05-27 15:27) [1]

Сжимаете чем? Архиватором? Во многих архиваторах есть ключик при ктором в файл выводится различная информация о файлах в этом архиве, в том числе и размеры файла(ов) со сжатием, до сжатия, степень сжатия и т.д.

← →
Romkin © (2002-05-27 15:28) [2]

FindFirstChangeNotification (FindNext) - следит за изменениями в файле/каталоге. При записи в файл другой программой возврат происходит после завершения записи. (и не забывай о FindClose...)

← →
stupid (2002-05-27 15:30) [3]

2Song © (27.05.02 15:27)

Сжимаю UPX"ом.
У него такого ключика нет.

← →
stupid (2002-05-27 15:53) [4]

2Romkin © (27.05.02 15:28)

Можешь объяснить на примере?

← →
ION T © (2002-05-27 16:04) [5]

Очередной шелл для юпикса пишешь?

Зайди в кладовку (раздел с готовыми прогами) - там возьми исходники моего и переделывай как хочешь.....и посмотри в юнит MultiFrm.pas, там есть несколько функций для анализа размера файла...

procedure TForm1.Button1Click(Sender: TObject); var ChHandle: THandle; WaitCode: DWORD; begin ChHandle := FindFirstChangeNotification("d:\", false, FILE_NOTIFY_CHANGE_SIZE); if ChHandle = INVALID_HANDLE_VALUE then begin ShowMessage("Cant create notify: " + IntToHex(GetLastError,8)); Exit; end; Button1.Enabled := False; try repeat repeat WaitCode := MsgWaitForMultipleObjects(1, ChHandle, False, INFINITE, QS_ALLINPUT); if WaitCode = (WAIT_OBJECT_0 + 1) then Application.ProcessMessages; until (WaitCode = WAIT_OBJECT_0) or (WaitCode = WAIT_ABANDONED_0); if WaitCode = WAIT_OBJECT_0 then begin if MessageDlg("Size of some file in d:\ changed... Continue?", mtConfirmation, [mbYes, mbNo], 0) = mrNo then raise Exception.Create("OK! Exit now..."); if not FindNextChangeNotification(ChHandle) then raise Exception.Create("Cant create next notify: " + IntToHex(GetLastError,8)); end; until (WaitCode = WAIT_ABANDONED_0); finally FindCloseChangeNotification(ChHandle); Button1.Enabled := True; end; end;

← →
stupid (2002-05-27 17:03) [7]

Всем огромное спасибо!

2ION T © (27.05.02 16:04)
Отличный UPX Shell. Просто отличный!
Грузонул исходники, буду разбираться.
Я так понял на внешний вид оболочки сказался вид ASPack"a?

2Romkin © (27.05.02 16:25)
Огромное спасибо за код, на исходниках я только и учусь.
Практика, практика и еще раз практика...

Нужно узнать размер файла после сжатия. Найти похожие ветки