Category Archives: Delphi и сети

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

Posted on 26.10.2016 by Stanislav_Panteleev

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

Posted in Delphi, Indy | Comments Off

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

Posted on 22.10.2016 by Stanislav_Panteleev

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

Posted in Delphi, Indy | Comments Off

Delphi. Пример ограничения действия ссылки 72 часами

Posted on 17.10.2016 by Stanislav_Panteleev

У нас есть свой веб-сервер, или мы пишем dll для IIS сервера, или это проект UniGUI, и мы хотим ограничить действие ссылки 72 часми. Таким образом можно ограничивать доступ к любому контенту, файлам, веб страницам и др. Вот что у … Continue reading →

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

Delphi. Как подменить url при помощи API NoblockME?

Posted on 17.10.2016 by Stanislav_Panteleev

Рассмотрим пример подмены url при помощи стороннего сервиса. Плюс этого подхода состоит в простоте – мы просто отдаем исходный url и получаем зашифрованный. Огромный плюс этого подхода состоит в том, что нам не надо думать о работе сайтов, практически все … Continue reading →

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

Delphi. idFTP. Рекурсивные обходы каталогов сервера

Posted on 03.10.2016 by Stanislav_Panteleev

Как собрать все файлы из определенной директории и всех её поддиректорий? Вариант 1 Соберем имена файлов, кроме папок из определенной директории на FTP сервере при помощи компонента idFTP

//Recursive listing of files...
procedure TVisualFrame_PSFTPClient.ListAllFilesCore(dir:string);

var  DL: TStringList;
     i: Integer;

begin


                         DL:=TStringList.Create;

                         try


                            IdFTP.ChangeDir(Dir);
                            IdFTP.List(DL, '', false); // <<<Listed all files and folders here...

                            for i:=0 to DL.Count-1 do
                              begin

                                if  IdFTP.Size(dl.Strings[i])=-1 then   // If Folder then...
                                    ListAllFilesCore(dl.Strings[i]) //Recursion here...

                                else

                                  FFilesOnServerAll.Add(DL.Strings[i]);


                              end;

                          IdFTP.ChangeDirUp;
                          IdFTP.List(DL, '', false); // << Critical important !!!

                         finally


                         FreeAndNil(DL);

                         end;

end;

//Recursive listing of files...

procedure TVisualFrame_PSFTPClient.ListAllFilesCore(dir:string);

var DL: TStringList;

i: Integer;

begin

DL:=TStringList.Create;

try

IdFTP.ChangeDir(Dir);

IdFTP.List(DL, '', false); // <<<Listed all files and folders here...

for i:=0 to DL.Count-1 do

begin

if IdFTP.Size(dl.Strings[i])=-1 then // If Folder then...

ListAllFilesCore(dl.Strings[i]) //Recursion here...

else

FFilesOnServerAll.Add(DL.Strings[i]);

end;

IdFTP.ChangeDirUp;

IdFTP.List(DL, '', false); // << Critical important !!!

finally

FreeAndNil(DL);

end;

И вторая процедура, которая собственно подключается к серверу и собирает файлы…

Posted in Delphi, Indy | Comments Off

Delphi. Indy. FTP. Как получить дату создания, изменения и последнего доступа на сервере от idFTP ?

Posted on 13.09.2016 by Stanislav_Panteleev

Этот вопрос можно преобразовать в “как преобразовать 20160911195120 в 11.09.2016 19:51:20 и перевести в LocalTime?” Я также поднял этот вопрос на 2 форумах Русский форум Английский форум Также мне показалась интересной ссылка на TTimeZone – класса, который появился, начиная с Delphi … Continue reading →

Posted in Delphi, Indy | 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. Indy. Как передать на FTP сервер несколько файлов в разных потоках?

Posted on 04.09.2016 by Stanislav_Panteleev

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

Posted in Delphi, Indy | Comments Off

Category Archives: Delphi и сети

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

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

Delphi. Пример ограничения действия ссылки 72 часами

Delphi. Как подменить url при помощи API NoblockME?

Delphi. idFTP. Рекурсивные обходы каталогов сервера

Delphi. Indy. FTP. Как получить дату создания, изменения и последнего доступа на сервере от idFTP ?

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

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

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

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

MY PROJECTS

Recent Posts

Categories