Monthly Archives: September 2016

Delphi. Битовые операции и фильтр Блума. Вступление.

Posted on 30.09.2016 by Stanislav_Panteleev

Часто встречается множество булевых параметров, которые нужно хранить в базе. Что-то существует или не существует. Что-то true или false. И когда таких параметров несколько десятков – сложно воспринимать базу. Для этого, как я понял, существуют битовые операции и фильтр Блума. … Continue reading →

Posted in Delphi | 6 Comments

Delphi.WinAPI. Доступен ли файл для чтения?

Posted on 25.09.2016 by Stanislav_Panteleev

Способ № 1 (Рабочий, почти всегда)

const

FILE_READ_DATA = $0001;
FILE_WRITE_DATA = $0002;
FILE_APPEND_DATA = $0004;
FILE_READ_EA = $0008;
FILE_WRITE_EA = $0010;
FILE_EXECUTE = $0020;
FILE_READ_ATTRIBUTES = $0080;
FILE_WRITE_ATTRIBUTES = $0100;
FILE_GENERIC_READ = (STANDARD_RIGHTS_READ or FILE_READ_DATA or
FILE_READ_ATTRIBUTES or FILE_READ_EA or SYNCHRONIZE);
FILE_GENERIC_WRITE = (STANDARD_RIGHTS_WRITE or FILE_WRITE_DATA or
FILE_WRITE_ATTRIBUTES or FILE_WRITE_EA or FILE_APPEND_DATA or SYNCHRONIZE);
FILE_GENERIC_EXECUTE = (STANDARD_RIGHTS_EXECUTE or FILE_READ_ATTRIBUTES or
FILE_EXECUTE or SYNCHRONIZE);
FILE_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $1FF;

const

FILE_READ_DATA = $0001;

FILE_WRITE_DATA = $0002;

FILE_APPEND_DATA = $0004;

FILE_READ_EA = $0008;

FILE_WRITE_EA = $0010;

FILE_EXECUTE = $0020;

FILE_READ_ATTRIBUTES = $0080;

FILE_WRITE_ATTRIBUTES = $0100;

FILE_GENERIC_READ = (STANDARD_RIGHTS_READ or FILE_READ_DATA or

FILE_READ_ATTRIBUTES or FILE_READ_EA or SYNCHRONIZE);

FILE_GENERIC_WRITE = (STANDARD_RIGHTS_WRITE or FILE_WRITE_DATA or

FILE_WRITE_ATTRIBUTES or FILE_WRITE_EA or FILE_APPEND_DATA or SYNCHRONIZE);

FILE_GENERIC_EXECUTE = (STANDARD_RIGHTS_EXECUTE or FILE_READ_ATTRIBUTES or

FILE_EXECUTE or SYNCHRONIZE);

FILE_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $1FF;

function TfMain.IsFileOKToread(AFilePath:String): Boolean;
begin
  Result:=False;
  if CheckFileAccess(FilePathConst,FILE_READ_DATA) = FILE_READ_DATA then
    Result:=True;
end;

function TfMain.IsFileOKToread(AFilePath:String): Boolean;

begin

Result:=False;

if CheckFileAccess(FilePathConst,FILE_READ_DATA) = FILE_READ_DATA then

Result:=True;

end;

function CheckFileAccess(const FileName: string; const CheckedAccess: Cardinal): Cardinal;

var 
  Token: THandle;
  Status: LongBool;
  Access: Cardinal;
  SecDescSize: Cardinal;
  PrivSetSize: Cardinal;
  PrivSet: PRIVILEGE_SET;
  Mapping: GENERIC_MAPPING;
  SecDesc: PSECURITY_DESCRIPTOR;
begin
  Result := 0;

  GetFileSecurity
  (
  PChar(Filename),
  OWNER_SECURITY_INFORMATION or GROUP_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION,
  nil,
  0,
  SecDescSize
  );

  SecDesc := GetMemory(SecDescSize);

  if GetFileSecurity
  (
  PChar(Filename),
  OWNER_SECURITY_INFORMATION or GROUP_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION,
  SecDesc,
  SecDescSize,
  SecDescSize
  ) then

  begin
    ImpersonateSelf(SecurityImpersonation);
    OpenThreadToken(GetCurrentThread, TOKEN_QUERY, False, Token);
    if Token <> 0 then
    begin
      Mapping.GenericRead := FILE_GENERIC_READ;
      Mapping.GenericWrite := FILE_GENERIC_WRITE;
      Mapping.GenericExecute := FILE_GENERIC_EXECUTE;
      Mapping.GenericAll := FILE_ALL_ACCESS;
      MapGenericMask(Access, Mapping);
      PrivSetSize := SizeOf(PrivSet);
      AccessCheck(SecDesc, Token, CheckedAccess, Mapping, PrivSet, PrivSetSize, Access, Status);
      CloseHandle(Token);
      if Status then
        Result := Access;
    end;
  end;
  FreeMem(SecDesc, SecDescSize);
end;

function CheckFileAccess(const FileName: string; const CheckedAccess: Cardinal): Cardinal;

var

Token: THandle;

Status: LongBool;

Access: Cardinal;

SecDescSize: Cardinal;

PrivSetSize: Cardinal;

PrivSet: PRIVILEGE_SET;

Mapping: GENERIC_MAPPING;

SecDesc: PSECURITY_DESCRIPTOR;

begin

Result := 0;

GetFileSecurity

(

PChar(Filename),

OWNER_SECURITY_INFORMATION or GROUP_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION,

nil,

SecDescSize

);

SecDesc := GetMemory(SecDescSize);

if GetFileSecurity

(

PChar(Filename),

OWNER_SECURITY_INFORMATION or GROUP_SECURITY_INFORMATION or DACL_SECURITY_INFORMATION,

SecDesc,

SecDescSize,

SecDescSize

) then

begin

ImpersonateSelf(SecurityImpersonation);

OpenThreadToken(GetCurrentThread, TOKEN_QUERY, False, Token);

if Token <> 0 then

begin

Mapping.GenericRead := FILE_GENERIC_READ;

Mapping.GenericWrite := FILE_GENERIC_WRITE;

Mapping.GenericExecute := FILE_GENERIC_EXECUTE;

Mapping.GenericAll := FILE_ALL_ACCESS;

MapGenericMask(Access, Mapping);

PrivSetSize := SizeOf(PrivSet);

AccessCheck(SecDesc, Token, CheckedAccess, Mapping, PrivSet, PrivSetSize, Access, Status);

CloseHandle(Token);

if Status then

Result := Access;

end;

FreeMem(SecDesc, SecDescSize);

end;

procedure TfMain.bTestClick(Sender: TObject);
begin
  if IsFileOKToread(FilePathConst) 
    then ShowMessage('Ok To Read');
end;

procedure TfMain.bTestClick(Sender: TObject);

begin

if IsFileOKToread(FilePathConst)

then ShowMessage('Ok To Read');

end;

Способ №2 (Не рабочий, если доступ к файлу закрыт) Данная функция НЕ РАБОТАЕТ, так как нужно проверять атрибуты безопасности файла, насколько я понимаю. Простая проверка возможности прочитать файл. //True – файл … Continue reading →

Posted in Delphi, WinAPI | Comments Off

Delphi. Как отсортировать TStringList и сохранить соответствие с несколькими другими TStringList?

Posted on 24.09.2016 by Stanislav_Panteleev

Данный пост является развитием предыдущего. Будем сортировать один TStringList -другие же приводить в соответствие с переставленными элементами.

SLToSort         SLToSort    
BeforeSort       AfterSort    
 
0 1              0 3
1 3              1 2
2 2              2 1
______________________________
SomeSL           SomeSL
BeforeSort       AfterSort    
 
0 1              0 3
1 3              1 0
2 0              2 1

SLToSort SLToSort

BeforeSort AfterSort

0 1 0 3

1 3 1 2

2 2 2 1

______________________________

SomeSL SomeSL

BeforeSort AfterSort

0 1 0 3

1 3 1 0

2 0 2 1

Исходные данные у меня точно такие же. Не буду переписывать часть поста сюда.Изменился только алгоритм сортировки, так как теперь в соответствие нужно … Continue reading →

Posted in Delphi, Алгоритмы | Comments Off

Delphi. Сортировка TStringList с приведением в соответствие другого TStringList

Posted on 23.09.2016 by Stanislav_Panteleev

Что делаем? Есть у нас некоторый TStringList, скажем SLToSort:TStringlist. Нужно его отсортировать – задача элементарная, пишем компараторы для наших данных, включаем CustomSort и всё готово. А что делать, если кроме SLToSort есть просто SomeSL:TStringlist и после сортировки SLToSort – нужно привести его … Continue reading →

Posted in Delphi, Алгоритмы | 2 Comments

Delphi. GDI+ vs StretchDraw. Как уменьшить много картинок в потоке и сохранить их на диске?

Posted on 16.09.2016 by Stanislav_Panteleev

Встала задача – создать thumbnails для полноформатных изображений. В сети уйма информации, не знал за что хвататься, решил пробовать по очереди. В сущности, попробовал 2 способа более менее подробно, а остальные по верхам. Остановился на стандартном StretchDraw из Delphi, из … Continue reading →

Posted in Delphi, Потоки(Threads) | Comments Off

Delphi. TStringList.CustomSort – сортировка строк, integer, tdatetime в ascending и descending порядках

Posted on 14.09.2016 by Stanislav_Panteleev

Часто использую TStringList, а вот сортировку в нём не часто. Понадобилась, разобрался, ниже основные моменты по сортировке разных типов, тем или иным путем попавшим в TStringList. Сортировка строк

var FRandomList:TStringList;

1	var FRandomList:TStringList;

Ascending Вариант 1 (самый популярный, поэтому самый краткий)

FRandomList.Sort

1	FRandomList.Sort

Все остальные … Continue reading →

Posted in Delphi | Comments Off

Delphi. Indy. FTP. Как получить дату создания, изменения и последнего доступа на сервере от idFTP ?

Posted on 13.09.2016 by Stanislav_Panteleev

Этот вопрос можно преобразовать в “как преобразовать 20160911195120 в 11.09.2016 19:51:20 и перевести в LocalTime?” Я также поднял этот вопрос на 2 форумах Русский форум Английский форум Также мне показалась интересной ссылка на TTimeZone – класса, который появился, начиная с Delphi … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. Indy. FTP. Как правильно удалить директорию с FTP сервера?

Posted on 12.09.2016 by Stanislav_Panteleev

Столкнулся с тем, что если удалять директорию с помощью стандартной функции RemoveDir библиотеки Indy, то непустые директории не удаляются. Немного поискав, наткнулся на почти готовое решение на форуме. Суть в том, что удалять директории нужно рекурсивно, и начиная с конца списка. … Continue reading →

Posted in Delphi | Comments Off

Delphi. TListView. Как добавить элементы в виртуальном режиме (OwnerData:=true)?

Posted on 10.09.2016 by Stanislav_Panteleev

Виртуальный режим нужен для отображения большого числа данных. В принципе, на мой взгляд, чтобы перестраховаться, можно использовать его в большинстве случаев. Далее пример того как добавить данные в TListView в виртуальном режиме. На примере загрузки файлов сервера. Получится примерно так… … Continue reading →

Posted in Delphi | Comments Off

Delphi. FTP. Indy. Как добавить верификацию загрузки файла на серверe?

Posted on 10.09.2016 by Stanislav_Panteleev

Как узнать – полностью ли загрузился файл на FTP сервер? Идентичны ли файлы на клиенте и сервер? Можно написать свой алгоритм, проверяющий по тем или иным параметрам идентичность файлов, но в Indy уже всё готово и можно этим только пользоваться. … Continue reading →

Posted in Delphi | Comments Off

Monthly Archives: September 2016

Delphi. Битовые операции и фильтр Блума. Вступление.

Delphi.WinAPI. Доступен ли файл для чтения?

Delphi. Как отсортировать TStringList и сохранить соответствие с несколькими другими TStringList?

Delphi. Сортировка TStringList с приведением в соответствие другого TStringList

Delphi. GDI+ vs StretchDraw. Как уменьшить много картинок в потоке и сохранить их на диске?

Delphi. TStringList.CustomSort – сортировка строк, integer, tdatetime в ascending и descending порядках

Delphi. Indy. FTP. Как получить дату создания, изменения и последнего доступа на сервере от idFTP ?

Delphi. Indy. FTP. Как правильно удалить директорию с FTP сервера?

Delphi. TListView. Как добавить элементы в виртуальном режиме (OwnerData:=true)?

Delphi. FTP. Indy. Как добавить верификацию загрузки файла на серверe?

MY PROJECTS

Recent Posts

Categories