Вверх ↑
Пакеты 
HiAsm4
Windows 
Компоненты 
Интepнeт 
Общие - WinFTP

WinFTP
Краткое описание
   Компонент предназначен для доступу к FTP средствами Windows.
Параметры
  • Host - Имя FTP-сервера
  • Username - Имя пользователя
  • Password - Пароль
  • Port - Порт
  • Directory - Текущая папка на сервере
  • RemoteName - Имя файла на сервере для записи/чтения
  • TimeFormat - Определяет формат вывода даты: D - день месяца, W - день недели, M - месяц, Y - год, h - часы, m - минуты, s - секунды
  • Методы
  • doOpen - Открывает FTP-сессию с сервером
  • doClose - Закрывает FTP-сессию
  • doReadFile - Читает с FTP-сервера файл
  • doWriteFile - Записывает файл на FTP-сервер
  • doDelete - Удаляет файл с FTP-сервера
  • doFindFile - Поиск файлов в текущей директории на FTP-сервере
  • doCreateDirectory - Создает папку на FTP сервере с именем из потока
  • doRemoveDirectory - Удаляет пустую папку на FTP сервере с именем из потока
  • doGetCurrentDirectory - Получает имя текущей папки на FTP сервере
  • События
  • onError - Событие происходит всякий раз после ошибки работы компонента и выдает её номер в поток
  • onRead - Событие происходит после чтения файла с сервера
  • onWrite - Событие происходит после записи файла на сервер
  • onReadProgress - Событие происходит всякий раз при считывании очередного блока данных и выдает кол-во полученных байт
  • onWriteProgress - Событие происходит всякий раз после записи блока данных и выдает кол-во записанных байт
  • onConnect - Событие происходит в случае успешного соединения с сервером
  • onFindFile - Событие происходит, если очередной файл найден, выдаёт в поток найденный файл
  • onEndFind - Событие происходит после завершения поиска
  • onGetCurrentDirectory - Событие происходит после получения имени текущей папки на FTP сервере и выдает это имя в поток
  • Свойства
  • FoundIsDirectory - Признак того, что найденное имя это подкаталог (1 - да, 0 - нет)
  • FoundFileName - Имя найденного файла
  • FoundFileSize - Размер найденного файла
  • FoundDateCreate - Дата создания файла
  • FoundDateLastWrite - Дата последней записи в файл
  • CurrentDirectory - Содержит имя текущей папки на FTP сервере после выполнения метода doGetCurrentDirectory
  • Данные
  • LocalName - Имя файла или идентификатор потока данных (Stream)
  • RemoteName - Имя файла на FTP-сервере
  • NewRemoteName - Новое имя файла на FTP-сервере для метода doRename
  • Host - Имя FTP-сервера
  • Username - Имя пользователя
  • Password - Пароль
  • Mask - Маска для поиска файлов
  • Примеры
    Пример использования компонента WinFTP для записи файла на ФТП сервер
    
    Add(MainForm,2953706,91,98)
    {
    Width=272
    Height=153
    Caption="Пример использования WinFTP"
    link(onCreate,2894016:doExecute,[])
    }
    Add(WinFTP,7587478,203,168)
    {
    Host="ftp_host"
    Username="user"
    Password="pass"
    Directory="."
    RemoteName="file.txt"
    Point(onWrite)
    Point(onConnect)
    link(onError,4175668:doMessage,[(257,174)(257,104)])
    link(LocalName,1990812:Stream,[])
    link(onWrite,6634264:doMessage,[(266,188)(266,146)])
    link(onConnect,7884494:doMessage,[])
    }
    Add(FileStream,1990812,203,112)
    {
    link(onLoad,9434331:doEvent1,[(247,118)(247,153)(147,153)(147,174)])
    }
    Add(ODialog,2894016,147,112)
    {
    link(onExecute,1990812:doOpen,[])
    }
    Add(Hub,9434331,161,168)
    {
    link(onEvent1,7587478:doOpen,[])
    link(onEvent2,7587478:doWriteFile,[(189,181)(189,195)])
    }
    Add(Message,4175668,280,98)
    {
    }
    Add(Message,6634264,280,140)
    {
    Message="Write OK!"
    link(onMessage,2953706:doClose,[(328,146)(328,88)(72,88)(72,125)])
    }
    Add(Message,7884494,280,189)
    {
    Message="Connect OK!"
    }


    Пример использования компонента WinFTP для чтения файла с ФТП сервер
    
    Add(MainForm,12656576,105,126)
    {
    Width=290
    Height=236
    Caption="Пример использования WinFTP"
    }
    Add(WinFTP,7587478,245,182)
    {
    Host="ftp_host"
    Username="user"
    Password="pass"
    Directory="."
    Point(onConnect)
    link(onRead,1990812:doClose,[(293,195)(293,171)(238,171)(238,139)])
    link(LocalName,1990812:Stream,[])
    link(RemoteName,981750:Var2,[(258,164)(286,164)])
    link(onConnect,14957085:doEvent1,[])
    }
    Add(FileStream,1990812,245,126)
    {
    Mode=1
    link(onLoad,16230437:doMessage,[])
    }
    Add(Message,7884494,357,196)
    {
    Message="Connect OK!"
    }
    Add(Hub,14957085,308,196)
    {
    link(onEvent1,7884494:doMessage,[])
    link(onEvent2,11887797:doExecute,[(417,209)(417,100)(149,100)(149,132)])
    }
    Add(Message,16230437,357,126)
    {
    Message="WRITE OK!"
    }
    Add(Button,11506159,105,182)
    {
    Left=5
    Top=75
    link(onClick,7587478:doOpen,[])
    }
    Add(SDialog,11887797,161,126)
    {
    FileName=""
    Point(FileName)
    link(onExecute,11194804:doEvent1,[])
    link(FileName,981750:Var1,[(167,110)(167,110)])
    }
    Add(Edit,16312119,280,56)
    {
    Left=70
    Top=75
    Width=200
    Text="file.txt"
    }
    Add(GetDataEx,981750,280,105)
    {
    link(Data,16312119:Text,[])
    }
    Add(Hub,11194804,203,126)
    {
    link(onEvent1,1990812:doOpen,[])
    link(onEvent2,7587478:doReadFile,[(229,139)(229,202)])
    }

    Замечания
    Расшифровка кодов ошибок:

    Номер Описание
    1 Нет доступа к Интернету
    2 Ошибка создания FTP-сессии. Проверьте правильность ввода параметров
    3 Ошибка доступа к папке
    4 Ошибка файловой операции
    5 Ошибка доступа к файлу
    6 Невозможно создать папку
    7 Невозможно удалить папку
    8 Невозможно получить имя текущей папки
    9 Невозможно переименовать файл

    Обновление элемента: [svn]WinFTP.pas[/svn]
    BB-code статьи для вставки
    Всего комментариев: 0
    (комментарии к статье еще не добавлены)
    Комментарий
    ...