wcf web servisleri
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: wcf web servisleri
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
Re: wcf web servisleri
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
yardım edenlere şimdiden çok teşekkürler
Re: wcf web servisleri
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.
Re: wcf web servisleri
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;
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;
Re: wcf web servisleri
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>
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>