web servisleri hakkında bi sorunum var.

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
meron06
Üye
Mesajlar: 393
Kayıt: 15 Eki 2005 04:23

web servisleri hakkında bi sorunum var.

Mesaj gönderen meron06 »

Sel.al arkadaşlar.ssk nın welf elektronik faturalama sistemini devreye aldı.şimdi https://195.245.227.9/welfws/services/W ... sleri.wsdl bu linkteki wsdl i delphi ye aldım bi unit oluştu.fonksiyonlara rahatlıkla ulaşıp işlem yapabiliyorum.yalnız çözemediğim bi sorun var .doktor branşlarının listelendiği bi bölüm var .bu bölümün kodları şu şekilde.

BransAraKriterWS = class(TRemotable)
private
Fad: WideString;
FtesisKodu: Integer;
published
property ad: WideString read Fad write Fad;
property tesisKodu: Integer read FtesisKodu write FtesisKodu;
end;

BransWS = class(TRemotable)
private
FbransAdi: WideString;
FbransSbKodu: WideString;
published
property bransAdi: WideString read FbransAdi write FbransAdi;
property bransSbKodu: WideString read FbransSbKodu write FbransSbKodu;
end;

BransListDonusWS = class(TRemotable)
private
Faciklama: WideString;
Fbranslar: BransWS;
FsonucKodu: Integer;
public
destructor Destroy; override;
published
property aciklama: WideString read Faciklama write Faciklama;
property branslar: BransWS read Fbranslar write Fbranslar;
property sonucKodu: Integer read FsonucKodu write FsonucKodu;
end;

burda branslistdonusws aranan branşları liste halinde almaya yarıyor.ben gelen tek branşı ala biliyorum liste şeklinde alamıyorum.
benim yazdığım kodlarım şu şekilde.

procedure Tfbransara.Button1Click(Sender: TObject);
var
bransara:BransAraKriterWS;
sonuc:BransListDonusWS;
brans:bransws;
begin
bransara:=BransAraKriterWS.Create;
sonuc:=BransListDonusWS.Create;
brans:=bransws.Create;
bransara.ad:=bransadi.Text;
bransara.tesisKodu:=strtoint(fmuayeneislemleri.tesis.Text);
sonuc:= GetWelfWebServisleri.bransAra(bransara);
brans:=sonuc.branslar;
end;

burda branslistdonusws de listelenen kayıtların sayısını veren bi parametre yok tüm listelenen kayıtları nasıl alırım yardımlarınızı bekliyorum arkadaşlar.
ikut

Re: web servisleri hakkında bi sorunum var.

Mesaj gönderen ikut »

meron06 yazdı:Sel.al arkadaşlar.ssk nın welf elektronik faturalama sistemini devreye aldı.şimdi https://195.245.227.9/welfws/services/W ... sleri.wsdl bu linkteki wsdl i delphi ye aldım bi unit oluştu.fonksiyonlara rahatlıkla ulaşıp işlem yapabiliyorum.yalnız çözemediğim bi sorun var .doktor branşlarının listelendiği bi bölüm var .bu bölümün kodları şu şekilde.
Merhaba

bu konu hakkında biraz bilgi verebilirmisiniz. Hem kodunuz hemde konu hakkında öğrenmek istediğim konular var. Web servisleri konusunda ve nasıl kullandığınız hakkında bilgi verirseniz sevinirim.
meron06
Üye
Mesajlar: 393
Kayıt: 15 Eki 2005 04:23

Mesaj gönderen meron06 »

ikut kardeş bende yeni başladım .bende çok bilgili deyilim.siz neler öğrenmek istiyorsunuz.
Cevapla