Ajpes web service wsEdp

Vse kar se tiče programiranja za internet.
Odgovori
PeroDifovec
Prispevkov: 135
Pridružen: 29.10.2001 15:15:49

Ajpes web service wsEdp

Odgovor Napisal/-a PeroDifovec » 03.04.2012 09:58:14

Živijo.

Uporabljam delphi6, imam pa težavo z izdelavo clienta za web service od ajpesa (za prevzem podatkov o poslovnem subjektu na osnovi davčne in matične). Zanima me če je že kdo tole rešil mogoče? to je moj prvi web service client, zadeva je pa takšna:
1. Uvozil sem definicijo https://www.ajpes.si/wsEdp/edp.asmx?WSDLv in delphi mi je naredil 2 unita. Na glavno formo sem dal še THTTPRIO komponentno:
Slika

2. Potem na glavni formi spišem kodo:

Koda: Izberi vse

procedure TFmGlavnaForma.Button1Click(Sender: TObject);
var
    TPZ: preverizastopnika;
    Respo: PreveriZastopnikaResponse;
    arr: Twidestringdynarray;
    a1: ArrayOfString;
begin
TPZ:=PreveriZastopnika.Create;
TPZ.sMaticna:='1234567';
TPZ.sDavcna:='12345678';
TPZ.sIzdajatelj:='AJPES';
TPZ.sSerijskaStevilka:='a1b2c3d4';

SetLength(a1, 255);
a1[0]:='wsEDPuporabnik';
a1[1]:='wsEDPgeslo';
TPZ.Ident:=a1;
REspo:=PreveriZastopnikaResponse.Create;

(HTTPRIO1 as Edpsoap).PreveriZastopnika(TPZ);
If Respo.PreveriZastopnikaResult=true then
        begin
            ShowMessagE('OK!');
        end else
        begin
            ShowMessagE('NI OK!');
        end;
Memo1.Lines.Text:=REspo.sRetVal;

end;
3. in vpišem podatke, ki so jih na ajpesu posredovali za testne:
Slika

Pa vendar mi potem javi parameter is incorect. Zdi se mi da, je nekaj narobe z temle wsEDPuporabnik,wsEDPgeslo. Nisem pa prepričan.
Če ima kdo mogoče kak predlog ali idejo kaj bi bilo narobe, prosim za pomoč.

Hvala in lp
pero

Odgovori