DirFileSize - HiAsm

Вверх ↑

Форумы КомпонентыDirFileSize ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 16884

Рейтинг: 1239

#16: 2006-08-03 19:49:38 ЛС | профиль | цитата

Просто жду, когда Dilma придумает как сохранять старые наработки при инсталяции новой версии HiAsm.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 2058

Рейтинг: 28

#17: 2007-01-06 19:17:46 ЛС | профиль | цитата

Ребята кто нибудь может адоптировать компонент DirFileSizeT от v258? Что бы он показывал правельно размеры файлов свыше 2Г. А то что то у меня не получаеться.
Ссылка на компонент http://dev.hiasm.com/xf//getfile/4004

карма: 1

Ответов: 9906

Рейтинг: 351

#18: 2007-01-06 19:36:20 ЛС | профиль | цитата

Должен работать правильно
В адаптировании не нуждается

карма: 9

Ответов: 2058

Рейтинг: 28

#19: 2007-01-06 19:45:50 ЛС | профиль | цитата

Galkov, Он не правельно показывает размер файла который весит 12 408 424 960. Он его показывает как -404476928

карма: 1

Ответов: 9906

Рейтинг: 351

#20: 2007-01-06 19:49:24 ЛС | профиль | цитата

В этом же топике все написано, блин...
Неужто по ссылкам сходить трудно
http://hiasm.com/xf/topic.php?p=19516#P19516

карма: 9

Ответов: 2058

Рейтинг: 28

#21: 2007-01-06 20:01:16 ЛС | профиль | цитата

Galkov, там нет вообще такого, вот мой hiFileTools

unit hiFileTools;

interface

uses Kol,Share,windows,Debug;

type
  THIFileTools = class(TDebug)
   private
   public
    _prop_DelToRecycle:byte;
    _data_NewFileName:THI_Event;
    _data_FileName:THI_Event;
    _event_onEnd:THI_Event;

    procedure _work_doMove(var _Data:TData; Index:word);
    procedure _work_doCopy(var _Data:TData; Index:word);
    procedure _work_doDelete(var _Data:TData; Index:word);
    procedure _work_doFileExists(var _Data:TData; Index:word);
  end;

implementation


procedure THIFileTools._work_doMove;
var
   F1,F2:string;
begin
   F1 := ReadString(_Data,_data_FileName,');
   F2 := ReadString(_Data,_data_NewFileName,');
   MoveFile(PChar(F1),PChar(F2));
   if FileExists(F2) then
     _hi_OnEvent(_event_onEnd);
end;

procedure THIFileTools._work_doCopy;
var
   F1,F2:string;
begin
   F1 := ReadString(_Data,_data_FileName,');
   F2 := ReadString(_Data,_data_NewFileName,');
   CopyFile(PChar(F1),PChar(F2),false);
   if FileExists(F2) then
     _hi_OnEvent(_event_onEnd);
end;

procedure THIFileTools._work_doDelete;
var F1:string;
begin
   F1 := ReadString(_Data,_data_FileName,');
   if _prop_DelToRecycle = 0 then
      DeleteFile2Recycle(f1)
   else DeleteFile(PChar(F1));
   if not FileExists(F1) then
     _hi_OnEvent(_event_onEnd);
end;

procedure THIFileTools._work_doFileExists;
begin
   if FileExists(ReadString(_Data,_data_FileName,')) then
     _hi_OnEvent(_event_onEnd,1)
   else _hi_OnEvent(_event_onEnd,0);
end;

end.
unit hiFileTools;

interface

uses Kol,Share,windows,Debug;

type
  THIFileTools = class(TDebug)
   private
   public
    _prop_DelToRecycle:byte;
    _data_NewFileName:THI_Event;
    _data_FileName:THI_Event;
    _event_onEnd:THI_Event;

    procedure _work_doMove(var _Data:TData; Index:word);
    procedure _work_doCopy(var _Data:TData; Index:word);
    procedure _work_doDelete(var _Data:TData; Index:word);
    procedure _work_doFileExists(var _Data:TData; Index:word);
  end;

implementation


procedure THIFileTools._work_doMove;
var
   F1,F2:string;
begin
   F1 := ReadString(_Data,_data_FileName,');
   F2 := ReadString(_Data,_data_NewFileName,');
   MoveFile(PChar(F1),PChar(F2));
   if FileExists(F2) then
     _hi_OnEvent(_event_onEnd);
end;

procedure THIFileTools._work_doCopy;
var
   F1,F2:string;
begin
   F1 := ReadString(_Data,_data_FileName,');
   F2 := ReadString(_Data,_data_NewFileName,');
   CopyFile(PChar(F1),PChar(F2),false);
   if FileExists(F2) then
     _hi_OnEvent(_event_onEnd);
end;

procedure THIFileTools._work_doDelete;
var F1:string;
begin
   F1 := ReadString(_Data,_data_FileName,');
   if _prop_DelToRecycle = 0 then
      DeleteFile2Recycle(f1)
   else DeleteFile(PChar(F1));
   if not FileExists(F1) then
     _hi_OnEvent(_event_onEnd);
end;

procedure THIFileTools._work_doFileExists;
begin
   if FileExists(ReadString(_Data,_data_FileName,')) then
     _hi_OnEvent(_event_onEnd,1)
   else _hi_OnEvent(_event_onEnd,0);
end;

end.

карма: 1

Ответов: 9906

Рейтинг: 351

#22: 2007-01-06 21:02:35 ЛС | профиль | цитата

Эдик, ты думаешь, что мне огромное удовольствие составляет сверять твою цитату со ссылкой, которую ты дал ранее

Насчет "вообще нет": сходи и посмотри. Самостоятельно.

Сегодня в KOL (и в последней версии тоже) правильного FileSize нет. Довольствуйся тем, что я давал по ссылке

карма: 9

Ответов: 2058

Рейтинг: 28

#23: 2007-01-06 21:30:42 ЛС | профиль | цитата

В общем добавил новую точку FileTools, которая показывает правельный размер больших файлов.

карма: 1

Ответов: 1305

Рейтинг: 29

#24: 2007-01-06 23:23:11 ЛС | профиль | цитата

Эдик писал(а):

Э-э-э, я конечно извиняюсь, но не мое это:

DirFileSizeT.ini писал(а):

[About]
Version=1.0
Author=Tad
Mail=tad@zmail.ru

карма: 0

Ответов: 2058

Рейтинг: 28

#25: 2007-01-06 23:32:38 ЛС | профиль | цитата

Дико ивеняюсь, за плагиат.

карма: 1

Ответов: 1891

Рейтинг: 110

#26: 2007-01-08 15:43:53 ЛС | профиль | цитата

Кстати можно и скриптом узнать параметры любого файла (40 параметров), в т.ч. и очень большого по размеру. Смотри схему:
code_778

[size=-2]------ Добавлено в 15:43
Либо так:
code_779

карма: 0

%time%

файлы: 2

code_778.txt [586B] [585], code_779.txt [1KB] [582]

Ответов: 278

Рейтинг: 4

#27: 2007-11-21 02:13:50 ЛС | профиль | цитата

Главное, ребята, сердцем не стареть

карма: 0

Время верстки: %cr_time% Текущее время: %time%

файлы: 1

DirFileSize.zip [2KB] [389]

Форумы КомпонентыDirFileSize ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)