在delphi环境如何做html文件？还有。。。

Question

  我想将动态生成的数据做成Html，如在html中显示：
                       当前时间：2003-12-12
                       当前温度：23
                以上的2003-12-12及23均为动态数据。

Answer 1

用ADOQUERY执行以下代码!:sp_makewebtask 是SQL中的系统存储过程具体用法可以查帮助
EXECUTE sp_makewebtask @outputfile = N'C:\WebPage1.htm', @query=N'SELECT [name], [bmp], [msrepl_tran_version] FROM [bbb]', @fixedfont=1, @HTMLheader=3, @webpagetitle=N'Microsoft SQL Server Web 助手', @resultstitle=N'查询结果', @dbname=N'cccc', @whentype=1, @nrowsperpage=5,@procname=N'cccc Web 页',@codepage=65001,@charset=N'utf-8'

Answer 2

标题:数据网格处理成超文本表格说明:支持对齐、字体、背景颜色;做打印又有一种新方法了！设计:Zswang日期:2002-05-19支持:[email protected]//*)///////Begin Sourcefunction ColorToHtml(mColor: TColor): string;beginmColor := ColorToRGB(mColor);Result := Format('#%.2x%.2x%.2x',[GetRValue(mColor), GetGValue(mColor), GetBValue(mColor)]);end; { ColorToHtml }function StrToHtml(mStr: string; mFont: TFont = nil): string;varvLeft, vRight: string;beginResult := mStr;Result := StringReplace(Result, '&', '&AMP;', [rfReplaceAll]);Result := StringReplace(Result, '<', '&LT;', [rfReplaceAll]);Result := StringReplace(Result, '>', '&GT;', [rfReplaceAll]);if Result ='' then Result:='-';if not Assigned(mFont) then Exit;vLeft := Format('<FONT FACE="%s" COLOR="%s">',[mFont.Name, ColorToHtml(mFont.Color)]);vRight := '</FONT>';if fsBold in mFont.Style then beginvLeft := vLeft + '<B>';vRight := '</B>' + vRight;end;if fsItalic in mFont.Style then beginvLeft := vLeft + '<I>';vRight := '</I>' + vRight;end;if fsUnderline in mFont.Style then beginvLeft := vLeft + '<U>';vRight := '</U>' + vRight;end;if fsStrikeOut in mFont.Style then beginvLeft := vLeft + '<S>';vRight := '</S>' + vRight;end;Result := vLeft + Result + vRight;end; { StrToHtml }

Answer 3

function DBGridToHtmlTable(mDBGrid: TDBGrid; mStrings: TStrings;mCaption: TCaption = ''): Boolean;constcAlignText: array[TAlignment] of string = ('LEFT', 'RIGHT', 'CENTER');varvColFormat: string;vColText: string;vAllWidth: Integer;vWidths: array of Integer;vBook: string;I, J: Integer;beginResult := False;if not Assigned(mStrings) then Exit;if not Assigned(mDBGrid) then Exit;if not Assigned(mDBGrid.DataSource) then Exit;if not Assigned(mDBGrid.DataSource.DataSet) then Exit;if not mDBGrid.DataSource.DataSet.Active then Exit;vBook := mDBGrid.DataSource.DataSet.Book;mDBGrid.DataSource.DataSet.DisableControls;tryJ := 0;vAllWidth := 0;for I := 0 to mDBGrid.Columns.Count - 1 doif mDBGrid.Columns[I].Visible then beginInc(J);SetLength(vWidths, J);vWidths[J - 1] := mDBGrid.Columns[I].Width;Inc(vAllWidth, mDBGrid.Columns[I].Width);end;if J <= 0 then Exit;mStrings.Clear;mStrings.Add(Format('<TABLE BGCOLOR="%s" BORDER=1 WIDTH="100%%">',[ColorToHtml(mDBGrid.Color)]));if mCaption <> '' thenmStrings.Add(Format('<CAPTION>%s</CAPTION>', [StrToHtml(mCaption)]));vColFormat := '';vColText := '';vColFormat := vColFormat + '<TR>'#13#10;vColText := vColText + '<TR>'#13#10;J := 0;for I := 0 to mDBGrid.Columns.Count - 1 doif mDBGrid.Columns[I].Visible then beginvColFormat := vColFormat + Format(' <TD BGCOLOR="%s" ALIGN=%s WIDTH="%d%%">DisplayText%d</TD>'#13#10,[ColorToHtml(mDBGrid.Columns[I].Color),cAlignText[mDBGrid.Columns[I].Alignment],Round(vWidths[J] / vAllWidth * 100), J]);vColText := vColText + Format(' <TD BGCOLOR="%s" ALIGN=%s WIDTH="%d%%">%s</TD>'#13#10,[ColorToHtml(mDBGrid.Columns[I].Title.Color),cAlignText[mDBGrid.Columns[I].Alignment],Round(vWidths[J] / vAllWidth * 100),StrToHtml(mDBGrid.Columns[I].Title.Caption,mDBGrid.Columns[I].Title.Font)]);Inc(J);end;vColFormat := vColFormat + '</TR>'#13#10;vColText := vColText + '</TR>'#13#10;mStrings.Text := mStrings.Text + vColText;mDBGrid.DataSource.DataSet.First;while not mDBGrid.DataSource.DataSet.Eof do beginJ := 0;vColText := vColFormat;for I := 0 to mDBGrid.Columns.Count - 1 doif mDBGrid.Columns[I].Visible then beginvColText := StringReplace(vColText, Format('>DisplayText%d<', [J]),Format('>%s<', [StrToHtml(mDBGrid.Columns[I].Field.DisplayText,mDBGrid.Columns[I].Font)]),[rfReplaceAll]);Inc(J);end;mStrings.Text := mStrings.Text + vColText;mDBGrid.DataSource.DataSet.Next;end;mStrings.Add('</TABLE>');finallymDBGrid.DataSource.DataSet.Book := vBook;mDBGrid.DataSource.DataSet.EnableControls;vWidths := nil;end;Result := True;end; { DBGridToHtmlTable }///////End Source{ uses ShellApi; }///////Begin Demoprocedure TForm1.Button1Click(Sender: TObject);beginDBGridToHtmlTable(DBGrid1, Memo1.Lines, Caption);Memo1.Lines.SaveToFile('c:.htm');ShellExecute(Handle, nil, 'c:.htm', nil, nil, SW_SHOW);end;///////End Demo