TDataSetTableProducer???!!!

[Markus Röttgen]

Hi!

ich habe eine Paradox datenbank. Eine Liste von CD`s. Nun möchte ich daraus eine HTML-Datei generieren, hab aber keine Ahnung wie? Kann mir jemand weiterhelfen?

Vielen Dank Markus Röttgen

[Andreas Kosch]

Hallo,

das folgende Minimal-Beispiel demonstriert die Vorgehensweise: <br>
1. TTable-Instanz mit der DBDEMOS-Tabelle <i>Country.db</i> verbinden <br>
2. TDataSetTableProducer-Instanz mit TTable-Instanz verbinden<br>
3. TStringList-Instanz erzeugen <br>
4. Über TStringList-Methode <b>Add</b> den Inhalt von <b>Content</b> in eine Stringlist kopieren <br>
4. Stringlist über <b>SaveToFile</b> als Datei abspeichern oder direkt (ohne Umweg einer Datei) in eine TWebBrowser-Instanz einfügen.
<pre>
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, HTTPApp, DBWeb;

type
TForm1 = class(TForm)
DataSetTableProducer1: TDataSetTableProducer;
Table1: TTable;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
aSL : TStringList;
begin
aSL := TStringList.Create;
try
aSL.Add(DataSetTableProducer1.Content);
aSL.SaveToFile('C:\Temp\Country.htm');
finally
aSL.Free;
end;
end;

end.
</pre>
Formular:
<pre>
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 24
Top = 72
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object DataSetTableProducer1: TDataSetTableProducer
DataSet = Table1
Left = 56
Top = 16
end
object Table1: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'COUNTRY.DB'
Left = 16
Top = 16
end
end
</pre&gt