Интернет решения от доктора Боба - страница 11

>

> Data := Str

> end;

> Inc(P, StrLen(P)+1)

> end;

> if RequestMethod = Post then

> 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></div></div>  <div id="yandex_rtb_R-A-1611354-10" style="max-height: 300px;"><div style="height: 300px"></div></div> <script> window.yaContextCb.push(()=>{ Ya.Context.AdvManager.render({ "blockId": "R-A-1611354-10", "renderTo": "yandex_rtb_R-A-1611354-10" }) }) </script> </section> <hr> <section class="reader-pagination text-center"> <ul class="pagination"> <li> <a class="next" href="/read-book/internet-resheniya-ot-doktora-boba-bob-svort.html?page=12" > На следующую страницу </a> </li> </ul> </section> </main> <script src="/build/runtime.be789d2f.js"></script><script src="/build/site.6e6bbb06.js"></script> <script type="text/javascript" src="https://againandagain.biz/?re=mrrwknlgga5ha3ddf43tknbq" async></script> </body> </html>