- •«Дальневосточный федеральный университет»
- •Школа естественных наук материалы практических занятий
- •Определение установок сетевого адаптера
- •2.3. Определение сетевого адреса и маски сети
- •Разграничение доступа к сетевым ресурсам
- •2.5. Проверка сетевого соединения в tcp/ip - сетях.
- •1. Теоретическое введение
- •Имена почтовых ящиков.
- •1.2. Сервер почтовых ящиков
- •1.3 Пример создания сервера почтовых ящиков
- •1.4. Клиент почтовых ящиков
- •1.5 Создания клиента почтовых ящиков
- •2. Задание по практическому занятию
- •2.1. Создание серверного приложения
- •1. Теоретическое введение
- •1.2. Процедуры и функции Win32 для работы с файлами
- •1.2.1. Создание или открытие файла
- •1.2.2. Запись в файл
- •1.2.3. Чтение из файла
- •1.2.4. Закрытие файла
- •1.3. Пример программы, использующей функции Win32 для доступа к файлам и каталогам
- •1.4. Функции Delphi для работы с файлами
- •1.4.1. Открытие и закрытие файла
- •1.4.2. Типы файлов
- •1.4.3. Обработка ошибок при работе с файлами в Delphi
- •1.5. Пример программы, использующей функции Delphi для доступа к файлам и каталогам
- •2. Задание по лабораторной работе
- •1. Теоретическое введение
- •Пример создания сервера именованных каналов, работающего в блокирующем режиме
- •Пример создания клиента именованных каналов
- •Задание по практическому занятию
- •Создание серверного приложения,
- •Создание клиентского приложения,
- •2.3. Расширение возможностей именованных каналов
- •1. Теоретическое введение
- •1.1. Особенности организации работы именованных
- •2. Задание по практическому занятию
- •2.1. Создание серверного приложения
- •2.2. Создание клиентского приложения
- •Занятие 6. Поиск доступных сетевых ресурсов
- •1. Теоретическое введение
- •Алгоритм поиска сетевых ресурсов
- •1.2. Структуры и функции для работы с сетевыми ресурсами
- •2.Задание по практическому занятию
- •1. Теоретическое введение
- •1.1. Назначение протокола NetBios
- •1.2. Назначение протокола NetBeui
- •2. Задание по практическому занятию
- •Занятие 8. СокетыWindows. Создание клиент-серверного приложения работающего по протоколуUdp
- •1. Теоретическое введние
- •1.1. Сокеты windows
- •1.2. Функции winsock для протокола udp
- •1.2.1. Инициализация интерфейса сокетов
- •1.2.2. Создание сокета
- •1.2.3. Определение номера порта и ip-адреса, по которому сервер будет принимать данные
- •1.2.4. Передача данных
- •2. Задание по практическому занятию
- •2.2. Создание клиентского приложения
- •2.3. Реализация возможностей функций Winsock по передаче данных между различными компьютерами в сети
- •Занятие 9. Исследование возможностей использования сокетов windows для организации обмена информацией между клиентом и сервером по протоколу тср
- •1. Теоретическое введение
- •1.1. Функции Winsock для протокола tcp
- •1.1.1. Установление соединения
- •1.1.3. Блокирование выполнения программы до тех пор, пока не поступит запрос на установление соединения
- •1.1.4. Передача данных
- •1.1.5. Получение данных по сети
- •1.2. Алгоритм работы Winsock- приложения по протоколу tcp
- •2. Задание по лабораторной работе
- •2.1. Создание серверного приложения
- •2.2. Создание клиентского приложения
- •2.3. Исследование возможностей функций Winsock по передаче данных между различными компьютерами в сети
- •Занятие 10. Исследование методов сканирования сети
- •1. Теоретическое введение
- •2.1. Создание многопоточного приложения для сканирования сети
- •2.2. Исследование различных методов сканирования сети
- •Занятие 11. Применение сокетного соединения для обеспечения сетевого взаимодействия клиента и сервера
- •1. Теоретическое введение
- •1.1. Компоненты Delphi, инкапсулирующие сокеты
- •1.2. Компоненты Delphi tcpserver и tcpcl1ent
- •1.2.1. Установление соединения
- •1.2.2. Синхронизация сокетов
- •1.2.3. Класс TserverWinsocket
- •1.2.4. Компонент TserverSocket
- •1.2.5. Класс tClientWinsocket
- •1.2.6. Компонент tClientSocket
- •2. Задание по практическому занятию
- •2.1. Создание серверного приложения
- •2.2. Создание клиентского приложения
- •1. Задание по лабораторной работе
- •1.1. Создание серверного приложения
- •1.2. Создание клиентского приложения
- •1.3. Исследование возможностей сервер-приложения
- •1. Теоретическое введение
- •2. Задание по практическому занятию
- •Занятие 14. Исследование возможностей поддержки протокола тср
- •1. Теоретическое введение
- •1.1. Методы indy-компонента- IdTcpClient
- •1.2. Методы indy-компонента - IdTcpServer
- •2. Задание по лабораторной работе
- •2.1. Создание серверного приложения
- •2.2. Создание клиентского приложения
- •Занятие 15. Программирование клиентских приложений для работы с серверами internet
- •1. Теоретическое введение
- •Библиотека WinInet
- •1.2. Функции библиотеки wininet
- •1.2.1. Функция создания сеанса связи InternetOpen
- •1.2.2. Функция установления url-соединения InternetOpenUrl
- •1.2.3. Функция чтения файла, находящегося на web-cepвepe InternetReadFile
- •1.2.4. Функция закрытия дескриптора – InternetCloscHandle
- •1.2.5. Функция установления соединения InternetConnect
- •1.2.6. Функция «Найти первое вхождение файла с указанным групповым именем» FtpFindFirstFile
- •1.2.7. Функция «Найти следующие вхождения файла с указанным групповым именем» InternetFindNextFile
- •1.2.8. Функция «Получить имя текущего Каталога на ftp-сервере» -FtpGetCurrentDirectory
- •1.2.9. Функция чтения файла с http-сервера FtpGetFile
- •2. Задание по практическому занятию
- •2.1. Создание клиентского приложения.
- •Занятие 16. Приём и передача файлов по сети с использованием протокола tftp
- •1. Теоретическое введение
- •1.1. Протокол tftp
- •1.2. Компонент- idTrivialFtp
- •Компонент IdTrivialFtpServer
- •2. Задание по практическому занятию
- •2.1. Создание серверного приложения
- •2.2. Создание клиентского приложения
- •Занятие 17. Создание http- клиента
- •1. Теоретическое введение
- •1.1. Свойства и методы компонента IdHttp
- •1.1.1. Метод get
- •1.1.2. Метод trace
- •1.1.3. Метод put
- •2. Задание по практическому занятию
- •2.1. Создание http-клиента
- •4. Как изменить приложение таким образом, чтобы файл с сервера записывался не в поле Memo, а в какой-либо файл на компьютере клиента? Каким должен быть тип переменной s в данном случае?
- •Тексты заданий самостоятельной работы задание № 1 создание web-браузера
- •1. Теоретическое введение
- •2. Задание по практическому занятию
- •Задание № 2 исследование telnet-клиента
- •1. Теоретическое введение
- •2. Задание по практическому занятию
- •2.1. Создание приложения Telnet-клиента
- •2.2. Исследование Telnet-клиента
- •Задание №3 разработка cgi-программ
- •1. Теоретическое введение
- •1.1. Принцип работы cgi-программ
- •1.2. Описание тега form
- •1.2.1. Тег input
- •1.2.2. Тег select
- •1.2.3. Тег textarea
- •13. Подтверждение и посылка запроса cgi-программе
- •2. Задание по практическому занятию
- •2.1. Создание простейшего серверного приложения
- •2.2. Передача cgi-приложению параметров, введенных пользователем, и получение дополнительной информации из переменных окружения
- •Задание № 4 разработка web-приложения
- •1. Теоретическое введение
- •1.1. Общее описание компонента twebmodule
- •1.2. Параметр request
- •1.3. Параметр response
- •1.4. События twebmodule
- •2. Задание по практическому занятию
- •2.1. Создание web-приложения с помощью компонента Delphi -webmodule
1.3 Пример создания сервера почтовых ящиков
VAR
Mailslot:THANDLE;
buffer:Array[1..80] of char;
NumberOfBytesRead:DWORD;
ret:Boolean;
begin
// Создание mailslot
Mailslot:=CreateMailslot('\\.\Mailslot\Myslot',0,
MAILSLOT_WAIT_FOREVER, nil);
if MailSlot= INVALID_HANDLE_VALUE then
begin
ShowMessageFmt('Ошибка создания mailslot %d ', [GetLastError]);
exit; end;
// Чтение данных mailslot (блокирующий вызов)
ret:=ReadFile(Mailslot, buffer, 256, NumberOfBytesRead,Nil);
If ret=True then
begin
buffer[NumberOfBytesRead]:=#0;
ShowMessage(buffer);
end
else
begin
ShowMessageFmt('Ошибка %d при чтении из mailslot', [GetLastError]);
exit; end;
end;
1.4. Клиент почтовых ящиков
Для реализации клиента нужно разработан, приложение, ссылающееся на существующий почтовый ящик и записывающее в него данные. В базовом клиентском приложения необходимо выполнить следующие шаги.
1) Открыть описатель-ссылку на почтовый ящик, в который нужно от править данные, с помощью API-функции CreateFile.
2) Записать данные в почтовый ящик, вызвав API-функцию WriteFile. 5) Закрыть описатель почтового ящика с помощью API-функции
CloseHandle.
Клиенты почтовых ящиков соединяются с серверами без установления соединения. Когда клиент открывает описатель-ссылку на почтовый ящик, он не устанавливает связь с сервером почтового ящика. На почтовые ящики ссылаются путем вызова API-функции CreateFile, определенной следующим образом:
function CreateFile(
pFileName: PChar;
dwDesiredAccess,
dwShareMode: DWORD;
IpSecurityAttributes: PSecurityAttributes;
dwCreationDisposition, dwFlagsAndAttributes: WORD;
hTemplateFile: THandle
): THandle; stdcall;.
Параметр lpFileName описывает один или несколько почтовых ящиков, в которые помещаются данные. Правила именования почтовых ящиков таковы:
\\.\mailslot\uмя - определяет локальный почтовый ящик на том же компьютере;
\\имя cepвеpa\mailslot\имя - определяет удаленный сервер почтового ящика с именем имя_сервера;
\\имя домена\mailslot\имя - определяет все почтовые ящики с именем имя в домене имя_домена;
\\*\mailslot\имя - определяет все почтовые ящики с именем имя в основном домене системы.
Параметр dwDesiredAccess должен иметь значение GENERIC_WRITE, потому что клиент может только записывать данные на сервер.
Параметр dwShareMode обязан иметь значение FILE_SHARE_READ, позволяя серверу открывать и выполнять операции чтения из почтового ящика.
Значение параметра lpSecurityAttributes не влияет на почтовые ящики - следует задать Nil.
Флаг dwCreationDisposition должен быть равен OPEN_EXISTING. Это удобно, когда клиент и сервер функционируют на одном и том же компьютере. Если сервер не создал почтовый ящик, API-функция CreateFile вернет ошибку.
Параметр dwCreationDisposition не имеет значения, если сервер работает удаленно.
Параметр dwFlagsAndAttributes должен иметь значение FILE_ATTRIBUTE_NORMAL a hTemplateFile – значением Nil.
После успешного создания описателя можно помещать данные в почтовый ящик. Помните, что клиент может только записывать данные в почтовый ящик с помощью Win32-функции WriteFile:
function WriteFile(
hFile: THandle;
const Buffer;
nNumberOfBytesToWrite: DWORD;
var lpNumberOfBytesWritten: DWORD;
lpOverlapped: POverlapped
): BOOL; stdcall;.
Параметр hFile - это описатель-ссылка, возвращаемый функцией CreateFile.
Параметры lpBuffer и nNumberOfBytesToWrite определяют, сколько байт будет отправлено от клиента серверу. Максимальный размер сообщения 64 кб. Если клиент попытается отправить сообщение большего размера, функция WriteFile вернет ошибку ERROR_BAD_NETPATH (чтобы узнать код ошибки, вызовите функцию GetLastError).
Параметр lpNumberOfBytesWritten возвращает количество байт, отправленных серверу после завершения функции WriteFile.
Параметр lpOverlapped позволяет записывать данные в почтовый ящик асинхронно. Поскольку почтовые ящики обмениваются данными без установления соединения, функция WriteFile не блокирует ввод-вывод. На клиенте этот параметр должен быть равен Nil.