Category Archives: Delphi

Delphi. FireMonkey. Первое приложение под Android – “Позвони маме”

Posted on 07.10.2016 by Stanislav_Panteleev

В Delphi, насколько я вижу, под Android можно писать на Firemonkey – и тогда мы получим нативное приложение. А можно писать при помощи UniGUI фрэймворка и тогда мы получим приложение работающее через браузер, основанное на популярной библиотеке jQueryMobile. Плюс первого … Continue reading →

Posted in Delphi, FireMonkey, Без рубрики | Comments Off

Delphi. idFTP. Рекурсивные обходы каталогов сервера

Posted on 03.10.2016 by Stanislav_Panteleev

Как собрать все файлы из определенной директории и всех её поддиректорий? Вариант 1 Соберем имена файлов, кроме папок из определенной директории на FTP сервере при помощи компонента idFTP

//Recursive listing of files...
procedure TVisualFrame_PSFTPClient.ListAllFilesCore(dir:string);

var  DL: TStringList;
     i: Integer;

begin


                         DL:=TStringList.Create;

                         try


                            IdFTP.ChangeDir(Dir);
                            IdFTP.List(DL, '', false); // <<<Listed all files and folders here...

                            for i:=0 to DL.Count-1 do
                              begin

                                if  IdFTP.Size(dl.Strings[i])=-1 then   // If Folder then...
                                    ListAllFilesCore(dl.Strings[i]) //Recursion here...

                                else

                                  FFilesOnServerAll.Add(DL.Strings[i]);


                              end;

                          IdFTP.ChangeDirUp;
                          IdFTP.List(DL, '', false); // << Critical important !!!

                         finally


                         FreeAndNil(DL);

                         end;

end;

//Recursive listing of files...

procedure TVisualFrame_PSFTPClient.ListAllFilesCore(dir:string);

var DL: TStringList;

i: Integer;

begin

DL:=TStringList.Create;

try

IdFTP.ChangeDir(Dir);

IdFTP.List(DL, '', false); // <<<Listed all files and folders here...

for i:=0 to DL.Count-1 do

begin

if IdFTP.Size(dl.Strings[i])=-1 then // If Folder then...

ListAllFilesCore(dl.Strings[i]) //Recursion here...

else

FFilesOnServerAll.Add(DL.Strings[i]);

end;

IdFTP.ChangeDirUp;

IdFTP.List(DL, '', false); // << Critical important !!!

finally

FreeAndNil(DL);

end;

И вторая процедура, которая собственно подключается к серверу и собирает файлы…

Posted in Delphi, Indy | Comments Off

Delphi. Установка и использование написанных компонентов

Posted on 03.10.2016 by Stanislav_Panteleev

Как организовать удобную структуру для хранения и переноса своих программ и компонентов? Пока не нашел ответа на этот вопрос. Это короткая заметка об использовании компонентов после их создания. Я обычно делаю компонент и тестовую программу в соседней, с компонентом папке. … Continue reading →

Posted in Delphi | Comments Off

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

Category Archives: Delphi

Delphi. FireMonkey. Первое приложение под Android – “Позвони маме”

Delphi. idFTP. Рекурсивные обходы каталогов сервера

Delphi. Установка и использование написанных компонентов

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

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

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

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

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

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

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

MY PROJECTS

Recent Posts

Categories