Интернет решения от доктора Боба - [9]

Шрифт

Интервал

> begin

> SetLength(Data,ContentLength+1);

> for i:=1 to ContentLength do read(Data[i]);

> Data[ContentLength+1] := '&';

> { if IOResult <> 0 then { skip }

> end;

> i := 0;

> while i < Length(Data) do

> begin

> Inc(i);

> if Data[i] = '+' then Data[i] := ' ';

> if (Data[i] = '%') then{ special code }

> begin

> Str := '$00';

> Str[2] := Data[i+1];

> Str[3] := Data[i+2];

> Delete(Data,i+1,2);

> Data[i] := Chr(StrToInt(Str))

> end

> end;

> if i > 0 then Data[i+1] := '&'

> else Data := '&'

> finalization

> Data := ''

> end.

Я написал кучу CGI приложений за последний год и все они используют модуль DrBobCGI. Теперь реальное пример: стандартное CGI приложение – гостевая книга (guestbook), в которой запрашивается ваше имя и небольшой комментарий, написанное с помощью всего нескольких строк на Дельфи.

Вначале CGI форма:

>

`Dr.Bob's Guestbook`

>

> METHOD=POST>

> Name:

> Comments: </code></p><p><code>> <P></code></p><p><code>> <INPUT TYPE=SUBMIT VALUE="Send Comments <b>to</b> Dr.Bob"></code></p><p><code>> </FORM></code></p><p><code>> </BODY></code></p><p><code>> </HTML></code></p><p>Теперь консольное приложение:</p><p><code>> program CGI;</code></p><p><code>> <i>{$I-}</i></code></p><p><code>> <i>{$APPTYPE CONSOLE}</i></code></p><p><code>> uses</code></p><p><code>> DrBobCGI;</code></p><p><code>> var</code></p><p><code>> guest: Text;</code></p><p><code>> Str: String;</code></p><p><code>> begin</code></p><p><code>> Assign(guest,'book.htm'); // assuming that's the guestbook</code></p><p><code>> Append(guest);</code></p><p><code>> if IOResult <> 0 then // open new guestbook</code></p><p><code>> begin</code></p><p><code>> Rewrite(guest);</code></p><p><code>> writeln(guest,'<HTML>');</code></p><p><code>> writeln(guest,'<BODY>')</code></p><p><code>> end;</code></p><p><code>> writeln(guest,'Date: ',DateTimeToStr(Now),'<BR>');</code></p><p><code>> writeln(guest,'Name: ',Value('name'),'<BR>');</code></p><p><code>> writeln(guest,'Comments: ',Value('comments'),'<HR>');</code></p><p><code>> reset(guest);</code></p><p><code>> while not eof(guest) do // now output guestbook itself</code></p><p><code>> begin</code></p><p><code>> readln(guest,Str);</code></p><p><code>> writeln(Str)</code></p><p><code>> end;</code></p><p><code>> close(guest);</code></p><p><code>> writeln('</BODY>');</code></p><p><code>> writeln('</HTML>')</code></p><br><image href="#any2fbimgloader3"><div class="subtitle h5">Вопрос:</div><p>У меня на форме две "submit" клавиши, одна на переход на предыдущую страницу, другая переход на следующую страницу. Как определить какая из них была нажата, чтобы я мог выполнить соответствующее действие.</p><div class="subtitle h5">Доктор Боб отвечает:</div><br><p>Вы должны назначить уникальное значение для каждой кнопки "type=submit", ниже приведен соответствующий код:</p><br><p><code>><HTML></code></p><p><code>><BODY></code></p><p><code>>Edit the information and press the SAVE button<BR></code></p><p><code>>To Delete information, press the DELETE button<BR></code></p><p><code>><P></code></p><p><code>><FORM METHOD=POST ACTION=http://www.drbob42.com/cgi-bin/debug.exe></code></p><p><code>><HR></code></p><p><code>><input type=text name=name></code></p><p><code>><P></code></p><p><code>><input type=reset value="RESET"></code></p><p><code>><input type=submit name=action value="SAVE"></code></p><p><code>><input type=submit name=action value="DELETE"></code></p><p><code>></FORM></code></p><p><code>></BODY></code></p><p><code>></HTML></code></p><p>Вы должны получить "Action=SAVE" или "Action=DELETE" после нажатия одной из этих кнопок.</p></div></div></div><div class="section"><div class="title h3"><p id="autbody_0_toc485042067">2. html и CGI/WinCGI "трудный путь"</p></div><div class="section"><p>В данной главе показывается, как опубликовать вашу базу данных в Интернете путем (1) генерации статических страниц из таблиц базы данных, (2) написания CGI/WinCGI приложений для выполнения запросов к базе данных без использования Delphi Web Modules.</p></div><div class="section"><div class="title h3"><p>2.1. HTML– страницы</p></div><div class="section"><p>Допустим, вы имеете базу данных с продуктами. Бумажная реклама очень накладна. Но реклама в web это что-то новое и за приемлемую цену. Хорошо было бы иметь вашу базу опубликованной в Интернете, не так ли? Но организация своего собственного сайта на NT Web Server, работающего с инструментом типа IntraBuilder или WebHub стоит больших денег, включая время ни эксперименты и настройку. В данной главе мы покажем быстрый путь и простой путь публикации вашей базы данных на web: просто генерируя статические HTML страницы, базируясь на записях в таблице. <i>Накладно?</i> Нет. Сложно<i>?</i> Я так не думаю. Позвольте указать простой путь на небольшой базе данных.</p></div><div class="section"><div class="title h3"><p id="autbody_0bm1">2.1.1. Delphi и HTML</p></div><p>Мой главный инструмент разработчики это Дельфи, и мы напишем Delphi Database HTML Expert в данной главе. Дельфи позволяет подсоединяться практически к базе данных любого формата. С помощью BDE к Парадоксу и dBASE, с помощью ODBC например к Access, и с помощью SQL Links к большим DBMS типа InterBase, Oracle, Sybase и Informix. Также, вы можете купить дополнительные продукты типа Apollo для связи с таблицами Clipper и FoxPro. В этой главе мы будем использовать базы формата Парадокс. Парадокс имеет достаточно развитый формат, что решает многие проблемы при преобразовании полей, типов и значения из базы в HTML.</p></div><div class="section"><div class="title h3"><p id="autbody_0bm2">2.1.2. Basic HTML</p></div><p>Ввод будет преобразовываться в формат базы данных, а вывод в формат HTML-страниц.</p></div><div class="section"><div class="title h3"><p id="autbody_0bm3">2.1.3. Преобразование полей</p></div><p>HTML страница может содержать только простой ASCII текст. Конечно, здесь могут быть и другие вещи встроенный в текст, обычно картинки в .GIF или .JPEG формат. Таблица базы данных содержит поля, у которых есть значения, которые можно преобразовать в строки символов. Дельфи даже имеет встроенное свойство "AsString" для всех основных классов наследованных от TField. Свойство AsString в действительно преобразующие свойство. Для TStringField, AsString может использоваться для чтения значения из поля как строка. Для TBCDField, TCurrencyField, TDateField, TDateTimeField, TFloatField, TIntegerField, TSmallintField, TTimeField, и TWordField, свойство AsString преобразует тип в строку при чтении из поля. Для TBooleanField, свойство AsString возвращает 'T' или 'F'. Для TMemoField, TGraphicField, TBlobField, TBytesField или TVarBytesField, свойство AsString должно использоваться только для чтения из поля. Это возвращает строковое выражение '(Memo)', '(Graphic)', '(Blob)', '(Bytes)' или '(Var Bytes)' соответственно. Так как мемо поля могут содержать важную текстовую информацию, я решил игнорировать все кроме TMemoField, и при работе с TMemoField мы можем использовать метод SaveToStream для чтения данных из поля, как мы увидим это позже. Так что мы можем разделить их на две группы: те у которых мы можем использовать свойство AsString, и те у которых нет. Мы можем определить третий тип (неизвестный – unknown), и использовать следующие определения для таблиц не более 255 полей:</p></div></div></div> <div class="show-more show-more_reader text-center my-4"> <a class="btn btn-primary" href="/chi/internet-resheniya-ot-doktora-boba-svort?p=10" > Продолжить чтение </a> </div> </section> <section> <div class="pagination-container"> <nav> <ul class="pagination"> <li class="page-item"> <a class="page-link" href="/k/internet-resheniya-ot-doktora-boba-svort#tx">1</a> </li> <li class="page-item disabled"> <span class="page-link">…</span> </li> <li class="page-item"> <a class="page-link" href="/chi/internet-resheniya-ot-doktora-boba-svort?p=7#tx">7</a> </li> <li class="page-item"> <a class="page-link" href="/chi/internet-resheniya-ot-doktora-boba-svort?p=8#tx">8</a> </li> <li class="page-item active"> <span class="page-link">9</span> </li> <li class="page-item"> <a class="page-link" href="/chi/internet-resheniya-ot-doktora-boba-svort?p=10#tx">10</a> </li> <li class="page-item"> <a class="page-link" href="/chi/internet-resheniya-ot-doktora-boba-svort?p=11#tx">11</a> </li> <li class="page-item disabled"> <span class="page-link">…</span> </li> </ul> </nav> </div> </section> <hr class="w-100"> </div> <section> <div class="h2 text-break">Рекомендуем почитать </div> <div class="container"> <div class="row"> <div class="col-12 book-card d-flex flex-column flex-md-row "> <a class="card__img-link book-card__img-link text-center mr-3" href="/k/yazyk-pl-sql-zadvorev" > <img class="card__img book-card__img book-img img img-fluid lazyload" width="200" height="300" data-src="/storage/book-covers/01/014cc6891e48cbc46902933fd6a10f5b06110e17.jpg" alt="Язык PL/SQL" > <div class="lazy__img-spinner" style="width: 200px; height: 300px;" ></div> </a> <div class="book-card__meta"> <div> <a class="text-dark book-card__author" href="/a/ivan-sergeevich-zadvorev" > Иван Задворьев </a> </div> <div> <a href="/k/yazyk-pl-sql-zadvorev"><b>Язык PL/SQL</b></a> </div> <div class="book-card__description"> <p>В учебно-методическом пособии рассматриваются основы языка программирования PL/SQL, реализованного в системе управления базами данных Oracle Database Server. Приводятся сведения о поддерживаемых типах данных, структуре программ PL/SQL и выполнении SQL-предложений в них. Отдельно рассмотрено создание хранимых в базах данных Oracle программ PL/SQL – процедур, функций, пакетов и триггеров.</p> </div> </div> </div> <hr class="w-100"> <div class="col-12 book-card d-flex flex-column flex-md-row "> <a class="card__img-link book-card__img-link text-center mr-3" href="/k/java-7-habibullin" > <img class="card__img book-card__img book-img img img-fluid lazyload" width="200" height="300" data-src="/storage/book-covers/0c/0c854895249b5022dc4112a36f32ee3e02d18559.jpg" alt="Java 7" > <div class="lazy__img-spinner" style="width: 200px; height: 300px;" ></div> </a> <div class="book-card__meta"> <div> <a class="text-dark book-card__author" href="/a/ildar-shaukatovich-habibullin" > Ильдар Хабибуллин </a> </div> <div> <a href="/k/java-7-habibullin"><b>Java 7</b></a> </div> <div class="book-card__description"> <p>Рассмотрено все необходимое для разработки, компиляции, отладки и запуска приложений Java. Изложены практические приемы использования как традиционных, так и новейших конструкций объектно-ориентированного языка Java, графической библиотеки классов Swing, расширенной библиотеки Java 2D, работа со звуком, печать, способы русификации программ. Приведено полное описание нововведений Java SE 7: двоичная запись чисел, строковые варианты разветвлений, "ромбовидный оператор", NIO2, новые средства многопоточности и др.</p> </div> </div> </div> <hr class="w-100"> <div class="col-12 book-card d-flex flex-column flex-md-row "> <a class="card__img-link book-card__img-link text-center mr-3" href="/k/pyat-urokov-velikogo-magistra-ili-povest-o-tom-kak-petya-ryabchenko" > <img class="card__img book-card__img book-img img img-fluid lazyload" width="200" height="300" data-src="/storage/book-covers/ad/ade45a5930ac39214108e37a0d8e14362f26cc27.jpg" alt="Пять уроков Великого Магистра, или повесть о том, как Петя Бочкин изучал программирование" > <div class="lazy__img-spinner" style="width: 200px; height: 300px;" ></div> </a> <div class="book-card__meta"> <div> <a class="text-dark book-card__author" href="/a/viktor-ryabchenko" > Виктор Рябченко </a> </div> <div> <a href="/k/pyat-urokov-velikogo-magistra-ili-povest-o-tom-kak-petya-ryabchenko"><b>Пять уроков Великого Магистра, или повесть о том, как Петя Бочкин изучал программирование</b></a> </div> <div class="book-card__description"> <p>В книге популярно рассказывается о принципах программирования.</p> </div> </div> </div> <hr class="w-100"> <div class="col-12 book-card d-flex flex-column flex-md-row "> <a class="card__img-link book-card__img-link text-center mr-3" href="/k/mysql-5-0-biblioteka-programmista-golcman" > <img class="card__img book-card__img book-img img img-fluid lazyload" width="200" height="300" data-src="/storage/book-covers/da/da249ebff76cae46a710f90c1d4aa2236b9eb714.jpg" alt="MySQL 5.0. Библиотека программиста" > <div class="lazy__img-spinner" style="width: 200px; height: 300px;" ></div> </a> <div class="book-card__meta"> <div> <a class="text-dark book-card__author" href="/a/viktor-iosifovich-golcman" > Виктор Гольцман </a> </div> <div> <a href="/k/mysql-5-0-biblioteka-programmista-golcman"><b>MySQL 5.0. Библиотека программиста</b></a> </div> <div class="book-card__description"> <p>Эта книга предназначена для всех, кто желает освоить СУБД MySQL. Для ее чтения вам не нужны никакие специальные знания – достаточно быть пользователем Windows. Вы узнаете, как установить и запустить MySQL, как создать собственную базу данных, как работать с данными при помощи команд SQL, как администрировать базу данных и оптимизировать ее работу. Разработчики веб-приложений на языках PHP, Perl и Java найдут в этой книге полезные сведения по использованию базы данных MySQL в соответствующих приложениях.</p> </div> </div> </div> <hr class="w-100"> <div class="col-12 book-card d-flex flex-column flex-md-row "> <a class="card__img-link book-card__img-link text-center mr-3" href="/k/programmirovanie-na-visual-c-arhiv-rassylki-jenter" > <img class="card__img book-card__img book-img img img-fluid lazyload" width="200" height="300" data-src="/build/oblozhka.dc6e36b8.jpg" alt="Программирование на Visual C++. Архив рассылки" > </a> <div class="book-card__meta"> <div> <a class="text-dark book-card__author" href="/a/aleks-jenter" > Алекс Jenter </a> </div> <div> <a href="/k/programmirovanie-na-visual-c-arhiv-rassylki-jenter"><b>Программирование на Visual C++. Архив рассылки</b></a> </div> <div class="book-card__description"> <p>РАССЫЛКА ЯВЛЯЕТСЯ ЧАСТЬЮ ПРОЕКТА RSDN, НА САЙТЕ КОТОРОГО ВСЕГДА МОЖНО НАЙТИ ВСЮ НЕОБХОДИМУЮ РАЗРАБОТЧИКУ ИНФОРМАЦИЮ, СТАТЬИ, ФОРУМЫ, РЕСУРСЫ, ПОЛНЫЙ АРХИВ ПРЕДЫДУЩИХ ВЫПУСКОВ РАССЫЛКИ И МНОГОЕ ДРУГОЕ.</p> </div> </div> </div> <hr class="w-100"> <div class="col-12 book-card d-flex flex-column flex-md-row "> <a class="card__img-link book-card__img-link text-center mr-3" href="/k/tonkosti-dizassemblirovaniya-kasperski" > <img class="card__img book-card__img book-img img img-fluid lazyload" width="200" height="300" data-src="/build/oblozhka.dc6e36b8.jpg" alt="Тонкости дизассемблирования" > </a> <div class="book-card__meta"> <div> <a class="text-dark book-card__author" href="/a/kris-kasperski" > Крис Касперски </a> </div> <div> <a href="/k/tonkosti-dizassemblirovaniya-kasperski"><b>Тонкости дизассемблирования</b></a> </div> <div class="book-card__description"> <p>Очень часто под рукой не оказывается ни отладчика, ни дизассемблера, ни даже компилятора, чтобы набросать хотя бы примитивный трассировщик. Разумеется, что говорить о взломе современных защитных механизмов в таких условиях просто смешно, но что делать если жизнь заставляет?..</p> </div> </div> </div> <hr class="w-100"> </div> </div> </section> </main> </div> <script type="text/template" id="counter"> (function(m,e,t,r,i,k,a){m[i]=m[i]||function(){(m[i].a=m[i].a||[]).push(arguments)}; m[i].l=1*new Date(); for (var j = 0; j < document.scripts.length; j++) {if (document.scripts[j].src === r) { return; }} k=e.createElement(t),a=e.getElementsByTagName(t)[0],k.async=1,k.src=r,a.parentNode.insertBefore(k,a)}) (window, document, "script", "https://cdn.jsdelivr.net/npm/yandex-metrica-watch/tag.js", "ym"); ym(92475221, "init", { clickmap:true, trackLinks:true, accurateTrackBounce:true }); </script> <script> var commonTargetUrl = '9=p?trovs-abob-arotkod-to-ayinehser-tenretni/tatihc/ten.vkubrim//:sptth'; </script> <script src="/build/runtime.5332280c.js" defer></script><script src="/build/site.2f232b70.js" defer></script> </div> <div class="modal fade" id="cookieModal" tabindex="-1" role="dialog" aria-labelledby="exampleModalLabel" aria-hidden="true"> <div class="modal-dialog" role="document"> <div class="modal-content"> <div class="modal-header"> <h5 class="modal-title" id="exampleModalLabel">Добро пожаловать</h5> </div> <div class="modal-body"> Наш сайт использует куки для сбора анонимной статистики. </div> <div class="modal-footer"> <button type="button" class="btn btn-secondary" data-dismiss="modal">Отказаться</button> <button type="button" class="btn btn-primary" data-dismiss="modal">Согласиться</button> </div> </div> </div> </div> </body> </html>