Prikazi cijelu temu 25.01.2017 15:44
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: VB6 i WEB Service
Evo primjer konekcije.-
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4. Dim Klijent As New SoapClient30
  5. Dim Rez As String
  6.  
  7. Set Klijent = CreateObject("MSSOAP.SoapClient30")
  8.  
  9. '"http://tstsvr.achworks.com/testexec/achtstsoapbz.tss/wsdl/IACHSOAP"
  10. Call Klijent.MSSoapInit("http://tstsvr.achworks.com/testexec/achtstsoapbz.tss/wsdl/IACHSOAP")
  11. Rez = Klijent.ConnectionCheck("9502", "MY COMPANY", _
  12.  "SASD%!%$DGLJGWYRRDGDDUDFDESDHDD")
  13. MsgBox "Rez = " & Rez
  14. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.