Интернет решения от доктора Боба

Swart Bob

j := 0;

for i:=1 to ContentLength do

begin

Inc(j);

read(Data[j]);

end;

Data[j+1] := '&';

{ now call Value or ValueAsInteger to obtain individual values }

end;

Заметим, что первые три "writeln"

строки, посылаемые на стандартный вывод, необходимы для браузера, что бы сообщить ему, что содержимое страницы имеет тип TEXT/HTML.

2.2.5. Базы данных

При написании CGI приложений, вам необходим, какой то путь для доступа к данным базы. Одним из простых решений будет использование BDE и помещение ваших данных в таблицы Парадокса или dBASE. Если по какой либо причине BDE не инсталлировано на вашем NT Web сервере (может быть ваш дружественный Internet Provider не предоставляет вам BDE), вы можете использовать технику старых дней, используйте вместо базы данных файл записей.. Все что вам нужно, определить тип TRecord и написать программу, которая конвертирует вашу базу данных в file of TRecord.

2.2.6. Преобразование

Если вы посмотрите на список полей Парадокса, то вам не составит труда понять, что не все поля можно просто конвертировать в текстовый формат, например типа Memo обычно не помещаются в короткие строки (Short String). А как начет Blob? Для данного типа полей я составил небольшую таблицу конвертирования.

Paradox field type	ObjectPascal conversion type
TStringField (size)	String[length]
TIntegerField, TWordField, TSmallIntField	Integer
Currency	Double
Memo, Blob	n/a (ignored)

Использую данную таблицу не трудно небольшую программу, которая берет на вход таблицу и создает программу определения записи на Паскале.

{$APPTYPE CONSOLE}

 uses DB, DBTables;

 var i: Integer;

 begin

if ParamCount = 1 then with TTable.Create(nil) do

try

TableName := ParamStr(1);

Active := True;

writeln('Type');

writeln(' TRecord = record');

for i:=0 to Pred(FieldDefs.Count) do

begin

if (FieldDefs[i].FieldClass = TStringField) then

writeln(' ':4,FieldDefs[i].Name,': String[',FieldDefs[i].Size,'];')

else

begin

if (FieldDefs[i].FieldClass = TIntegerField) or

(FieldDefs[i].FieldClass = TWordField) or

(FieldDefs[i].FieldClass = TSmallintField) then

writeln(' ':4,FieldDefs[i].Name,': Integer;')

else

if (FieldDefs[i].FieldClass = TCurrencyField) then

writeln(' ':4,FieldDefs[i].Name,': Double;')

else

writeln('{ ':6,FieldDefs[i].Name,' }')

end

end

finally

writeln(' end;');

Free

end

else

writeln('Usage: record tablename')

 end.

Конечно,

таблица трансляции и программа определения записи должны быть расширены, что включить и другие типы полей Парадокса, но для примера и этого достаточно.

2.2.7. Записи

После осознания, что мы можем писать на Delphi 2 CGI приложения без использования BDE, мы решили сгенерировать тип записи для нашей таблицы delbooks.db и конвертировать ее записи в файл записей. Использую программ RECORD.EXE из предыдущей главы мы получили следующее определение записи.

Type

TRecord = record

ISBN: String[16];

Title: String[64];

Author: String[64];

Publisher: String[32];

Price: Double;

Code: String[7];

{ Comments }

Level: Integer;

TechnicalContentsQuality: Integer;

QualityOfWriting: Integer;

ValueForMoney: Integer;

OverallAssessment: Integer;

{ Cover }

end;

Теперь нам осталось написать сам конвертор, который в цикле просматривает записи таблицы, помещает их в запись и записывает в файл.

{$APPTYPE CONSOLE}

 uses DB, DBTables, SysUtils;