本文介绍了一种简便的方法，即使用TkbmMemTable组件和XFIRE，将Java查询得到的List数据导入到Delphi客户端的表格进行显示。通过自定义的MemTableRecBuilder类实现CSV格式转换。
在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
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的两个属性决定的
在此，我的客户端采用的是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的两个属性决定的
扫一扫
1160
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
