【结贴】webservice问题

zfang · 发表于 2010-6-2 14:00:27

恭喜。
楼主，方便的话把你完整做法分享一下，以供他人参考。谢谢。

xhong · 发表于 2010-6-2 16:27:22

现在换一台干净的机器就报指针错了

zfang · 发表于 2010-6-2 16:35:27

查一下，是否有对象没释放。

xhong · 发表于 2010-6-2 16:39:12

按照如何在X3中引入外部控件.pdf，代码如下，ok？
procedure TMainForm.Button1Click(Sender: TObject);
var
  s: tqm.CurrencyConvertorSoap;
  a: Double;
begin
  s := tqm.CurrencyConvertor.GetCurrencyConvertorSoap(False, '');
  a := s.ConversionRate(tqm.Currency.USD, tqm.Currency.CNY);
  //self.Caption := Variants.VarToStr(a);
end;

zfang · 发表于 2010-6-2 16:57:45

这个代码中看不出来有什么问题。

xhong · 发表于 2010-6-2 17:43:36

那要不我们把东西发上来，你看看你那边报错吗如何

zfang · 发表于 2010-6-3 08:59:06

如果环境和操作不复杂，可以发上来我们试试，不过需要楼主详细描述一下如何搭建和操作。

xhong · 发表于 2010-6-3 14:25:47

步骤倒是很简单：
1、地址在：http://www.webservicex.net/CurrencyConvertor.asmx
2、按照咱们文档，生成并去掉缺省值后的pas文件如下：
3、生成_reg.pas和dll文件
4、生成bpl
我把上述环节生成的文件都打包传上来，x3中引用的代码为：
procedure TMainForm.Button1Click(Sender: TObject);
var
  s: tqm.CurrencyConvertorSoap;
  a: Double;
begin
  s := tqm.CurrencyConvertor.GetCurrencyConvertorSoap(False, '');
  a := s.ConversionRate(tqm.Currency.USD, tqm.Currency.CNY);
  self.Caption := Variants.VarToStr(a);
end;
问题是：没装过Delphi的机器使用报错
没说清楚的地方再沟通

zfang · 发表于 2010-6-3 14:43:50

把你的bpl和dll等也要传一份，我们这边目前没有 delphi环境。（版权问题）
另外，我看你上面说没装过delphi的会报错，装过的就不错，对么？
如果是的话，那么就要去验证一下，是否此方式依赖于某一个系统文件（dephi的）导致的呢？

xhong · 发表于 2010-6-3 16:04:17

bpl和dll都在压缩包里
现在问题就在于不知道这样做后，它还依赖什么呵呵

		自动登录	找回密码
密码			立即注册