Category Archives: Delphi

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

Delphi. Алгоритмы. Как заменить имя файла на уникальное ?

Posted on 09.09.2016 by Stanislav_Panteleev

Скажем, у нас есть имя файла в формате Filename.jpg в переменной FileName. Далее код на уровне идеи… Вариант 1 через GUID

var newguid:tguid;
...
 //Генерируем уникальный guid
  Createguid(newguid);
  newUniqueName:=newguid.ToString;
...

var newguid:tguid;

...

//Генерируем уникальный guid

Createguid(newguid);

newUniqueName:=newguid.ToString;

...

Вот пример такого изменения. Сохраняем часть старого имени для читабельности и добавляем GUID

{Creating New Unique Name with a rest of old name, using GUID}
function CreateUniqueNameAddingGUID(FileName: string; MaxOriginNameLength: Integer): string;
 
var
    Extension:string;
    SplittedString: TArray<String>;
    SomeStringToChange: string;
    newguid:tguid;
    i: Integer;
 
    FileNameTemp:string;
 
begin
 
//Checks
if FileName='' then Exit;
//if MaxOriginNameLength=0 then exit;  // if MaxOriginNameLength=0 will be only GUID as a result
 
 
//1--------- First of all we need to extract extension if it is
SplittedString:=FileName.Split(['.']);
 
    //we suppose that extensions are symbols after last '.', so...
 
    // if FileName has extension like 'SomeFileName.exe'
 
    if Length(SplittedString)>0 //1 and more, for example somename.ext [somename,ext]
    then
 
begin
    Extension:=SplittedString[ High(SplittedString)  ];
 
 
    //Lets join everything except extension
      for i := Low(SplittedString) to High(SplittedString)-1 do
         begin
 
         if i=0 then
         SomeStringToChange:=SomeStringToChange+SplittedString[i] else
         SomeStringToChange:=SomeStringToChange+'.'+SplittedString[i];
         end;
 
         //Cutting name up to the MaxOriginNameLength
      if Length( SomeStringToChange )> MaxOriginNameLength then
      SomeStringToChange:=SomeStringToChange.Substring(0,MaxOriginNameLength);
 
      //Adding GUID
      Createguid(newguid);
      SomeStringToChange:=SomeStringToChange+newguid.ToString;
 
      // Joining Extension
      SomeStringToChange:=SomeStringToChange+'.'+Extension;
 
      Result:=SomeStringToChange;
 
end else
 
     // if FileName without Extension like 'SomeFileName'
     if Length(SplittedString)=0 then
 
     begin
 
     FileNameTemp:=FileName;
 
 
      //Cutting name up to the MaxOriginNameLength
      if Length( FileNameTemp )> MaxOriginNameLength then
      FileNameTemp:=FileNameTemp.Substring(0,MaxOriginNameLength);
 
      //Adding GUID
      Createguid(newguid);
      FileNameTemp:=FileNameTemp+newguid.ToString;
 
 
      Result:=FileNameTemp;
     end;
 
//ShowMessage(Result);
end;

{Creating New Unique Name with a rest of old name, using GUID}

function CreateUniqueNameAddingGUID(FileName: string; MaxOriginNameLength: Integer): string;

var

Extension:string;

SplittedString: TArray<String>;

SomeStringToChange: string;

newguid:tguid;

i: Integer;

FileNameTemp:string;

begin

//Checks

if FileName='' then Exit;

//if MaxOriginNameLength=0 then exit; // if MaxOriginNameLength=0 will be only GUID as a result

//1--------- First of all we need to extract extension if it is

SplittedString:=FileName.Split(['.']);

//we suppose that extensions are symbols after last '.', so...

// if FileName has extension like 'SomeFileName.exe'

if Length(SplittedString)>0 //1 and more, for example somename.ext [somename,ext]

then

begin

Extension:=SplittedString[ High(SplittedString) ];

//Lets join everything except extension

for i := Low(SplittedString) to High(SplittedString)-1 do

begin

if i=0 then

SomeStringToChange:=SomeStringToChange+SplittedString[i] else

SomeStringToChange:=SomeStringToChange+'.'+SplittedString[i];

end;

//Cutting name up to the MaxOriginNameLength

if Length( SomeStringToChange )> MaxOriginNameLength then

SomeStringToChange:=SomeStringToChange.Substring(0,MaxOriginNameLength);

//Adding GUID

Createguid(newguid);

SomeStringToChange:=SomeStringToChange+newguid.ToString;

// Joining Extension

SomeStringToChange:=SomeStringToChange+'.'+Extension;

Result:=SomeStringToChange;

end else

// if FileName without Extension like 'SomeFileName'

if Length(SplittedString)=0 then

begin

FileNameTemp:=FileName;

//Cutting name up to the MaxOriginNameLength

if Length( FileNameTemp )> MaxOriginNameLength then

FileNameTemp:=FileNameTemp.Substring(0,MaxOriginNameLength);

//Adding GUID

Createguid(newguid);

FileNameTemp:=FileNameTemp+newguid.ToString;

Result:=FileNameTemp;

end;

//ShowMessage(Result);

end;

Вариант 2 через Random … Continue reading →

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

Delphi. Scrollbox. MousewheelUp and MousewheelDown. Делаем прокрутку разными способами

Posted on 09.09.2016 by Stanislav_Panteleev

TScrollBox, Если мы говорим о классе TScrollBox, то наиболее простой и эффективный код – обработать MousewheelUp и MouseWheelDown у компонента ScrollBox, но этого недостаточно, нужно ещё присвоить SetFocus, компоненту ScrollBox, тогда это удовольствие будет работать. Вот простой пример обработки данных … Continue reading →

Posted in Delphi, WinAPI | Comments Off

Delphi. Threads. Как обработать исключение из потока?

Posted on 08.09.2016 by Stanislav_Panteleev

На форуме нашёл интересный способ обработать исключение из потока.

  TTestThread = class(TThread)
  private
    fEx : Exception;
    procedure QueryError;
  protected
    procedure Execute; override;
  end;
procedure TTestThread .Execute;
begin
  inherited;

  try
    ... всякое разное ...
  except
    fEx := ExceptObject as Exception;
    Synchronize( QueryError );
  end;
end;
procedure TTestThread .QueryError;
begin
  Application.OnException( Self, fEx );
end;

TTestThread = class(TThread)

private

fEx : Exception;

procedure QueryError;

protected

procedure Execute; override;

end;

procedure TTestThread .Execute;

begin

inherited;

try

... всякое разное ...

except

fEx := ExceptObject as Exception;

Synchronize( QueryError );

end;

procedure TTestThread .QueryError;

begin

Application.OnException( Self, fEx );

end;

Попробовал его в своей программе – и да, оно работает!

Posted in Delphi, Обработка исключений, Потоки(Threads) | Comments Off

Delphi.Indy. FTP. Активный и пассивный режимы. Мультипоточная загрузка на сервер. Правильная визуализация процесса

Posted on 08.09.2016 by Stanislav_Panteleev

В прошлом посте про мультипоточную загрузку я столкнулся с некорректной индикацией процесса загрузки на сервер. Сама загрузка работала для нескольких файлов. А вот визуализация только для 1 файла. Поэтому, приходилось выкручиваться с таймерами. И я бы оставил этот вопрос, если … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. Indy. idFTP. Как проверить соединение с сервером и если что – узнать об ошибках?

Posted on 05.09.2016 by Stanislav_Panteleev

Простой пример, основанный на книге “Глубины Инди”

...
uses IdException
...

...

uses IdException

...

Собственно сам код…

function IsFTPServerConnectionOk: Boolean;
begin

Result:=false;

with idFTP do begin

Host:=FTPParams.Host;// 'localhost';   //FTP-сервер
Port:=FTPParams.Port;// 22;                  //порт ФТП сервера
Username:=FTPParams.Username;// 'Логин';
Password:=FTPParams.Password;// 'Пароль';


end;


try

idFTP.Connect;

           try
                 try
                 if IdFTP.Connected then Result:=true;
                 
                 finally
                 idFTP.Disconnect;
                 end;
           except  //Other exceptions
                 on E: EIdException do
                 begin

                 showmessage(E.ClassName+' An network error occurred during communication: '
                 +#13#10+#13#10+E.Message);
                 
                 end;
                 on E: Exception do
                 begin
                 showmessage(E.ClassName+' An unknown error occurred during communication: '
                 +#13#10+#13#10+E.Message);
           
                 end;
           end;

  except // Catching Connection Exceptions
   on E: EIdException do

         begin

          showmessage(E.ClassName+' An network error occurred while trying to connect: '
                 +#13#10+#13#10+E.Message);
           
         
         end;
         on E: Exception do
         begin

            showmessage(E.ClassName+'An unknown error occurred while trying to connect: '
                 +#13#10+#13#10+E.Message);
    

        end;
end;




end;

function IsFTPServerConnectionOk: Boolean;

begin

Result:=false;

with idFTP do begin

Host:=FTPParams.Host;// 'localhost'; //FTP-сервер

Port:=FTPParams.Port;// 22; //порт ФТП сервера

Username:=FTPParams.Username;// 'Логин';

Password:=FTPParams.Password;// 'Пароль';

end;

try

idFTP.Connect;

try

if IdFTP.Connected then Result:=true;

finally

idFTP.Disconnect;

end;

except //Other exceptions

on E: EIdException do

begin

showmessage(E.ClassName+' An network error occurred during communication: '

+#13#10+#13#10+E.Message);

end;

on E: Exception do

begin

showmessage(E.ClassName+' An unknown error occurred during communication: '

+#13#10+#13#10+E.Message);

end;

except // Catching Connection Exceptions

on E: EIdException do

begin

showmessage(E.ClassName+' An network error occurred while trying to connect: '

+#13#10+#13#10+E.Message);

end;

on E: Exception do

begin

showmessage(E.ClassName+'An unknown error occurred while trying to connect: '

+#13#10+#13#10+E.Message);

end;

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

Posted in Delphi, Indy | Comments Off

Delphi. Indy. Обработка исключений

Posted on 05.09.2016 by Stanislav_Panteleev

Согласно книге “Глубины Инди”, которая есть на просторах Интернетов, мы можем сделать следующее… При работе с клиентом

Client.Connect;
try
 // Perform read/write here
finally
 Client.Disconnect;
end;

Client.Connect;

try

// Perform read/write here

finally

Client.Disconnect;

end;

Вот более развернутая версия, в которой мы отделяем ошибки Indy от всех остальных ошибок, например VCL ошибок.

...
uses IdException
...

...

uses IdException

...

try
       Client.Connect;
       try
       // Perform read/write here
       finally
       Client.Disconnect;
       end;
except
       on E: EIdException do
       begin
       ShowMessage( 'Communication Exception: ' + E.Message);
       end
       else
       begin
       ShowMessage( 'VCL Exception: ' + E.Message);
       end;
end;

try

Client.Connect;

try

// Perform read/write here

finally

Client.Disconnect;

end;

except

on E: EIdException do

begin

ShowMessage( 'Communication Exception: ' + E.Message);

end

else

begin

ShowMessage( 'VCL Exception: ' + E.Message);

end;

А вот … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. Определить размер файла

Posted on 05.09.2016 by Stanislav_Panteleev

1 Вариант

function TSendFileInChunks.GetFileSize(AFilePath: String): Int64;
var
  FS: TFileStream;


begin


  try

     Result:=-1;

     FS := TFileStream.Create(AFilePath, fmOpenRead);

      try
        Result:=FS.Size;
      finally
        FS.Free;
      end;

  except
       on E:EStreamError do
          begin
          Result := -1;

          raise Exception.Create('This is EStreamError EClassName'+E.ClassName+' '
          +'EMessage '+E.Message);

          end;


    on E:Exception do

          begin

             raise Exception.Create(E.ClassName+' Exception Raised : '
           +#13#10+#13#10+E.Message);

          end;
end;

function TSendFileInChunks.GetFileSize(AFilePath: String): Int64;

var

FS: TFileStream;

begin

try

Result:=-1;

FS := TFileStream.Create(AFilePath, fmOpenRead);

try

Result:=FS.Size;

finally

FS.Free;

end;

except

on E:EStreamError do

begin

Result := -1;

raise Exception.Create('This is EStreamError EClassName'+E.ClassName+' '

+'EMessage '+E.Message);

end;

on E:Exception do

begin

raise Exception.Create(E.ClassName+' Exception Raised : '

+#13#10+#13#10+E.Message);

end;

2 Вариант Функция выдаст размер файла в виде строки и числа Результат в байтах будет в переменной FileSize Результат в формате string, например, “454 МБ” будет в переменной Result данной функции При возникновении ошибки отработает блок try … Continue reading →

Posted in Delphi | Comments Off

Category Archives: Delphi

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

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

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

Delphi. Алгоритмы. Как заменить имя файла на уникальное ?

Delphi. Scrollbox. MousewheelUp and MousewheelDown. Делаем прокрутку разными способами

Delphi. Threads. Как обработать исключение из потока?

Delphi.Indy. FTP. Активный и пассивный режимы. Мультипоточная загрузка на сервер. Правильная визуализация процесса

Delphi. Indy. idFTP. Как проверить соединение с сервером и если что – узнать об ошибках?

Delphi. Indy. Обработка исключений

Delphi. Определить размер файла

MY PROJECTS

Recent Posts

Categories