VIES Vat Control - Delphi

fae0ux8s  于 2023-04-11  发布在  其他
关注(0)|答案(1)|浏览(123)

我有一个错误,当我尝试这个,总是“方法不允许(405)”我在 Delphi 10.3
你有主意了吗?谢谢
我的代码看起来不错。

procedure TFEditCompte.cxButton1Click(Sender: TObject);
var TestVat : CheckVat ;
    RepVat : checkVatResponse ;
    WS : checkVatPortType ;
begin
  WS := GetcheckVatPortType ;

  TestVat := CheckVat.Create ;
  Try

  TestVat.countryCode := Copy( ETva.Text , 1 , 2 ) ;
  TestVat.vatNumber := Copy( Etva.Text, 3 , Length(ETva.text) -2 ) ;

  RepVat := WS.checkVat( TestVat ) ;

  if RepVat.valid then ShowMessage('Valid')
  else showmessage('Invalid' ) ;
  Finally
    TestVat.Free ;
    RepVat.Free ;

  End;

end;
p5cysglq

p5cysglq1#

导入WSDL时出错

function GetcheckVatPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): checkVatPortType;
const
  defWSDL = 'https://ec.europa.eu/taxation_customs/vies/checkVatTestService.wsdl';
  defURL  = 'http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService';
 // defURL  = 'http://ec.europa.eu/taxation_customs/vies/test-services/checkVatTestService' ;
  defSvc  = 'checkVatTestService';
  defPrt  = 'checkVatPort';

defURL不是很好。

相关问题