delphi读取html格式的字符串，显示在delphi窗体中。

Posted 2023-04-30

本人在做一个activex控件，想读取一个html字符串,如：

<div style="position:absolute;top:75px; left:100; width:500; height:148px" >
<table width="502" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="68" height="21">产品编号</td>
<td width="68">产品名称</td>
<td width="39">规格</td>
<td width="33">单位</td>
<td width="36">单价</td>
<td width="36">数量</td>
<td width="40">折扣</td>
<td width="39">金额</td>
<td width="59">税率</td>
<td width="62">税额</td>
</tr>
<tr>
<td>s001</td>
<td>寸衫</td>
<td> </td>
<td>件</td>
<td>150</td>
<td>1</td>
<td>100</td>
<td>150</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>s001</td>
<td>衣服</td>
<td> </td>
<td>件</td>
<td>150</td>
<td>1</td>
<td>100</td>
<td>150</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>s001</td>
<td>衣服</td>
<td> </td>
<td>件</td>
<td>150</td>
<td>1</td>
<td>100</td>
<td>150</td>
<td> </td>
<td> </td>
</tr>

<tr>
<td>s001</td>
<td>衣服</td>
<td> </td>
<td>件</td>
<td>150</td>
<td>1</td>
<td>100</td>
<td>150</td>
<td> </td>
<td> </td>
</tr>

<tr>
<td>s001</td>
<td>衣服</td>
<td> </td>
<td>件</td>
<td>150</td>
<td>1</td>
<td>100</td>
<td>150</td>
<td> </td>
<td> </td>
</tr>

<tr>
<td>s001</td>
<td>衣服</td>
<td> </td>
<td>件</td>
<td>150</td>
<td>1</td>
<td>100</td>
<td>150</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>s001</td>
<td>衣服</td>
<td> </td>
<td>件</td>
<td>150</td>
<td>1</td>
<td>100</td>
<td>150</td>
<td> </td>
<td> </td>
</tr>

<tr>
<td>s001</td>
<td>衣服</td>
<td> </td>
<td>件</td>
<td>150</td>
<td>1</td>
<td>100</td>
<td>150</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>合计</td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td>1200</td>
<td> </td>
<td> </td>
</tr>
</table>
</div>
上面这段代码显示的表格是包含显示坐标的，我想问一下html格式的表格怎么在delphi格式中显示并在打印机的画布上进行精确打印。

参考技术A 可以用把他们保存为一个html文件 再用Twebbrowser打开并且打印追问

用Twebbrowser打印和在网页里window.print打印效果是一样的打印不精确，所以想把HTML表格在OCX中用delphi直接在打印机画布上直接操作打印机进行精确打印

解决delphi的 dbgrid在读取access文本型字段显示TWideMemoField的问题

原文：http://www.makaidong.com/%E5%8D%9A%E5%AE%A2%E5%9B%AD%E7%9F%A5%E8%AF%86%E5%BA%93/22028.shtml

"解决delphi的 dbgrid在读取access文本型字段显示TWideMemoField的问题"：

 

关键词：解决 delphi dbgrid 读取 access 文本 型 字段 显示 twidememofield 问题

 

 

如题：delphi 的dbgrid在读取access文本型字段会显示twidememofield。

这个问题是由数据类型引出， delphi的内置机制处理，所以解决问题方法有三种

1，换一个控件，可以读取文本字段的，本文不作考虑。

2，网上有个方法是说修改settext事件，给网格重新赋值，简单测试后无果，本人对 delphi的确是半瓶子醋：晃荡。

3，本人测试有效的方法就是修改adoquery。

     双击adoquery控件，弹出字段操作窗体，新加一个自定义字段如 memo2.（原始memo 字段本文假定为memo）。

     

procedure tsendlist.adoquery2calcfields(dataset: tdataset);
begin
adoquery2.fieldbyname(‘sendmsg2‘).asstring:=  adoquery2.fieldbyname(‘sendmsg‘).asstring;

end;

　如上代码所示，在adoquery 的calcfieds代码给新建的字段赋值。

   在 dbgrid 的cloums属性里选择显示新加的字段memo2。

   如此即可ok。

   其实以上解决思路在其他的开发环境里基本也同样适用。在你的数据源的字段列表里如果无法满足你的实际要求，那么就自定义添加一个字段来显示。引申开来，比如说

本行数据显示的是1到12月份的每个月销量，那么我们可以做出第13个字段来进行数据汇总。

 

 

搜索此文相关文章：解决delphi的 dbgrid在读取access文本型字段显示TWideMemoField的问题