Monthly Archives: October 2016

Delphi.Sytem.JSON. Сохранение в строку и чтение из строки

Posted on 31.10.2016 by Stanislav_Panteleev

Простой пример консольного приложения.

Posted in Delphi | Comments Off

Delphi. Как добавить параметры к имени файла а потом прочитать их?

Posted on 28.10.2016 by Stanislav_Panteleev

Данный код к имени файла, например Filename.exe добавляет Filename{param=value}.exe В дальнейшем это можно будет корректно прочитать регулярными выражениями, при условии, что такая пара одна в имени файла. Добавление параметра

// {Adding Params to FileName, so FileName.exe will be FileName{Param=Value}.exe }
class function TCreateUniqueName.AddParamAndValueToName(FileName: string; Param:string; Value:string ): string;

var
    Extension:string;
    SplittedString: TArray<String>;
    SomeStringToChange:string;
    i: Integer;

    FileNameTemp:string;

begin

//Checks
if FileName='' then Exit;



//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)>1 //2 and more, for example somename.ext [somename,ext]
    then

begin
    Extension:=SplittedString[ High(SplittedString)  ];


//ShowMessage(Extension); // for test

//2----------Now lets change previous massive Element if it is

      SomeStringToChange:=SplittedString[ High(SplittedString)-1  ];


      //Adding Param And Value
      SomeStringToChange:=SomeStringToChange+'{'+Param+'='+Value+'}';
      SplittedString[ High(SplittedString)-1  ]:=SomeStringToChange;

//3-------Now our name is Unique we can join it back


                for i := Low(SplittedString) to High(SplittedString)-1 do
                Result:=Result+SplittedString[i]+'.';

                //At last adding Extension
                Result:=Result+Extension;


end else

     // if FileName without Extension like 'SomeFileName'
     if Length(SplittedString)=1 then

     begin

     FileNameTemp:=FileName;
     FileNameTemp:=FileNameTemp+'{'+Param+'='+Value+'}';

      Result:=FileNameTemp;
     end;

//ShowMessage(Result); //for test
end;

// {Adding Params to FileName, so FileName.exe will be FileName{Param=Value}.exe }

class function TCreateUniqueName.AddParamAndValueToName(FileName: string; Param:string; Value:string ): string;

var

Extension:string;

SplittedString: TArray<String>;

SomeStringToChange:string;

i: Integer;

FileNameTemp:string;

begin

//Checks

if FileName='' then Exit;

//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)>1 //2 and more, for example somename.ext [somename,ext]

then

begin

Extension:=SplittedString[ High(SplittedString) ];

//ShowMessage(Extension); // for test

//2----------Now lets change previous massive Element if it is

SomeStringToChange:=SplittedString[ High(SplittedString)-1 ];

//Adding Param And Value

SomeStringToChange:=SomeStringToChange+'{'+Param+'='+Value+'}';

SplittedString[ High(SplittedString)-1 ]:=SomeStringToChange;

//3-------Now our name is Unique we can join it back

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

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

//At last adding Extension

Result:=Result+Extension;

end else

// if FileName without Extension like 'SomeFileName'

if Length(SplittedString)=1 then

begin

FileNameTemp:=FileName;

FileNameTemp:=FileNameTemp+'{'+Param+'='+Value+'}';

Result:=FileNameTemp;

end;

//ShowMessage(Result); //for test

end;

Как прочитать параметры? Данный код будет искать значение параметра из … Continue reading →

Posted in Delphi | Comments Off

Delphi. Как разделить файл на части (chunks)?

Posted on 28.10.2016 by Stanislav_Panteleev

Довольно простая процедура, которая делит файл на части и складывает их рядом с EXE следующим образом Для чтения файла использую TFileStream из которого потом выдергиваю чанки в TMemoryStream методом CopyFrom. TFileStream – чтобы работать с большими файлами, на которых MemoryStream … Continue reading →

Posted in Delphi | Comments Off

Delphi. Как послать POST запрос по HTTPS?

Posted on 27.10.2016 by Stanislav_Panteleev

Итак, как послать POST запрос по HTTPS? Зачем? Чтобы скрыть данные от анализатора HTTP трафика. Вот чем займемся сегодня. В предыдущем посте мы делали SSL сертификаты. За основу возьмем приложение, написанное в посте Как отправить POST запрос, принять и декодировать … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. Как создать SSL сертификат самостоятельно?

Posted on 26.10.2016 by Stanislav_Panteleev

Если проект находится во внутренней сети и требуется SSL протокол, то, насколько я понял вполне можно обойтись сертификатами, сделанными самостоятельно. Браузеры, конечно, такой сертификат отвергнут напрочь, это и понятно. Тут и безопасность и бизнес. Но часть задач можно решить используя … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. Как отправить POST запрос, принять и декодировать его на idHTTPServer?

Posted on 26.10.2016 by Stanislav_Panteleev

В принципе, я уже делал такой пост Как отправить файл с помощью idHTTP и принять его на idHTTPServer ? Но в данном случае хочу акцентировать внимание именно на отправке и приеме параметров методом POST. Как это будет выглядеть?

Posted in Delphi, Indy | Comments Off

Delphi. Создание компонентов, нюанс с прописыванием путей.

Posted on 24.10.2016 by Stanislav_Panteleev

Обычно, когда создаю визуальный компонент, делаю так… Чтобы упростить себе задачу и добавить хоть каплю визуального проектирования, добавляю фрэйм, который в основном компоненте создаю и размещаю в override конструктора. То есть так…

constructor TPS_HTTPClient.Create(AOwner: TComponent);
begin
  inherited;
  FVisualFrame:=TVisualFrame_HTTP.Create(Self);
  FVisualFrame.Parent:=Self;
  FVisualFrame.Align:=alClient;
  FVisualFrame.Show;
end;

constructor TPS_HTTPClient.Create(AOwner: TComponent);

begin

inherited;

FVisualFrame:=TVisualFrame_HTTP.Create(Self);

FVisualFrame.Parent:=Self;

FVisualFrame.Align:=alClient;

FVisualFrame.Show;

end;

Это позволяет “накидывать” на фрэйм массу всего … Continue reading →

Posted in Delphi, Компонентостроение | Comments Off

Delphi. Как отправить файл с помощью idHTTP и принять его на idHTTPServer ?

Posted on 22.10.2016 by Stanislav_Panteleev

Данный пример отправляет файлы и сообщения на сервер, а также принимает и раскодирует их. Работал с FTP протоколом, но столкнулся с рядом ограничений, которые как я понял можно преодолеть при помощи HTTP протокола и которые не позволяют мне решить поставленную … Continue reading →

Posted in Delphi, Indy | Comments Off

PHP. Самый простой способ поставить пароль на страницу

Posted on 20.10.2016 by Stanislav_Panteleev

И понадобилось мне запаролить php страницу, причем сделать это за 5 мин… В сети полно способов запаролить страницу, вот один из них. Не самый надежный, без капчи, но всё же !!!

<?php

// Вывод заголовка с данными о кодировке страницы
header('Content-Type: text/html; charset=windows-1251');


session_start();
  if(!empty($_POST['paswd'])){ 
     $pass = "somePasswordHere"; // password here
    if($_POST['paswd']==$pass){
      $_SESSION['access']=true;
      header("Location: index2.php") ;// Redirecting if correct password
    }
    else {
       header("Location: error.php") ;//Redirecting if not correct password
    }
  }
  else if( empty($_POST['paswd']) ) 
  { 
    ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Language" content="en-us; charset=windows-1251" />
<meta http-equiv="Content-Type" content="text/html;">
<title>Enter Password</title>
<style type="text/css">
a {
        color: #FFFF00;
}
</style>
 
 
 
</head>
 
<body style="color: #FF0000; background-image: url('http://www..../.../....jpg')">
<br><br><br><br><br><br><br><br>
<h3 align="center">Please Enter Password</h3>
<h2 align="center">(Some hint here...)</h2>
<table width="100%">
          <tr>
          <td>
 <!-- В action ничего не пишем, форма должна передавать данные на эту же страницу -->
    <form action="" method="POST" align="center">
      <input type="text" name="paswd">
      <input type="submit" value="Отправить">
    </form>
<?php
  }
?>

<?php

// Вывод заголовка с данными о кодировке страницы

header('Content-Type: text/html; charset=windows-1251');

session_start();

if(!empty($_POST['paswd'])){

$pass = "somePasswordHere"; // password here

if($_POST['paswd']==$pass){

$_SESSION['access']=true;

header("Location: index2.php") ;// Redirecting if correct password

}

else {

header("Location: error.php") ;//Redirecting if not correct password

}

else if( empty($_POST['paswd']) )

{

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>Enter Password</title>

a {

color: #FFFF00;

}

</style>

</head>

<h3 align="center">Please Enter Password</h3>

<tr>

<td>

</form>

<?php

}

Конечно, такая конструкция не устоит перед брут-форсом, но … Continue reading →

Posted in PHP | Comments Off

Delphi.UniGUI. Как добавить в автозагрузку серверное приложение, написанное на UNIGUI ?

Posted on 19.10.2016 by Stanislav_Panteleev

Этот пост не про программирование, скорее про Deploy приложения и немного про администрирование. Самый простой способ размещения на сервере StandAlone приложения UniGUI – это просто закидывание EXE файла на машину-сервер. Наш EXE сам по себе является программой сервером, поэтому на машине-сервере … Continue reading →

Posted in Delphi, UniGui | Comments Off

Monthly Archives: October 2016

Delphi.Sytem.JSON. Сохранение в строку и чтение из строки

Delphi. Как добавить параметры к имени файла а потом прочитать их?

Delphi. Как разделить файл на части (chunks)?

Delphi. Как послать POST запрос по HTTPS?

Delphi. Как создать SSL сертификат самостоятельно?

Delphi. Как отправить POST запрос, принять и декодировать его на idHTTPServer?

Delphi. Создание компонентов, нюанс с прописыванием путей.

Delphi. Как отправить файл с помощью idHTTP и принять его на idHTTPServer ?

PHP. Самый простой способ поставить пароль на страницу

Delphi.UniGUI. Как добавить в автозагрузку серверное приложение, написанное на UNIGUI ?

MY PROJECTS

Recent Posts

Categories