将wsdl文件保存到光盘并导入保存的xml文件。生成pas文件后，更改（_1，_2）中的matchCode =（1，2）行。

我有一个错误，当我尝试这个，总是“方法不允许（405）”enter image description here
我的代码看起来不错。

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;

你有主意了吗？谢谢