Интернет решения от доктора Боба - страница 12
2.1.2. Basic HTML
Ввод будет преобразовываться в формат базы данных, а вывод в формат HTML-страниц.
2.1.3. Преобразование полей
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 полей:
>const
> MaxField = 255;
> sf_UnKnown = 0;
> sf_String = 1;
> sf_Memo = 2;
>var
> FieldTypes: Array[0..Pred(MaxField)] of Byte; { default unknowns }
Мы должны просмотреть структуру таблицы для получения информации об типах полей:
> with TTable.Create(nil) do
> try
> DatabaseName := ADatabase;
> TableName := ATable;
> Active := True;
> keys := -1; { no key in table }
> for i:=0 to Pred(FieldDefs.Count) do
> begin
> if Fields[i].IsIndexField then keys := i;
> FieldTypes[i] := sf_String; { default }
> if (FieldDefs[i].FieldClass = TMemoField) then
> FieldTypes[i] := sf_Memo
> else
> if (FieldDefs[i].FieldClass = TGraphicField) or
> (FieldDefs[i].FieldClass = TBlobField) or
> (FieldDefs[i].FieldClass = TBytesField) or
> (FieldDefs[i].FieldClass = TVarBytesField) then
> FieldTypes[i] := sf_UnKnown { ignore }
> end
> finally
> Free
> end;
2.1.4. Записи
После анализа полей таблицы, мы можем пройтись по всей таблице и получить значения полей. Для каждой записи в таблице мы сгенерируем HTML-страницу. Мы можем использовать имена полей как заголовки, используя тег
для ключевых полей и тег для не ключевых полей. Код просматривает всю таблицу т преобразовывает поля в текст и выводит их в HTML-файл:
>while not Eof do
>begin
> Inc(RecNr);
> System.Assign(f,FileName+'/'+PageNr(RecNr));
> System.Rewrite(f);
> writeln(f,'');
> writeln(f,'
> writeln(f,'
> writeln(f,'');
> writeln(f,'');
> { print fields }
> for i:=0 to Pred(FieldCount) do
> if FieldTypes[i] > sf_UnKnown then
> begin
> if (keys >= i) then writeln(f,'')
> else writeln(f,'');
> writeln(f,FieldDefs[i].Name,':');
> if (keys >= i) then writeln(f,'
') { }
> else writeln(f,'
'); { }
> if FieldTypes[i] = sf_Memo then
> writeMemo(f,Fields[i])
> else writeln(f,Fields[i].AsString);
> if (keys = i) then writeln(f,'
');
> end;
> writeln(f,'');
> writeln(f,'');
> System.Close(f);
> Next
> end;
Заметим, что я использую здесь одно недокументированное свойство HTML: для окончания заголовка вы можете написать , но вы должны использовать
для разрыва строки. Таким образом, вы можете иметь заголовки, и текст, начинающийся правее и ниже заголовка. Пожалуйста, учтите, что это недокументированное свойство и вы должны заменить его раскомментировав и если вы не желаете жить на угле <юмор>. Следующий листинг показывает как получить информацию из мемо поля базы данных и поместить его в текстовый файл. И наконец после этого мы отформатируем немного, помня что HTML игнорирует множественные переводы строки и пробелы.