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;

 procedure WriteStream(var f: Text; var Stream: TMemoryStream);
 const
   LF = #10;
   BufSize = 8192; { bigger memos are chopped off!! }
 var
   Buffer: Array[0..Pred(BufSize)] of Char;
   i: Integer;
 begin
   Stream.Seek(0,0);
   if Stream.Size > 0 then
   begin
     Stream.Read(Buffer,Stream.Size);
     for i:=0 to Pred(Pred(Stream.Size)) do
     begin
       { empty line converted to <P> break }
       if (Buffer[i] = LF) and (Buffer[i+1] = LF) then writeln(f,'<P>');
       { strip multiple spaces (are ignored anyway) }
       if not ((Buffer[i] = ' ') and (Buffer[i+1] = ' ')) then write(f,Buffer[i]);
       { start new sentence on a new line (but only in HTML doc itself }
       if (Buffer[i] = '.') and (Buffer[i+1] = ' ') then writeln(f)
     end;
     writeln(f,Buffer[Pred(Stream.Size)])
   end
   else writeln(f,' ') { empty memo }
 end {WriteStream};

 procedure WriteMemo(var f: Text; Field: TField);
 var Stream: TMemoryStream;
 begin
   Stream := TMemoryStream.Create;
  (Field AS TMemoField).SaveToStream(Stream);
   WriteStream(f,Stream);
   Stream.Free
 end {WriteMemo};

  <IMG SRC="image.gif" USEMAP="#map">

  <MAP NAME="map">
  <AREA SHAPE="rect" COORDS="51,0,75,25"  HREF="next">
  <AREA SHAPE="rect" COORDS="76,0,100,25" HREF="last">
  <AREA SHAPE="rect" COORDS="101,0,125,25"HREF="this">
  </MAP>

All I needed now were three bitmaps: one of the database navigator at the first record (first and prior button disabled), one at the last record (last and next button disabled) and only somewhere in the middle of the database (no buttons disables). In each situation, I assign a "link" from one of the buttons to another page. This gives the strong feeling of feedback when clicking on a "button". Of course, the button cannot get clicked down, but we do get fast response, especially when compared to Java or CGI-applications (all that happens is a jump to another static HTML-page).

  NAVIGATL.GIF: 

  NAVIGAT.GIF:	

  NAVIGATR.GIF: 

  if (RecNr = 1) then { first record }
  begin
    writeln(f,'<IMG SRC="../images/navigatl.gif" '+
               'ALIGN=RIGHT USEMAP="#map" BORDER="0">');
    writeln(f,'<MAP NAME="map">');
    writeln(f,'<AREA SHAPE="rect" COORDS="51,0,75,25"  HREF="'+
                PageNr(2)+'">');
    writeln(f,'<AREA SHAPE="rect" COORDS="76,0,100,25" HREF="'+
                LastPage+'">');
    writeln(f,'<AREA SHAPE="rect" COORDS="101,0,125,25"HREF="'+
                PageNr(RecNr)+'">');
  end
  else
  if (RecNr = RecordCount) then { last record }
  begin
    writeln(f,'<IMG SRC="../images/navigatr.gif" '+
               'ALIGN=RIGHT USEMAP="#map" BORDER="0">');
    writeln(f,'<MAP NAME="map">');
    writeln(f,'<AREA SHAPE="rect" COORDS="0,0,25,25"   HREF="'+
                FirstPage+'">');
    writeln(f,'<AREA SHAPE="rect" COORDS="26,0,50,25"  HREF="'+
                PageNr(RecNr-1)+'">');
    writeln(f,'<AREA SHAPE="rect" COORDS="101,0,125,25"HREF="'+
                PageNr(RecNr)+'">');
  end
  else { middle record }
  begin
    writeln(f,'<IMG SRC="../images/navigat.gif" '+
              'ALIGN=RIGHT USEMAP="#map" BORDER="0">');
    writeln(f,'<MAP NAME="map">');
    writeln(f,'<AREA SHAPE="rect" COORDS="0,0,25,25"   HREF="'+
                FirstPage+'">');
    writeln(f,'<AREA SHAPE="rect" COORDS="26,0,50,25"  HREF="'+
                PageNr(RecNr-1)+'">');
    writeln(f,'<AREA SHAPE="rect" COORDS="51,0,75,25"  HREF="'+
                PageNr(RecNr+1)+'">');
    writeln(f,'<AREA SHAPE="rect" COORDS="76,0,100,25" HREF="'+
                LastPage+'">');
    writeln(f,'<AREA SHAPE="rect" COORDS="101,0,125,25"HREF="'+
                PageNr(RecNr)+'">');
  end;
  writeln(f,'</MAP>');

First Results
When converting the BIOLIFE.DB database, consisting of many textual fields, a memo field and one - ignored - image field, we get the following result (note the header which indicated record 1 of 28):

The "live" HTML buttons work just as before, and we can also click on any record number in the index frame on the left. Note that the contents frame on the right even contains the current position (and the total record number) in the table, since this was also generated on the fly.

Now that we have two ways to convert a table to a HTML page, either a simple text convert or a more complex frame/table convert, I've written a little program that uses both. This is a simple console application that needs the name of the table as command-line argument (the table must also be in the current directory). By default, the normal conversion method is used. However, if more than one parameter is supplied, then the frame/table conversion is used (the extra parameters are ignored, by the way).

 program BDE2HTML;
 {$IFDEF WIN32}
 {$APPTYPE CONSOLE}
 uses
 {$ELSE}
 uses WinCrt,
 {$ENDIF}
      Convert, HTables;
 begin
   case ParamCount of
       0: writeln('Usage: BDE2HTML tablename');
       1: Convert.DatabaseHTML('',ParamStr(1));
     else HTables.DatabaseHTML('',ParamStr(1))
   end
 end.