Category Archives: Delphi

Delphi. Indy. Проблема с русскими символами и решение

Posted on 13.11.2016 by Stanislav_Panteleev

Проблема При отправке запросов, при помощи компонента idHTTP возникает проблема, если в строке GET запроса или параметрах POST запроса есть русские символы. Понятное дело, это связано с кодировкой! Выглядит это так (в HTTPAnalyzer) Естественно, сервера не в курсах, что за … Continue reading →

Posted in Delphi, Delphi и сети, Indy | Comments Off

Delphi. Как разделить файл на “чанки” (chunks), передать его на сервер и собрать обратно

Posted on 11.11.2016 by Stanislav_Panteleev

В данном посте посмотрим, как разделить файл на части (так называемые chunks), передать его на сервер и собрать там обратно. Я использую Indy. idHTTPServer idHTTP Для начала опишу общую идею. Тайминг работы программы, отображенный в логе примерно следующий Если файл меньше … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. Как заставить idHTTPServer отображать страницы или отдавать на загрузку файлы?

Posted on 08.11.2016 by Stanislav_Panteleev

У меня получился такой вариант Вот главный кусок, который отвечает за отображение веб-страниц, либо отдачу файла

procedure TfHTTPServer.IdHTTPServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;
  AResponseInfo: TIdHTTPResponseInfo);


var 
  filepath: string;
IsWebPage: Boolean;  
WebPageContent: string;

begin



//...some code 

    //Preparing file for download if it is on the Server

    begin

    if FHTTPServerCommandGet.IsFileOnServer(ARequestInfo.URI,filepath,IsWebPage,WebPageContent) then

     begin

       AResponseInfo.ResponseNo := 200;

       if IsWebPage then
       AResponseInfo.ContentText:=WebPageContent else
       AResponseInfo.ServeFile(AContext, filepath);


     end else


     AresponseInfo.ResponseNo := 404;

    end;


end;

procedure TfHTTPServer.IdHTTPServerCommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo;

AResponseInfo: TIdHTTPResponseInfo);

var

filepath: string;

IsWebPage: Boolean;

WebPageContent: string;

begin

//...some code

//Preparing file for download if it is on the Server

begin

if FHTTPServerCommandGet.IsFileOnServer(ARequestInfo.URI,filepath,IsWebPage,WebPageContent) then

begin

AResponseInfo.ResponseNo := 200;

if IsWebPage then

AResponseInfo.ContentText:=WebPageContent else

AResponseInfo.ServeFile(AContext, filepath);

end else

AresponseInfo.ResponseNo := 404;

end;

В отдельном модуле метод проверки наличия файла на сервере

Posted in Delphi, Indy | Comments Off

Delphi. idHTTPServer. Обработка ошибок сервера и получение их на клиенте

Posted on 05.11.2016 by Stanislav_Panteleev

Для меня не очевидным был этот вопрос. Хотелось получить информацию об ошибке сервера на клиенте. То есть, примерно так… Ведь idHTTPServer многопоточный, и значит, возбуждение исключения при ошибке можно было сделать так Как обработать исключение из потока? Но idHTTP и … Continue reading →

Posted in Delphi, Indy | Comments Off

Delphi. idHTTP. Post Отправляем русский текст и избавляемся от символов =’#$D#$A’ на сервере

Posted on 02.11.2016 by Stanislav_Panteleev

Столкнулся со следующими проблемами. Проблема 1. При отправке POST / GET запроса при помощи компонента idHTTP русские символы превращаются в вопросы ‘Русское слово’ превращается в ??????? Это можно увидеть при помощи анализатора HTTP трафика, либо непосредственно на сервере (у меня … Continue reading →

Posted in Delphi | Comments Off

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

Category Archives: Delphi

Delphi. Indy. Проблема с русскими символами и решение

Delphi. Как разделить файл на “чанки” (chunks), передать его на сервер и собрать обратно

Delphi. Как заставить idHTTPServer отображать страницы или отдавать на загрузку файлы?

Delphi. idHTTPServer. Обработка ошибок сервера и получение их на клиенте

Delphi. idHTTP. Post Отправляем русский текст и избавляемся от символов =’#$D#$A’ на сервере

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

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

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

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

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

MY PROJECTS

Recent Posts

Categories