Soap verileri ?

[saliherbey]

Selam arkadaşlar,

Arkadaşlar HTTPRio kullanarak servise erişiyorum ve servisten bana veri dönmesi lazım ama ben bu veriyi naıl alıcam ? Bi türlü beceremedim. Yardımcı olursanız sevinirim.

XML den inport ettiğim pas daki veri tipi :
.....
// ************************************************************************ //
ntKodGetResult = class(TRemotable)
private
published
end;
......
function ntKodGet: ntKodGetResult; stdcall;

Bunu şu şekilde çağırıyorum;

(HTTPRIO1 as mkysServisSoap).ntKodGet;

İşte burda dönen veriyi nasıl alıcam ???

İyi çalışmalar....

[vkamadan]

XML den inport ettiğim pas daki veri tipi :
.....
// ************************************************************************ //
ntKodGetResult = class(TRemotable)
private
published
end;
[/b]

ntKodGetResult isimli sınıfın gerçekten hiç bir property si yokmu yoksa buraya koyarken kodu aynen yapıştırmadınız mı? eğer burada göründüğü gibiyse zaten böyle bir sonuç böyle bir Class olamaz, tam sınıf yapısını gönderirseniz sonuca ilişkin örnekleme yapabiliriz.
İyi çalışmalar.

[saliherbey]

Volkan Hocam kopyala yapıştır yaptım inport edilin pas böyle.

wsdl adresini vereyim size
http://sbu2.saglik.gov.tr/mkys/mkysServis.asmx?WSDL

İyi çalışmalar..

[deltas]

verdiğiniz fonksiyon neden yazılmış anlamadım ama o fonksiyona herhangi bir sonuç dönmüyor. yani fonksiyon çalıştırıldıktan sonra dönen sonuç yok.

[vkamadan]

Arayüzü import edip göz attım ,
burada boş sınıf tanımları ve metodlar mevcut bunlar teknik olarak herhangi bir sonuç döndürmüyor, zaten debug edip baktığınızdada herhangi bir değer almıyor,
sizin kullanmanız gereken metodlar geçerli veri döndürenler olmalıdır örn;

Kod: Tümünü seç

 function  stokHareketDemirbasInsert(const p_makbuz_detay_id: Integer; const p_hareket_tur_id: WideString; const p_ayniyat_makbuz_id: Integer; const p_malzeme_kayit_id: Integer; const p_islem_turu: WideString; const p_fiyat: TXSDecimal;
                                        const p_butce_tur_id: WideString; const p_olcu_birimi_id: WideString; const p_belge_no: WideString; const p_belge_tarihi: TXSDateTime; const p_barkod: WideString;
                                        const p_fatura_no: WideString; const p_fatura_tarihi: TXSDateTime; const p_aciklama: WideString; const p_birim_depo_id: Integer; const p_islem_tarihi: TXSDateTime;
                                        const p_demirbas_no: Integer; const p_cikis_birim_depo_id: Integer; var p_hata_kodu: WideString): Integer; stdcall;

gibi ..
Kolay gelsin..

[saliherbey]

Teşekürler Volkan Hocam ,

servislerin açıklamalarında bu servis için şöyle yazmışlar;

" • ntKodGet : MKYS’ye aktarılan veriler kodlu olarak aktarılmaktadır.Dolayısıyla diğer bilgi sistemleri ile uyumlu çalışılabilmesi için kod uyumluluğunun karşılıklı olarak sağlanması gerekmektedir. Bu nedenle ilgili sistemler bu servis aracılığıyla MKYS’de kullanılan kodlar alınıp kendi sistemleriyle gerekli kod uyumluluğunu sağladıktan sonra verilerin aktarılması gerekmektedir. Tablonun alanları “KOD_ADI, DEGER, TANIM, ACIKLAMA, AKTIF” tir.Sadece AKTIF alanı 0-1 değer döndürmektedir."

Bunun için bende uğraşıp duruyorum.Acaba nasıl yaparım diye

İlgilendiğiniz Teşekürler.

[deltas]

salih bey import ederken sorun var tam anlamadım. donan dosyayı direk olrak xml olarak dönderiyor. yani class tanımlamanız veya dönen xml dosyasını responseden alıp xmlprovider ile bir client data sete aktarark kullanmanız gerekecek. Delphi import ederken wsdl dosyası için var olan clss'ları import eder. eğer tanımlama yapılmamışsa import etmez. biraz yorulacağa benziyorsunuz.
birde örnek xml dosyaları varmı? yardım dosyalarında. varsa onları bi gönderin bakalım belki yardımcı olabiliriz.

[saliherbey]

İlgilendiğiniz için teşekürler.
Bu tip bi problem olduğu şüphesindeydim bende ama çözemedim.
xml dosyasını bu adresten xml olarak kaydederek kullanıyorum.
http://sbu2.saglik.gov.tr/mkys/mkysServis.asmx?WSDL

İyi çalışmalar..

[saliherbey]

Pardon . Yardım dosyalarında örnek XML yok

[saliherbey]

salih bey import ederken sorun var tam anlamadım. donan dosyayı direk olrak xml olarak dönderiyor. yani class tanımlamanız veya dönen xml dosyasını responseden alıp xmlprovider ile bir client data sete aktarark kullanmanız gerekecek. Delphi import ederken wsdl dosyası için var olan clss'ları import eder. eğer tanımlama yapılmamışsa import etmez. biraz yorulacağa benziyorsunuz.
birde örnek xml dosyaları varmı? yardım dosyalarında. varsa onları bi gönderin bakalım belki yardımcı olabiliriz.

Vaktiniz varsa burada anlattığınız yöntemle bi örnek oluşturup gönderebilirmisiz.

İyi çalışmalar...

[deltas]

viewtopic.php?f=2&t=24894&hilit=medula

[varyemez]

Çözebildiniz mi sorunu? Bana maille ulaşıp yaptıklarınızı gönderebilirsiniz..

[meron06]

sağlık bakanlığı için geliştirilen web servisler de c# ı kullanmanızı öneririm.son çıkan webservisleri delphiyle yapmak bihayli zor.

[deltas]

@meron Hocam bende başta zorlanmıştım ama o kadarda zor değil. Birazcık uğraştırıyor. Ama sonuçta hallediliyor. C#'la kolay hallediliyor. Yeni bir dil öğrenmek yerine bildiğin dil ile uğraşmak daha rahat.

[habilkader]

@meron Hocam bende başta zorlanmıştım ama o kadarda zor değil. Birazcık uğraştırıyor. Ama sonuçta hallediliyor. C#'la kolay hallediliyor. Yeni bir dil öğrenmek yerine bildiğin dil ile uğraşmak daha rahat.

Bende D7 ile Vodofene, Avea ve cepoasta web servisleri ile çalışıyorum
vodofene ve Avea web servislerinde kullanılan class ve methodlar nerdeyse birbirinin aynısı sadece isim farklılıkları var.

Avea da hiç bir sorun yaşamazken Vodofene da sadece bir fonkisyonda problem yaşıyoruz.

Kod: Tümünü seç

var
Service:LoadVodafone;
sonuc:Vdf_CreditInquiryResponse;
begin
Service:=GetLoadVodafone;
sonuc:=Vdf_CreditInquiryResponse.Create;
sonuc:=service.VDFCreditInquiry(username,password,ID,numara,kontor,True,'11');

VDFCreditInquiry fonksiyonu sürekli nil değer döndürüyor.
diğer fonksiyonlarda hiçbir sorun yok.
Web servisi yazanlarla görüştüğümüzde onlarda bi çözüm getiremediler.

Ayrıca Ceposta websersinde de benzer bi hata ile karşı karşıyayız
ondada sürekli "iç sunucu hatası" geri dönüyor
arka planda çalışan herhangibir proxy yok. ayrıca Avea da çalışıyor

Bu delphiden kaynaklanan bi sorun mudur deltas bu sorunu nasıl çözdü yardımcı olabilir mi