DELPHI与Java Web读取TABLE数据最简捷的方案:TkbmMemTable+java数据Format器

在WEB广泛应用的时代，C/S结构不单是基于传统的数据库端口连接的方式。因为如果中间隔了网络代理、防火墙，端口数据则很容易被拦截。我们需要的是能开IE就能访问的网络客户端应用。

在此，我的客户端采用的是DELPHI

然而一个问题在此就产生了。当java查询出的数据是一个 List列表时，如何方便的导入到DELPHI客户端的表格显示呢？不同人有不同的解决方法，有人采用Servlet返回XML来分析，有的用Servlet产生单个string传递然后去split，有人去采用自己的格式化分析程序然后填写到StringGrid。

而我则选择了一种更简便的方式：TkbmMemTable组件+XFIRE。XFIRE发送数据能方便的利用HTTP来传输，而TkbmMemTable将数据存到TDataSet则能方便的使用和访问，如果再加上TxQuery。哇。。。。那数据处理和显示功能就更加强大了。

先看看传递一个数据表是如何的方便：
1.在TkbmMemTable定义要查询出来表的各字段，再设置Active=true。格式化组件采用TkbmCSVStreamFormat，默认设置即可。
2.使用JAVA的DAO查询的List数据，使用MemTableRecBuilder（稍后介绍）建立成TkbmMemTable能读取的CSV

3.将resultArray传递给客户端，在此我使用了自己的一套获取数据的通用WebService接口，不是本文的重点，因此忽略。因为不同人也有各自不同的数据传递方案。
4.将获取的数据通过StringStream放入内存表

procedure TFormRecordServer.bsSkinButtonsBarSections0Items0Click(
Sender: TObject);
var
strStream: TStringStream;
begin

kbmMemTablePrjInf.EmptyTable;
strStream := TStringStream.Create(DataUtil.findRecordingPrjInf); //读取的数据string
if strStream.Size > 0 then
kbmMemTablePrjInf.LoadFromStream(strStream); //这样就把数据全部传递到了TkbmMemTable
strStream.Free;
end;

没有多余的代码，除了XFIRE传递数据的采用自己的方式外，编码和读取就上面这么简单的代码。接下来公布我自己编写的TkbmMemTable CSV数据格式化器：


package com.aherp.voice.util;






public class MemTableRecBuilder ...{




private static final String CSV_QOUTE = """;




private static final char CSV_RECORD_DELIMITER = ',';




private static final String CSV_TRUE_STRING = "True";




private static final String CSV_FALSE_STRING = "False";




private StringBuffer strbuf;




private ThreadLocal<Integer> fieldCount = new ThreadLocal<Integer>();






public MemTableRecBuilder()...{


strbuf = new StringBuffer();


fieldCount.set(0);


}






public MemTableRecBuilder buildField(Object fieldData)...{


int fieldCountInt = fieldCount.get();


if(fieldCountInt > 0)


strbuf.append(CSV_RECORD_DELIMITER);


fieldCount.set(fieldCountInt + 1);




strbuf.append(CSV_QOUTE);




if(fieldData instanceof String)...{


strbuf.append(


((String)fieldData).replace(CSV_QOUTE, """")


.replace("%", "%%")


.replace(" ", "%c")


.replace(" ", "%n"));




}




else if(fieldData instanceof Boolean)...{


if((Boolean)fieldData)


strbuf.append(CSV_TRUE_STRING);


else


strbuf.append(CSV_FALSE_STRING);


}


else


strbuf.append(fieldData);


strbuf.append(CSV_QOUTE);


return this;


}






public MemTableRecBuilder newRow()...{


strbuf.append(' ');


fieldCount.set(0);


return this;


}






public String toString()...{


return strbuf.toString();


}


}



再提醒一点，对于bool型数据的存储，kbmmemtable中是由其格式化器CSVStreamFormat的CSVFalseString和CSVTrueString的两个属性决定的