求救 delphi7开发webservice问题

Question

我用delphi7建立了一个 webservice项目最后编译到iis上面发布，程序是可以跑起来，但是如果用到数据库控件就会报错“org.apache.axis.AxisFault:Access violation at address 0232A764 in module 'project1.dll'.Read of address ” 麻烦哪位用过delphi7开发过webservice的高手帮看看,我用的是wsCaller.jar来测试的，还有有没有更好的测试webservice的方法function Tmain.Deduction(Shopno,openid:string;money:integer):string;
var
bs,cardid:string;
jifen,kj_money:integer;
sjkj_money:integer;
begin
/////如果不执行这段是正常的
WebModule1.ADOQuery1.Close;
WebModule1.ADOQuery1.SQL.Clear;
WebModule1.ADOQuery1.SQL.Add('select * from Wechatinfo where WCIOPENID='''+trim(openid)+'''');
WebModule1.ADOQuery1.Open;
/////如果不执行这段是正常的
result:='aaaaa'
end

Answer 1

上下加入CoInitialize和CoUninitialize试试

Answer 2

to jjpweb 
还是报错，麻烦再帮看看，谢谢

Answer 3

多数情况是TADOConnection连接未成功，open就会出错。 
置疑数据库的连接，找原因。

Answer 4

http://blog.csdn.net/pcwe2002/article/details/52527782
示例中包括通过写存储过程提供返回 http json，比webservice高效