wcf web servisleri

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
nguzeller
Üye
Mesajlar: 109
Kayıt: 19 Oca 2004 03:29

Re: wcf web servisleri

Mesaj gönderen nguzeller »

BaseRequestMessageOf_KayitliKisiSorguIstek foksiyonunda işlem başarı sonucu gönderiyor ama sonuç döndermiyor. ArrayOfstring olayını tam yapamadım gibi geliyor, sanki hiç tc göndermiyorum gibi hiç sonuç döndermiyor
zagerx
Üye
Mesajlar: 20
Kayıt: 18 Ara 2010 02:42

Re: wcf web servisleri

Mesaj gönderen zagerx »

merhabalar bende hal künye servislerini kullanmaya çalışıyorum fakat web servis olayına çok yabancıyım bir çok örnegi inceledim fakat bu nu nasıl canlıya alabilecegimi bulamadım illeri çekip tabloya bağlama gibi olaylardan örnekler veya örnek uygulama parçaları verebilirseniz çok sevinirim
yardım edenlere şimdiden çok teşekkürler
mkysoft
Kıdemli Üye
Mesajlar: 3103
Kayıt: 26 Ağu 2003 12:35
Konum: Berlin
İletişim:

Re: wcf web servisleri

Mesaj gönderen mkysoft »

Action'ın namepace'inden kaynaklanan bir hata gibi duruyor. requestin header kısmında action'ın hangi namespace içinde olduğu belirtilir eğer beliritilmezse default kullanılır. SOAPUI bu alanı set etmiyor, ama delphi kodunuz büyük ihtimalle yanlış set ediyor. wireshark gibi programlarla delphiden ve soapui'den çıkan requestleri bir karşılaştırın.
zagerx
Üye
Mesajlar: 20
Kayıt: 18 Ara 2010 02:42

Re: wcf web servisleri

Mesaj gönderen zagerx »

arkadaşlar ilgilenen olmadı pek ama başka arkadaşlara yardımcı olması adına hal kayıt sisteminde servise kullanıcı bilgilerini gönderip iller tablosunu çeken örnegi eklemek istedim. genel servisi import edip aşagıdaki şekilde uygularsanız sonuç alacaksınız httprio eklenecek tabi bunu hks nin verdiği c# kodunu delphiye yorumluyarak yazdım
biraz ugraştırdı tabiki işinize yaraması dilegiyle


uses GenelService;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
proxy :IGenelService;
iliste :BaseRequestMessageOf_IllerIstek;
ilcevap :BaseResponseMessageOf_IllerCevap ;
I: Integer;
begin
try
iller.Items.Clear;
listbox1.Items.Clear;
proxy:= GetIGenelService(false,'',HTTPRIO1);
iliste:= BaseRequestMessageOf_IllerIstek.Create;
iliste.UserName:='xxxxxxxxxxxx';
iliste.Password:='xxxxxxxxxxxx';
iliste.ServicePassword:='!1QAZWSX';
iliste.Istek:=IllerIstek.Create;
ilcevap:=proxy.GenelServisIller(iliste);
for I:= 0 to ilcevap.Sonuc.Iller.Len-1 do
begin
Listbox1.Items.Append(ilcevap.Sonuc.Iller.IlAdi);
iller.Items.Add(inttostr(ilcevap.Sonuc.Iller.Id)+'-'+ ilcevap.Sonuc.Iller.IlAdi)
end;
finally
iliste.Free;
end;
function ilidi(x:string): integer ;
var i:integer;y:string;
begin
for I := 1 to length(x) do
begin
if copy(x,i,1)='-' then break
else y:=copy(x,1,i);
end;
result:=strtoint(y);
end;

procedure TForm1.illerChange(Sender: TObject);
var
proxy :IGenelService;
ilceiste :BaseRequestMessageOf_IlcelerIstek;
ilcecevap :BaseResponseMessageOf_IlcelerCevap ;
I: Integer;
begin
try
ilceler.Items.Clear;
proxy:= GetIGenelService(false,'',HTTPRIO1);
ilceiste:= BaseRequestMessageOf_IlcelerIstek.Create;
ilceiste.UserName:='xxxxxxx';
ilceiste.Password:='xxxxxxxxxxx';
ilceiste.ServicePassword:='!1QAZWSX';
ilceiste.Istek:=IlcelerIstek.Create;
ilceiste.Istek.IlId:=ilidi(iller.Text);
ilcecevap:=proxy.GenelServisIlceler(ilceiste);
for I:= 0 to ilcecevap.Sonuc.Ilceler.Len-1 do
begin
Listbox1.Items.Append(ilcecevap.Sonuc.Ilceler.IlceAdi);
ilceler.Items.Add(ilcecevap.Sonuc.Ilceler.IlceAdi)
end;
finally
ilceiste.Free;
end;
end;
furkan911
Üye
Mesajlar: 1
Kayıt: 25 Haz 2022 09:26

Re: wcf web servisleri

Mesaj gönderen furkan911 »

https://hks.hal.gov.tr/WebServices/Gene ... e.svc?wsdl --bu linke
data olarak aşağıda ki xml i gönderiyorum ama çok garip bir cevap dönüyor xml e çok yabancıyım dökümantasyonuda anlayamadım yardımcı olmak isteyen olur çok mutlu olurum. facarr00@gmail.com bu da mail adresim.
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">
<SOAP-ENV:Body xmlns:NS2="http://schemas.datacontract.org/2004/07 ... irim.Model" xmlns:NS1="http://schemas.datacontract.org/2004/07 ... ceContract">
<BaseRequestMessageOf_UlkelerIstek xmlns="http://www.gtb.gov.tr//WebServices">
<Istek>
<UlkelerIstek xsi:type="NS1:UlkelerIstek">
</Istek>
<UserName>********</UserName>
<Password>******</Password>
<ServicePassword>!1QAZWSX</ServicePassword>
</BaseRequestMessageOf_UlkelerIstekk>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
Cevapla