Из цикла лекций Технологии разработки Internet-приложений для студентов

Зарегистрируйтесь, чтобы просмотреть полный документ!

Из цикла лекций «Технологии разработки Internet-приложений» для студентов 4 -го курса кафедры Компьютерных технологий физического факультета Донецкого национального университета Технологии разработки Internetприложений Среда Delphi: CGI, ISAPI приложения Потоки, почта, куки, авторизация, Intra. Web Дон. НУ, кафедра КТ, проф. В. К. Толстых

Потоки С помощью потоков можно передавать данные практически любого типа (MIME – Multipurpose Internet Mail Extension), из любого источника, доступного на Web-сервере. При получении информации конкретного типа браузер отыскивает приложение, которое должно использоваться для обработки данных этого типа, после чего передает ему эти данные Основные свойства: Response. Content. Stream – содержимое потока Response. Content. Type – MIME-тип пересылаемых данных Основной метод: Response. Send. Response – отправить ответ Типы потоков в Delphi: TFile. Stream, TString. Stream, TMemory. Stream (буфер в ОЗУ), TBlob. Stream (чтение/запись полей Binary large object), TWin. Socket. Stream (чтение/запись в сокете), TOle. Stream (COM интерфейс чтения/записи)

Пример 1 Передача изображения потоком TFile. Stream (из файла)

Запрос клиента <html> <body> <Center> <H 1> Разные потоки </H 2> </Center> <a href="http: //localhost/net-web/Scripts/stream. exe"> Доставить мышонка! </a> </body> </html>

Ответ сервера Обработчик события on. Action 1 (без Path. Info) procedure TWeb. Module 1 Web. Action. Item 1 Action(Sender: TObject; Request: TWeb. Request; Response: TWeb. Response; var Handled: Boolean); var Page: TStrings; begin Page: =TString. List. Create; With Page do begin Add('<html><body>'); Add('<center><H 2> Вот он! </H 2>'); Add('<img src="http: //localhost/net-web/'); Add('Scripts/stream. exe/mouse" alt="мышонок">'); Add('</center></body></html>'); end; Вызов второго Action с Response. Content: = Page. Text; Path. Info - mouse Page. Free; end;

Ответ сервера Обработчик события on. Action 2 (Path. Info - mouse) procedure TWeb. Module 1 Web. Action. Item 2 Action(Sender: TObject; Request: TWeb. Request; Response: TWeb. Response; var Handled: Boolean); var FS: TFile. Stream; begin // Создаём поток из файла mouse. gif: FS: =TFile. Stream. Create('. . /Images/mouse. gif', fm. Open. Read); Response. Content. Type: ='image/gif'; //необходим модуль GIFImage Response. Content. Stream: =FS; Response. Send. Response; // можно не удалять объект-поток, он будет удален автоматически // при завершении обработчика on. Action end;

Пример 2 Передача изображения потоком TMemory. Stream Var Jpg: TJPEGImage; B: TBitmap; MS: TMemory. Stream; begin Jpg : = TJPEGImage. Create; //пусть поток будет - jpeg try B : = TBitmap. Create; //пусть исходный рисунок будет - bmp try Proc. Generate(B); //создание рисунка bmp … Jpg. Assign(B); //конвертирование bmp в jpeg finally B. Free end; MS : = TMemory. Stream. Create; Jpg. Save. To. Stream(MS); //запись в поток данных объекта Jpg MS. Position : = 0; //текущую позицию потока – в начало Response. Content. Type : = 'image/jpeg'; Response. Content. Stream : = MS; finally Jpg. Free; {поток удалять не надо} end;

Создание рисунка для потока procedure Proc. Generate(var B: TBitmap); begin With B Do begin Width : = 300; Height : = 300; Canvas. Text. Out(0, 0, 'Создал Красников'); Canvas. Pen. Color : = cl. Teal; Canvas. Pen. Width : = 2; r: =0; while r<6. 29 Do begin {r-параметр - от 0 до 2*pi} x: = 150 + (125*abs(sin(r*10))+25)*cos(r); y: = 150 + (125*abs(cos(r*10))+25)*sin(r); Canvas. Move. To(round(x), round(y)); Canvas. Line. To(round(x)+1, round(y)+1); r: =r+0. 004; end;

Результаты работы

Почта - Indy Internet Direct – открытые Internet-компоненты Основные свойства TId. SMTP– реализует клиентский SMTP-протокол Host : String – адрес (IP, доменный) удаленного SMTP-сервера PORT: Integer – для SMTP=25 User. Name : String – login автора сообщения Password : String – пароль автора сообщения (для аутентификации) Authentication. Type – (at. None, at. Login) без или с простой проверкой подлинности Auth. Schemes. Supported : TString. List методы аутентификации SMTP-сервера Основные свойства TId. Message: содержит Internet-сообщение From. Text : String – адрес отправителя Recipients. EMail. Addresses : String – адреса получателей, через запятую Content. Type : String – MIME-тип сообщения Char. Set : String – кодировка шрифта, например Char. Set: ='windows-1251' ; Body: TStrings – тело сообщения Subject : String – тема сообщения

Компоненты From, Recipients и их свойства Свойства TId. Message. From: автор сообщения (стандарт RFC 822) Address, Name, Text : String – адрес отправителя Пример, Id. Message. From. Name : = 'Jane Doe'; Id. Message. From. Address : = 'janed@another. net'; Id. Message. From. Text : = '"John Doe" <jdoe@some. net>'; // Id. Message. From. Text содержит 'Jane Doe <janed@another. net>' // Id. Message. From. Name содержит 'John Doe' // Id. Message. From. Address содержит 'jdoe@some. net' Свойства TId. Message. Recipients: получатель EMail. Addresses: String – адрес отправителя (стандарт RFC 822) Items[0 -2] – поля Address, Name, Text как в адресе отправителя

Отправка сообщений TId. SMTP Основные методы : Create, Destroy – создание, удаление объекта типа TId. Message Clear. Header, Clear. Body, Clear – очистить заголовок, тело, всё Connect – установить связь с SMTP-сервером для отправки сообщения Send(сообщение типа TId. Message) – отправить сообщение Disconnect – разорвать связь с SMTP-сервером Authenticate: Boolean – выполнить аутентификацию, при успехе - True Пример отправки сообщения Id. Message 1 с возможной аутентификацией: With Id. SMTP 1 Do begin Authentication. Type: =at. None; try Connect; if Auth. Schemes. Supported. Index. Of('LOGIN')>-1 then // требуется ли аутент. ? begin Authentication. Type: =at. Login; Authenticate; end; // - если «да» Send(Id. Message 1); Disconnect; finally Id. Message 1. Destroy; end; // - если оно дальше не нужно end;

Пример создания сообщения Var Id. Message 1: TId. Message; … begin // данные для подключения к SMTP (настройка Id. SMTP 1) Id. SMTP 1. Host: ='195. 184. 198. 5'; Id. SMTP 1. User. Name: ='Vova'; Id. SMTP 1. Password: ='xxxx'; Id. Message 1: = TId. Message. Create(nil); // создание письма With Id. Message 1 Do begin // создание заголовка и тела письма From. Text: ='vava@fbi. gov'; Recipients. EMail. Addresses: ='jon@dongu. donetsk. ua'; Content. Type: ='text/plain'; Char. Set: ='windows-1251'; Subject: ='тема письма'; Body. Add('строка 1'); Body. Add('строка 2'); … End;

Cookie Файл Cookie – до 4 Кб, - до 300 файлов для каждого пользователя, до 20 значений от одного домена Cookie (печенье, проныра) - это текстовая строка, которая может включаться в запросы и ответы протокола HTTP. Разработчики Webприложений организуют хранение в файлах Сookie на компьютере пользователя такие сведения, как персональные данные пользователя, логин и пароль, свои глобальные переменные и др. данные необходимые им для обработки последующих посещений клиента. Постоянным файлом Cookie называется файл, сохраняемый на компьютере после выхода из браузера. Этот файл Cookie может быть прочитан сайтом при его повторном посещении. Сохраненный на компьютере файл Cookie может прочитать только тот сайт, который его создал. Браузер, перед соединением с каждым сайтом, проверяет нет ли от него Cookie, если есть – добавляет его содержимое к HTTPзапросу этого сайта. Временные (сеансовые) файлы Cookie сохраняются только в течение текущего сеанса обозревателя и удаляются с компьютера после выхода из браузера.

Cookie C: Documents and SettingsпользовательCookies «Коллекции» Браузер отправляет серверу заголовки его коллекций cookie толстых@google[1]. txt Заголовок Cookie PREF - имя Cookie ID=87 b 064 fd 051 aeab 5: TM=11273990 36: LM=1127399036: S=BBYhp. V 8 Zu 96 - его значение Jn_bq google. com/ 1536 2618878336 32111634 1143386432 Cookie 1 29736833 * толстых@Cookie[2]. txt : Заголовок Cookie 1 - имя Cookie 1 Last. Visit 10. 03. 2005+16%3 A 38 - его значение localhost/net-web/Scripts/Cookie. exe/ 1024 302955264 29739266 3267401456 Cookie 1 29739039 * Заголовок Cookie 2 - имя Cookie 2 Hi - его значение Hallo%2 C+Client! localhost/net-web/Scripts/Cookie. exe/ 1024 302955264 29739266 3267401456 Cookie 2 29739039 * При повторной записи Cookie значения одинаковых параметров обновляются, а новые – добавляются. При этом имя файла Cookie получает очередной номер в квадратных скобках.

Коллекция TCookie. Collection для объекта Response - контейнер Response. Cookies объектов TCookie, - список всех заголовков Cookie в Web-ответе Основные свойства коллекции: Response. Cookies. Items[i]: TCookie – заголовок Cookie номер i в Web-ответе Response. Cookies. Count – количество Cookie в коллекции Основные методы коллекции: Response. Cookies. Add: TCookie – добавляет заголовок Cookie в Web-ответ свойства для TCookie: Name, Value, Domain, Path : String (ограничивает пути для Domain), Expires : TDate. Time (срок жизни Cookie), Secure : Boolean (должен ли клиент использовать защищенное соединение https при передачи заголовка Cookie), Header. Value (заголовок Cookie), Response. Cookies. Clear – удаляет все Cookie в коллекции Response. Cookies. Delete(i: Integer) – удаляет i-тый Cookie в коллекции

Метод Response. Set. Cookie. Field для добавления Cookie в Web-ответ Set. Cookie. Field (Values : TStrings (заголовки – имена и значения всех Cookie), Domain, Path, Expires, Secure) Пример добавления Cookie: procedure TWeb. Module 1 Web. Action. Item 1 Action(Sender: TObject; Request: TWeb. Request; Response: TWeb. Response; var Handled: Boolean); var List: TStrings; begin List: =TString. List. Create; // контейнер заголовков Cookie try List. Add('Last. Visit='+ {имя Cookie 1} Format. Date. Time('mm/dd/yyyy hh: mm: ss', Now) {значение Cookie 1}) ; List. Add('Hi='+ {имя Cookie 2 } 'Hallo, Client!‘ {значение Cookie 2}) ; Response. Set. Cookie. Field(List, '', Now+1, False); // срок жизни – 1 день Response. Content: ='<Html><Body> Cookie Установлен!</Body></html>'; finally List. Free; end;

Свойства Request для Cookie Основные свойства Request: Cookie : String – заголовки всех Cookie, пришедших от клиента, т. е. пары Name=Value (другие не высылаются) через ; Cookie. Fields : TStrings – контейнер строк-пар 'Name=Value' Методы Request для Cookie Основной метод Request: Extract. Cookie. Fields (List: TStrings) – прочитать в контейнер List пары 'Name=Value ' всех Cookie List. Values['Name'] – прочитать значение 'Value' для Cookie с именем 'Name' из контейнера строк List

Пример чтения Cookie procedure TWeb. Module 1 Web. Action. Item 2 Action(Sender: TObject; Request: TWeb. Request; Response: TWeb. Response; var Handled: Boolean); var List: TStrings; begin List: =TString. List. Create; // контейнер для всех заголовков Cookie try Request. Extract. Cookie. Fields(List); {прочитать заголовки Cookie в список} Response. Content: ='<Html><Body>'+ ' Значение Cookie 1: '+ List. Values['Last. Visit']+ ' Значение Cookie 2: '+ List. Values['Hi']+ ' Свойство Request. Cookie: '+ Request. Cookie+'</Body></html>'; finally List. Free; end;

Демонстрация Cookie 1 2

Пример добавления Cookie через свойство Cookies (Авторизация) Здесь в Cookie записывается пароль авторизации, что позволяет клиенту не проводить авторизацию при посещении этого сайта в течение суток. Пароль из Cookie передается серверу при незащищенном (не https) подключении клиента и без встроенной проверки подлинности Windows. Код обработчика On. Action для работы с Cookie: Handled : = False; // добавление Cookie не завершает Web-ответ with Response. Cookies. Add do begin Name : = 'Last. Password'; // Установка Cookie ’Last. Password’ для текущей авторизации, // либо, если авторизация не была проведена, то чтение данных // об авторизации из cookie ’Last. Password’ запроса request: Value : = Request. Authorization; if Value = '' then Value : = Request. Cookie. Fields. Values['Last. Password‘]; Secure : = False; // требование незащищенного подключения Expires : = Now + 1; // срок жизни – 1 день end; Далее, в других Action, можно проверить пароль в Value данного Cookie

Аутентификация и авторизация Установка доступа с проверкой подлинности встроенными средствами Windows Основана на обмене сервера зашифрованными сообще-ниями с Internet Explorer для подтверждения удостоверения пользователя

Результаты авторизации (переговоры) не анонимным доступом средствами Win – скрыты Last. Password oo ki e www. donnu. edu. ua/netweb/scripts/Authorization. exe / 1024 2173330560 29741265 865149456 29741039 * Результаты авторизации (переговоров) при анонимном доступе средствами Win можно сохранять в файл Last. Password Negotiate+Tl. RMTVNTUAADAAAAGAAYAHo. AAAAYABg. Akg. AAABAAEAB AAAAAGg. Aa. AFAAAAAQABAAag. AAAACq. AAAABYKIo. EQATw. BOAE 4 AVQBXAFc. AVw. BBAGQAb. QBp. AG 4 Aa. QBz. AHQAcg. Bh. AHQAbw. By. AFQAT w. BMAFMAVABZAEs. ASACPy 1 Gby. Qn 5 f. QAAAAAAAAAABV DKh%2 Fi. IUNZrww. SNq 4 EULm. SS 069 x. QBU 5 c%3 D www. donnu. edu. ua/net-web/scripts/Authorization. exe/ 1024 Идентификатор сессии 3683330560 Пароль 29741265 2378119456 29741039 *

Проверка подлинности «Обычная» - не встроенными средствами Windows Очередной запрос при сохраненном ранее пароле При обычной авторизации, не встроенными средствами Widows, пароль отправляется в текстовом формате и его можно сохранить и в системе и в файле Очередной запрос при не сохраненном пароле

Создание Intra. Web приложения - технология создания Web-приложений от фирмы Ato. Zed Intra. Web – это разработка форм Web приложений, ничем не отличающаяся от разработки обычных форм. В результате получается приложение, генерирующее для клиента обычные HTML-страницы с кодом на Java. Script. Выдача результатов в HTML обеспечивает совместимость с самыми распространенными браузерами

Intra. Web

Код обработчика кнопки «Посчитать сумму» procedure Tform. Main. IWButton 1 Click(Sender: TObject); var a, b, res : Double; code : Integer; begin val(IWEdit 1. Text, a, code); val(IWEdit 2. Text, b, code); res: =a+b; IWEdit 3. Text: =Format. Float('0. ##', res); end;

Запуск Intra. Web Запуск Результаты работы:

Скачать презентацию Из цикла лекций Технологии разработки Internet-приложений для студентов

f669b8463f56aa032118b117448a4183.ppt

Количество слайдов: 28