Monthly Archives: September 2016

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

PHP. if-elseif-else. Which hour is now?

Posted on 05.09.2016 by Stanislav_Panteleev

Небольшой скрипт на тренировку if elseif else конструкции

<?php

/*
* Получаем текущий час в виде строки от 00 до 23
* и приводим строку к целому числу от 0 до 23
*/

$hour=(int)strftime('%H'); //Получаем текущий час

echo " Which hour is now? It is $hour hour";

//Welcome script
if ($hour>0 and $hour<6){$welcome='Good night';}

	//Good Morning
	elseif($hour>6 and $hour<12){
	
	$welcome='Good Morning';	
		
	}
	//Good Day 
	elseif($hour>12 and $hour<18){
	
	$welcome='Good Day';	
		
	}
	
   //Good Evening 
	elseif($hour>18 and $hour<22){
	$welcome='Good Evening';	
		
	}
	
	else {
		$welcome=='It is almost night';
	}

echo "<br>Welcome value is ".$welcome;

?>

<?php

* Получаем текущий час в виде строки от 00 до 23

* и приводим строку к целому числу от 0 до 23

$hour=(int)strftime('%H'); //Получаем текущий час

echo " Which hour is now? It is $hour hour";

//Welcome script

if ($hour>0 and $hour<6){$welcome='Good night';}

//Good Morning

elseif($hour>6 and $hour<12){

$welcome='Good Morning';

}

//Good Day

elseif($hour>12 and $hour<18){

$welcome='Good Day';

}

//Good Evening

elseif($hour>18 and $hour<22){

$welcome='Good Evening';

}

else {

$welcome=='It is almost night';

}

echo "<br>Welcome value is ".$welcome;

Результат Which hour is now? It is 13 hour Welcome value is Good Day

Posted in PHP | Comments Off

IIS. Как запустить новый сайт на локальной машине?

Posted on 05.09.2016 by Stanislav_Panteleev

Не нашел этой информации в сети в понятном для себя виде, поэтому решил оставить небольшую запись у себя на блоге. Вот какой результат у нас получится

Posted in IIS | Comments Off

Delphi. UniGUI. Отправить, принять и обработать POST запрос

Posted on 04.09.2016 by Stanislav_Panteleev

А я то голову ломал. Свой HTTP сервер писал к UniGUI. А оказывается он там есть, на том порту, на котором работает сам сервер UniGUI, и всё, что нужно, это обработать событие в модуле ServerModule…

OnHTTPCommand

1	OnHTTPCommand

Выглядеть это будет так… … Continue reading →

Posted in Delphi, UniGui | Comments Off

Delphi. Indy. Как передать на FTP сервер несколько файлов в разных потоках?

Posted on 04.09.2016 by Stanislav_Panteleev

Вот что у нас получится…

Posted in Delphi, Indy | Comments Off

Delphi. TObjectList. Какой юнит подключать?

Posted on 03.09.2016 by Stanislav_Panteleev

Удобная вещь! Но постоянно забываю какой юнит подключать к этому классу. Уже раз 5 тыркался по Интернету. Пора изменить эту ситуацию. Так вот, запомни, Станислав, теперь это есть на твоём блоге))) Для работы с TObjectList нужно подключить юнит

Contnrs

Contnrs

Более … Continue reading →

Posted in Delphi | Comments Off

Delphi. Indy. Трабл с кодировкой имен файлов при загрузке на FTP сервер

Posted on 03.09.2016 by Stanislav_Panteleev

Пользуюсь INDY. При загрузке файлов на FTP сервер методом Put столкнулся вот с этим Поискав немного в сети, понял, что это какой трабл в Инди. Временное решение, в отсутствие времени – транслит.

function TForm2.Translit(s: string): string;
const
rus: string = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюя';
lat: array[1..33] of string = ('a', 'b', 'v', 'g', 'd', 'e', 'yo', 'zh', 'z', 'i', 'y', 'k',
'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'f', 'h', 'ts', 'ch', 'sh', 'shch',
'''', 'y', '''', 'e', 'yu', 'ya');
var
p, i, l: integer;
begin
s:=widelowercase(s);
Result := '';
l := Length(s);
for i := 1 to l do
begin
p := Pos(s[i], rus);
if p<1 then Result := Result + s[i] else Result := Result + lat[p];
end;
end;


procedure TForm2.bPutFileClick(Sender: TObject);
var DestName:string;
begin


idFTP.MakeDir('/myfiles');
IdFTP.ChangeDir('/myfiles');



if OpenDialog.Execute then
 begin
 FFileToPut:=OpenDialog.FileName;

 DestName:=Translit(ExtractFileName(OpenDialog.FileName));

 idFTP.Put(OpenDialog.FileName,DestName);
// idFTP.Disconnect;

 end;


end;

function TForm2.Translit(s: string): string;

const

rus: string = 'абвгдеёжзийклмнопрстуфхцчшщьыъэюя';

lat: array[1..33] of string = ('a', 'b', 'v', 'g', 'd', 'e', 'yo', 'zh', 'z', 'i', 'y', 'k',

'l', 'm', 'n', 'o', 'p', 'r', 's', 't', 'u', 'f', 'h', 'ts', 'ch', 'sh', 'shch',

'''', 'y', '''', 'e', 'yu', 'ya');

var

p, i, l: integer;

begin

s:=widelowercase(s);

Result := '';

l := Length(s);

for i := 1 to l do

begin

p := Pos(s[i], rus);

if p<1 then Result := Result + s[i] else Result := Result + lat[p];

end;

procedure TForm2.bPutFileClick(Sender: TObject);

var DestName:string;

begin

idFTP.MakeDir('/myfiles');

IdFTP.ChangeDir('/myfiles');

if OpenDialog.Execute then

begin

FFileToPut:=OpenDialog.FileName;

DestName:=Translit(ExtractFileName(OpenDialog.FileName));

idFTP.Put(OpenDialog.FileName,DestName);

// idFTP.Disconnect;

end;

После чего получаем Не так идеально, … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. UniGUI. Как удаленно, из своей программы на клиентской машине запустить EXE файл на серверной машине?

Posted on 03.09.2016 by Stanislav_Panteleev

Вводные В предыдущем посте мы уже научились через клиентский браузер запускать EXE приложение на серверной машине. В данном посте создадим свое клиентское EXE приложение. Будем отправлять POST запрос на серверную машину с командой запустить EXE приложение, например блокнот на серверной … Continue reading →

Posted in Delphi, UniGui | Comments Off

Delphi. UniGUI. Как удаленно, с браузера клиентской машины запустить EXE файл на серверной машине?

Posted on 02.09.2016 by Stanislav_Panteleev

Итак, есть у нас UniGUI приложение, написанное на Delphi. Возьмем самый обычный вариант со StandAloneServer. Я разместил его на Azure. В MainForm клиентского приложения UniGUI я просто прописал

ErrorCode:=shellAPI.ShellExecute(Handle, 'open',
  PWideChar('c:\Windows\System32\notepad.exe'), nil, nil, SW_SHOWNORMAL);

1 2	ErrorCode:=shellAPI.ShellExecute(Handle, 'open', PWideChar('c:\Windows\System32\notepad.exe'), nil, nil, SW_SHOWNORMAL);

Запустил сервер UniGUI на хосте (у меня аккаунт в Azure). В браузере … Continue reading →

Posted in Delphi, UniGui | Comments Off

Delphi. FTP. Как создать свой FTP сервер и FTP клиент и передать файл с клиента на сервер?

Posted on 02.09.2016 by Stanislav_Panteleev

Встала задача передачи файла на сервер. Выбрал FTP протокол. В Delphi есть соответствующие компоненты INDY IdFTPServer IdFTP Но как ими пользоваться? Как их настроить так, чтобы всё работало и выполнялась задача передачи файлов с клиента на сервер?

Posted in Delphi, Indy | Comments Off

Monthly Archives: September 2016

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

PHP. if-elseif-else. Which hour is now?

IIS. Как запустить новый сайт на локальной машине?

Delphi. UniGUI. Отправить, принять и обработать POST запрос

Delphi. Indy. Как передать на FTP сервер несколько файлов в разных потоках?

Delphi. TObjectList. Какой юнит подключать?

Delphi. Indy. Трабл с кодировкой имен файлов при загрузке на FTP сервер

Delphi. UniGUI. Как удаленно, из своей программы на клиентской машине запустить EXE файл на серверной машине?

Delphi. UniGUI. Как удаленно, с браузера клиентской машины запустить EXE файл на серверной машине?

Delphi. FTP. Как создать свой FTP сервер и FTP клиент и передать файл с клиента на сервер?

MY PROJECTS

Recent Posts

Categories