Monthly Archives: September 2016

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

PHP.JS. Проверка полей на пустоту. Усовершенствуем скрипт авторизации

Posted on 07.09.2016 by Stanislav_Panteleev

В прошлом посте сделали простейший PHP скрипт авторизации, сейчас усовершенствуем его при помощи JS. Будем проверять форму перед отправкой при помощи самописной функции

<script>
<!--

// Функция проверки формы
function validate_form ( )
{ 



   if ( (document.submit_form.login.value)==''){alert('Поле логин не заполнено'); return false; exit(); };
   if ( (document.submit_form.password.value)==''){alert('Поле пароль не заполнено'); return false; exit();};
 
 
    alert('Подтверждаю отправку данных');
    document.submit_form.name.submit();
 
}

//-->
</script>

<!--

// Функция проверки формы

function validate_form ( )

{

if ( (document.submit_form.login.value)==''){alert('Поле логин не заполнено'); return false; exit(); };

if ( (document.submit_form.password.value)==''){alert('Поле пароль не заполнено'); return false; exit();};

alert('Подтверждаю отправку данных');

document.submit_form.name.submit();

}

//-->

</script>

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

Posted in javascript, PHP | Comments Off

PHP. Простейший скрипт авторизации

Posted on 07.09.2016 by Stanislav_Panteleev

Предположим, что база данных у нас есть. Попробуем авторизоваться, используя данные из БД. Создадим простейшую HTML форму авторизации Результат

Posted in PHP | Comments Off

PHP. Получение данных из базы и вывод в браузер

Posted on 06.09.2016 by Stanislav_Panteleev

Простой пример подключения к БД и вывода данных из таблицы в браузер. Будем выводить все записи одного поля.

Posted in PHP | Comments Off

PHP. Как подключиться к MySQL и получить результирующий набор данных.

Posted on 06.09.2016 by Stanislav_Panteleev

Вся информация уже давным давно есть на http://php.net/manual/ru/. Я же пишу здесь скорее для себя, когда пишешь – лучше запоминаешь. Решил освоить для себя несколько вещей в PHP, основы так сказать. А то JS хорошо, Delphi хорошо, C# хорошо, а вот … Continue reading →

Posted in PHP | 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

Monthly Archives: September 2016

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

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

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

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

PHP.JS. Проверка полей на пустоту. Усовершенствуем скрипт авторизации

PHP. Простейший скрипт авторизации

PHP. Получение данных из базы и вывод в браузер

PHP. Как подключиться к MySQL и получить результирующий набор данных.

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

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

MY PROJECTS

Recent Posts

Categories