- •Содержание
- •2 Изучение объекта …………………………………………………………..18
- •Введение
- •1 Формирование требований
- •1.1 Обоснование целесообразности и осуществимости проекта
- •1.2 Формирование требований пользователя
- •2 Изучение объекта
- •3 Техническое задание
- •4 Технический проект
- •5.2 Предварительные испытания
- •Заключение
- •Список используемых источников
1.2 Формирование требований пользователя
Для пользователя приложение должно представлять собой приложение позволяющее:
Вводить адрес FTP -сервера, имя пользователя, пароль;
Последующее скачивание и закачка файлов с FTP -сервера;
От системы в целом требуется удобное устройство, бесперебойная и устойчивая работа.
Легкий вызов и загрузка отдельных компонентов.
2 Изучение объекта
Основа курсовой работы – пересылка файлов, позволяющая перемещать копии файлов с одного узла Интернет на другой узел в соответствии с протоколом HTTP, состоит из следующих частей:
Система ввода адреса сервера для дальнейшего подключения.
Система управления скачивания и закачки файлов с данного FTP -сервера.
3 Техническое задание
Наименование: Курсовая работа по дисциплине “Технология разработки программных продуктов”.
Назначение: Основой работы является программа пересылки файлов, позволяющая перемещать копии файлов с одного узла Интернет на другой узел в соответствии с протоколом FTP.
Технический состав:
Приложение должно представлять собой программный продукт включающий в себя:
Поле для ввода адреса FTP -сервера, имени пользователя, пароля;
Поле просмотра данных FTP -сервера;
Система управления, реализованная с помощью кнопок;
Окно команд подключения.
4. Основные требования по назначению:
Вводить адрес FTP -сервера, имя пользователя, пароль;
Последующее подключение к FTP -серверу;
Управлять процессом скачивания и закачки файлов с помощью прикладного интерфейса ориентированного на пользователя данной программы.
От системы в целом требуется удобное устройство, бесперебойная и устойчивая работа.
Легкий вызов и загрузка отдельных компонентов.
Реализация:
операционная система – Windows 98/2000/XP
язык программирования – Delphi ,
среда программирования Borland Delphi 7.
Ресурсные ограничения:
IBM PC совместимый компьютер;
Операционная система Microsoft Windows 98/2000/XP;
Наличие сетевой карты;
Наличие выхода в локальную сеть.
4 Технический проект
4.1 Алгоритм обработки данных
Рисунок 1. Алгоритм обработки данных
4. 2 Требования пользователя к системе
Программа должна содержать:
Поле для ввода адреса FTP -сервера, имени пользователя, пароля;
Поле просмотра данных FTP -сервера;
Система управления, реализованная с помощью кнопок;
Окно команд одключения.
5 Рабочая документация
5.1 Описание исходных модулей
Система состоит из системы подключения к FTP -серверу, системы скачивания файлов с FTP -сервера, системы закачки файлов на FTP -сервер.
Рассмотрим подробнее основу системы подключения к FTP -серверу:
begin
ConnectButton.Enabled := false;
if IdFTP1.Connected then try
if TransferrignData then IdFTP1.Abort;
IdFTP1.Quit;
end
else with IdFTP1 do try
Username := UserIDEdit.Text; { вводит имя пользователя }
Password := PasswordEdit.Text; { вводит пароль пользователя }
Host := FtpServerEdit.Text; { вводит адрес сервера }
Connect; { подключение }
Self.ChageDir(CurrentDirEdit.Text);
SetFunctionButtons(true);
SaveFTPHostInfo(FtpServerEdit.Text, 'FTPHOST');
end;0
Рассмотрим подробнее основу системы скачивания файлов с ftp-сервера:
begin
if not IdFTP1.Connected then exit;
Name := IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].FileName;
{запись имени скачиваемого файла }
if IdFTP1.DirectoryListing.Items[DirectoryListBox.ItemIndex].ItemType = ditDirectory then begin
SetFunctionButtons(false);
ChageDir(Name);
SetFunctionButtons(true);
end
else begin
try
SaveDialog1.FileName := Name;
if SaveDialog1.Execute then begin
SetFunctionButtons(false);
IdFTP1.TransferType := ftBinary;
BytesToTransfer := IdFTP1.Size(Name);
if FileExists(Name) then begin
case MessageDlg('File aready exists. Do you want to resume the download operation?',
{ если файл с таким же именем существует, выводится сообщение: «Вы хотите продолжить скачивание?» }
mtConfirmation, mbYesNoCancel, 0) of
mrYes: begin
BytesToTransfer := BytesToTransfer - FileSizeByName(Name);
IdFTP1.Get(Name, SaveDialog1.FileName, false, true);
end; { скачивание файла }
mrNo: begin
IdFTP1.Get(Name, SaveDialog1.FileName, true);
end;
mrCancel: begin
exit;
end;
end;
end
else begin
IdFTP1.Get(Name, SaveDialog1.FileName, false);
end;
end;
finally
SetFunctionButtons(true);
end;
end;
end;
Рассмотрим подробнее основу системы закачки файлов на FTP-сервер:
begin
if IdFTP1.Connected then begin
if UploadOpenDialog1.Execute then try
SetFunctionButtons(false);
IdFTP1.TransferType := ftBinary;
IdFTP1.Put(UploadOpenDialog1.FileName, ExtractFileName(UploadOpenDialog1.FileName));
ChageDir(idftp1.RetrieveCurrentDir);
finally
SetFunctionButtons(true);
end;
end;
end.