FTPConnect

Top   Previous   Next

Описание

Открыть FTP-соединение с удалённым FTP-сервером.

Синтаксис

integer FTPConnect(integer FTPPort,

                                                string AHostFTPServer,

                                                string AUserName,

                                                string APassword,

                                                bool    APassive,

                                                integer Timeout)

Параметры

FTPPort : номер порта, используемый для управления FTP-каналом

AHostFTPServer : Host FTP-сервер

AUserName : счёт пользователя для FTP-сервера.

AuserPassword : пароль пользователя для идентификации на FTP-сервере.

APassive : FTP data connection method: если " True", то пассивный режим, иначе, если " False", то активный режим.

Timeout = тайм-аут для завершения операции ( ms).

Возвращаемое значение

Целое значение от 0 до 9, представляющее дескриптор соединения.

значение -1 означает, что нет доступных соединений (максимальное количество одновременных подключений — 10).

значение -2 — общая ( generic) ошибка

Связанные функции

FTPDisconnect()

Пример

Function void Connect()

//*****************************************************************************

// FTP Connection

//*****************************************************************************

#modal

            int Handle;

            bool Passive;

            if ( GetNumGateValue("Passive",0)==1) then Passive= true;elsePassive= false;end

            Handle= FTPConnect( GetNumGateValue("Port",0),

                                                GetStrGateValue ("Host",0),

                                                GetStrGateValue ("User",0),

                                                GetStrGateValue ("Password",0),

                                                Passive,

                                                GetNumGateValue ("Timeout",0));

            if (Handle==-1) then

                        MessageBox ("No available connections","Error");

                        return;

            end

            if (Handle==-2) then

                        MessageBox ("Generic error","Error");

                        return;

            end

            SetDigGateValue ("Connection",Handle,1);

            SetStrGateValue (" HostName",Handle,GetStrGateValue("Host",0));

end