HKS WebServis BildirimServisBildirimKaydet create sorunu

[tisoft]

Merhabalar Hal kayıt sistemi web servislerinin kullanımını çözmeye çalışıyorum il ilçe cins gibi bilgileri alabiliyorum şimdilik bir yerde takıldım (Bildirim servisindeki)
Istek:=BildirimKayitIstek.Create; satırında acces violation... hatası alıyorum.
BildirimKayitIstek[] Bildirim kayıt istek detay arrayi.

Istek[0]:=BildirimKayitIstek.Create; şeklinde olursa Run time anında hata alıyorum.
Tüm arkadaşlara şimdiden teşekkür ediyorum.

https://95.0.51.130/WebServices/Bildiri ... e.svc?wsdl

[varyemez]

setlength(bildirimkayitistek, 1) ile arrayı boyutlandır önce.

[tisoft]

Kod örneği aşağıdaki gibi yazdım. setlength ile deneme yapmıştım. Istek kısmını create yapamadığım için olmadığını düşünüyorum. Örnek uygulamayı yazıyorum.

var
SERVIS :IBildirimService;
ISTEGI :BaseRequestMessageOf_ListOf_BildirimKayitIstek;
CEVABI :BaseResponseMessageOf_ListOf_BildirimKayitCevap ;
BEGIN
try
SERVIS:= GetIBildirimService(false,'',Form1.HTTPRIO3);
ISTEGI:= BaseRequestMessageOf_ListOf_BildirimKayitIstek.Create;

with ISTEGI do
begin
UserName:= user;
Password:= pass;
ServicePassword:=srvpass;

//Aşşağıdaki 4 satır tektek denendiğinde sağ tarftaki hataları üretiyor
setlength(bildirimkayitistek, 1); //hata:incompatible types
setlength(Istek, 1) //hata:Constant object cannot be passed as var parameter
Istek:=BildirimKayitIstek.Create; //hata:Missing perator or semicolon
Istek[0]:=BildirimKayitIstek.Create; //hata:Missing perator or semicolon


WITH Istek[0] DO
BEGIN//parametreler--------------------------------
UniqueId:= 99;
......


aslında Istek : ArrayOfBildirimKayitIstek olarak tanımlı.

[varyemez]

Yaptıklarını zipleyp mail atarsan bakayım...

[unicorn64]

ArrayOfBildirimKayitIstek tipinde bir değişken tanımlayıp, bu değişkenin property lerine değer atması yapın, en son ISTEGI.Istek property sine de bu değişkeni verin

Kod: Tümünü seç

var
...
...
istk: ArrayOfBildirimKayitIstek;

begin

...
...
  
setlength(istk,1);
istk[0]:=BildirimKayitIstek.Create;
istk[0].UniqueId:= 99;
.....
ISTEGI.Istek:=istk;

[zagerx]

merhaba eger çözemedi iseniz örnek verebilirim ben çok uğraştım ama oldu

[epikbalad]

Merhaba

Hal Bildirim Kayıt konusunda örneği paylaşabilirmisiniz.

Şimdiden Teşekkürler.

[ideal]

Sayın zagerx kayıt işlemi ile ilgi hata alıyoruz. Eğer örnek kod paylaşırsanız sevinirim.
Herhangi bir buton içerisine aşağıdaki kodu yazdık ancak bildirimcevap := servis.BildirimServisBildirimKaydet(bildirim); // burada hata alıyoruz
Yardımcı olabilecek varsa sevinirim. İyi çalışmalar ...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
 servis :IBildirimService;
 bildirim :BaseRequestMessageOf_ListOf_BildirimKayitIstek;
 bildirimcevap :BaseResponseMessageOf_ListOf_BildirimKayitCevap ;

  istk: ArrayOfBildirimKayitIstek;
  sonc : ArrayOfBildirimKayitCevap;
begin


  try
    screen.Cursor := crHourGlass;

    servis:= GetIBildirimService(false,'',nil);

    bildirim:= BaseRequestMessageOf_ListOf_BildirimKayitIstek.Create;
    bildirim.UserName:=hks_username;
    bildirim.Password:=hks_password;
    bildirim.ServicePassword:=hks_service_code;

    setlength(istk,1);
    istk[0]:=BildirimKayitIstek.Create;

    bildirim.Istek := istk;

    bildirim.Istek[0].UniqueId:= '999';  
    bildirim.Istek[0].ReferansBildirimKunyeNo := xx;
    bildirim.Istek[0].BildirimTuru := 196;

    bildirim.Istek[0].BildirimciBilgileri := BildirimciBilgileriDTO.Create();
    bildirim.Istek[0].BildirimciBilgileri.KisiSifat := 7;

    bildirim.Istek[0].IkinciKisiBilgileri := IkinciKisiBilgileriDTO.Create;
    bildirim.Istek[0].IkinciKisiBilgileri.KisiSifat := 7;
    bildirim.Istek[0].IkinciKisiBilgileri.TcKimlikVergiNo := 'xx';
    bildirim.Istek[0].IkinciKisiBilgileri.YurtDisiMi := false;

    bildirim.Istek[0].BildirimMalBilgileri := BildirimMalBilgileriDTO.Create;
    bildirim.Istek[0].BildirimMalBilgileri.MalinKodNo := 206;
    bildirim.Istek[0].BildirimMalBilgileri.MiktarBirimId := 28;
    bildirim.Istek[0].BildirimMalBilgileri.MiktarBirimId := 73;
    bildirim.Istek[0].BildirimMalBilgileri.MalinMiktari := 1;
    bildirim.Istek[0].BildirimMalBilgileri.AnalizeGonderilecekMi := false;

    bildirim.Istek[0].MalinGidecekYerBilgileri := MalinGidecekYerBilgileriDTO.Create;
    bildirim.Istek[0].MalinGidecekYerBilgileri.GidecekYerIsletmeTuruId:=19;
    bildirim.Istek[0].MalinGidecekYerBilgileri.GidecekIsyeriId:=37748;
    bildirim.Istek[0].MalinGidecekYerBilgileri.AracPlakaNo:='xx' ;
    bildirim.Istek[0].MalinGidecekYerBilgileri.BelgeNo:='003';
    bildirim.Istek[0].MalinGidecekYerBilgileri.BelgeTipi:=207;

    bildirimcevap := servis.BildirimServisBildirimKaydet(bildirim); // burada hata alıyoruz
    try
     showmessage(bildirimcevap.IslemKodu);
     except

       showmessage(bildirimcevap.IslemKodu);
    end;

   finally
    Screen.Cursor := crDefault;
  end;
end;

[ideal]

İyi çalışmalar.

Kayıt servisini sorunsuz çalıştırabilen varsa örnek paylaşabilir mi acaba?