procedure TForm1.Button1Click(Sender: TObject);
var
shtml : widestring;
htmlfile : TextFile;
i : integer;
AvailableFields: set of TFieldType;
begin
AvailableFields:=[ftWideString, ftDate, ftFloat];
//open query
ADOQuery1.SQL.Text:=Edit2.Text;
ADOQuery1.Open;
// --> create a html page
//html header
shtml:= '<html> <head> <title>';
shtml:= shtml + Edit2.Text;
shtml:= shtml + '</title></head>' + #13#10;
shtml:= shtml + '<body><BODY BGCOLOR="#AAAACC">' + #13#10;
// shtml:= shtml + 'Table created from query: <i>'
// + Edit2.Text + '</i>' + #13#10;
//table header
shtml:= shtml + '<table border="0" width="100%">' + #13#10;
shtml:= shtml + '<tr>' + #13#10;
for i:=0 to AdoQuery1.FieldCount-1 do
begin
if ADOQuery1.Fields[i].DataType in AvailableFields then
begin
shtml:= shtml + '<td>';
shtml:= shtml +
'<b>' +
ADOQuery1.Fields[i].DisplayName +
'</b>';
shtml:= shtml + '</td>' + #13#10;
end;
end;{for}
shtml:= shtml + '</tr>' + #13#10;
//table body
while not adoquery1.Eof do
begin
shtml:= shtml + '<tr>' + #13#10;
for i:=0 to AdoQuery1.FieldCount-1 do
begin
if ADOQuery1.Fields[i].DataType in AvailableFields then
begin
shtml:= shtml + '<td>';
shtml:= shtml + ADOQuery1.Fields[i].AsString;
shtml:= shtml + '</td>' + #13#10;
end;
end;{for}
shtml:= shtml + '</tr>' + #13#10;
ADOQuery1.Next;
end;{while}
shtml:= shtml + '</table>' + #13#10;
shtml:= shtml + '</body></html>';
// --> assign to memo
Memo1.Text := shtml;
// --> save in a htm file
AssignFile(htmlfile, 'test.htm');
//ChangeFileExt(Application.ExeName,'.htm'));
Rewrite(htmlfile);
//WriteLn( htmfile,shtml);
CloseFile(htmlfile);
// --> browse to the file
//WebBrowser1.Navigate(aboutproject1.htm);
WebBrowser1.Navigate(ChangeFileExt(
Application.ExeName,'.htm'));
end;{Button1.OnClick}
Ny bruger
Nybegynder
Opret
Preview
