';
+ WriteString(Stream,S);
+end;
+
+procedure TTableProducer.EndTable(Stream: TStream);
+begin
+ WriteString(Stream,''#10);
+end;
+
+procedure TTableProducer.EmitFieldCell(C: TTableColumn; Stream: TStream);
+
+Var
+ URL : String;
+
+begin
+ WriteString(Stream,'| ');
+ With C.FField Do
+ begin
+ URL:=C.ActionURL;
+ If (URL<>'') then
+ begin
+ URL:=Format(C.ActionURL,[AsString]);
+ WriteString(Stream,'',[URL]);
+ end;
+ WriteString(Stream,AsString);
+ If (URL<>'') then
+ WriteString(Stream,'');
+ end;
+ WriteString(Stream,' | ');
+end;
+
+constructor TTableProducer.Create(AOwner : TComponent);
+begin
+ Inherited Create(AOwner);
+ CreateTableColumns;
+end;
+
+destructor TTableProducer.Destroy;
+begin
+ FTableColumns.Free;
+ Inherited;
+end;
+
+procedure TTableProducer.Clear;
+begin
+ FTableColumns.Clear;
+ If Assigned(FContents) then
+ FreeAndNil(FContents);
+ FBorder:=False;
+
+end;
+
+procedure TTableProducer.CreateColumns(FieldList: TStrings);
+
+Var
+ I : Integer;
+ FN : String;
+
+begin
+ For I:=0 to FDataset.FieldCount-1 do
+ begin
+ FN:=FDataset.Fields[I].FieldName;
+ If (FieldList=Nil) or (FieldList.IndexOf(FN)<>-1) then
+ With FTableColumns.Add as TTableColumn do
+ begin
+ FieldName:=FN;
+ Caption:=FDataset.Fields[i].DisplayName;
+ end;
+ end
+end;
+
+procedure TTableProducer.CreateColumns(FieldList: String);
+
+Var
+ L : TStringList;
+
+begin
+ If (FieldList='') then
+ CreateColumns(Nil)
+ else
+ begin
+ L:=TStringList.Create;
+ try
+ L.CommaText:=FieldList;
+ CreateColumns(L);
+ Finally
+ L.Free;
+ end;
+ end;
+end;
+
+procedure TTableProducer.CreateTable(Stream: TStream);
+begin
+ If FTableColumns.Count=0 then
+ CreateColumns(Nil);
+ BindColumns;
+ StartTable(Stream);
+ Try
+ CreateTableHeader(Stream);
+ While Not Dataset.EOF do
+ begin
+ CreateTableRow(Stream);
+ Dataset.Next;
+ end;
+ Finally
+ EndTable(Stream);
+ end;
+end;
+
+procedure TTableProducer.CreateTable;
+begin
+ CheckContents;
+ CreateTable(FContents);
+end;
+
+procedure TTableProducer.CreateContent;
+begin
+ CreateTable;
+end;
+
+
+{ TComboBoxProducer }
+
+function TComboBoxProducer.GetInputName: String;
+begin
+ If (FInputName='') then
+ Result:=Name
+ else
+ Result:=FInputName;
+end;
+
+constructor TComboBoxProducer.Create(AOwner: TComponent);
+begin
+ inherited Create(AOwner);
+end;
+
+destructor TComboBoxProducer.Destroy;
+begin
+ Inherited;
+end;
+
+procedure TComboBoxProducer.CreateItem(Stream : TStream; VF,DF : TField; Selected : Boolean);
+
+Const
+ SOptions : Array[Boolean] of String = ('Nil) and (VF<>DF) then
+ WriteString(Stream,' VALUE="'+VF.AsString+'"');
+ WriteString(Stream,'>'+DF.AsString+#10);
+end;
+
+procedure TComboBoxProducer.CreateComboBox(Stream: TStream);
+
+Var
+ VF,DF,SF : TField;
+
+begin
+ DF:=Dataset.FieldByNAme(DataField);
+ if (ValueField<>'') then
+ VF:=DF
+ else
+ VF:=Nil;
+ If (Value='') then
+ SF:=Nil
+ else
+ if VF<>NIl then
+ SF:=VF
+ else
+ SF:=DF;
+ WriteString(Stream,'');
+ end;
+end;
+
+procedure TComboBoxProducer.CreateComboBox;
+begin
+ CheckContents;
+ CreateComboBox(FContents);
+end;
+
+procedure TComboBoxProducer.CreateContent;
+begin
+ CreateComboBox;
+end;
+
+{ THTMLProceder }
+
+function THTMLProducer.GetContent: String;
+
+begin
+ If Assigned(FContents) then
+ begin
+ SetLength(Result,FContents.Size);
+ If (FContents.Size>0) then
+ Move(FContents,Result[1],FContents.Size);
+ end;
+end;
+
+procedure THTMLProducer.CheckContents;
+begin
+ If Assigned(FContents) then
+ FContents.Clear
+ else
+ FContents:=TMemoryStream.Create;
+end;
+
+destructor THTMLProducer.Destroy;
+begin
+ If Assigned(FContents) then
+ FreeAndNil(FContents);
+ inherited Destroy;
+end;
+
+procedure THTMLProducer.ClearContent;
+begin
+ If Assigned(FContents) then
+ FContents.Clear;
+end;
+
+procedure THTMLProducer.WriteString(S: TStream; const Value: String);
+
+Var
+ L : Integer;
+
+begin
+ L:=Length(Value);
+ If L>0 then
+ S.Write(Value[1],L);
+end;
+
+procedure THTMLProducer.WriteString(S: TStream; const Fmt: String;
+ Args: array of const);
+begin
+ WriteString(S,Format(Fmt,Args));
+end;
+
+{ TDBHtmlWriter }
+
+function TDBHtmlWriter.CreateTableProducer: TTableProducer;
+begin
+ Result:=TTableProducer.Create(Nil);
+end;
+
+procedure TDBHtmlWriter.CreateTable(Dataset: TDataset);
+
+Var
+ P : TTableProducer;
+
+begin
+ P:=CreateTableProducer;
+ Try
+ CreateTable(Dataset,P);
+ Finally
+ P.Free;
+ end;
+end;
+
+procedure TDBHtmlWriter.CreateTable(Dataset: TDataset; Producer: TTableProducer);
+begin
+ Producer.Dataset:=Dataset;
+ Producer.CreateTable(Self.Stream);
+end;
+
+end.