Aras web service

[osiso]

Merhaba Arkadaşlar yardımcı olan herkese şimdiden çok teşekkür ederim
http://customerservicestest.araskargo.c ... rvice.asmx
adresindeki SetAddress metoduna veri göndermek istiyorum kullanıcı adı neodyum kullanıcı şifresi nd2580

yazdığım kod 
KOD: TÜMÜNÜ SEÇ

Kod: (Select All)

function TForm1.setadress():String;       //setadress
var
Servis : ServiceSoap;
sa:AddressDto;     //sa set adress
AdresList:ArrayOfAddressDto;
AResult :ArrayOfAddressResultDto;
TResult: AddressResultDto;
begin
 sa:=AddressDto.Create;
 sa.ReceiverName:='Özkan EROL';      //alıcı adı zorunlu
 sa.ReceiverAddress:='Cumhuriyet Mah. Erata Cad. No:105 D:173';    //alıcı adresi zorunlu
 sa.ReceiverPhone1:='5555555';     //telefon zorunlu
 sa.ReceiverCityName:='İSTANBUL';    //İl-Şehir Adı zorunlu
 sa.ReceiverTownName:='AVCILAR';     //ilçe adı zorunlu

 SetLength(AdresList,1);
 AdresList[0]:=sa;

 Servis:= GetServiceSoap(False,'',nil);
 AResult := Servis.SetAddress(AdresList, 'neodyum', 'nd2580');

Result := '';
if Length(AResult) > 0 then Result := AResult[0].ResultMessage;
end;

aldığım hata kodu ektedir c# ile bu setadres çalıştı fakat ben bir türlü gönderemedim.




ARAS KARGO SEVKİYAT ENTEGRASYONU
WEB SERVİS DÖKÜMANI

Tanım Bilgisi

Aras Kargo kurumsal müşterilerinin gönderilerine ait alıcı ve alıcı adres bilgilerini Aras Kargo’ya online olarak iletmesi adına hazırlanmış bir web servis metodudur.
Aras Kargo sistemi ve şube personeli gelen kayıtlara ait adreslerin Varış Merkezilerini belirler. 

Servis Linkleri:

Test Link:
http://customerservicestest.araskargo.c ... rvice.asmx
Kullanılacak Metod İsmi : SetAddress
Servis Parametreleri

Servise ait giriş parametreleri aşağıdaki tabloda belirtilmiştir.

Kargonun alıcısına ait bilgilerinin gönderildiği metottur.
Kargoya ait Varış Merkezi Belireme İşleminin yapılması için gereken bilgilerin gönderilmesi adına kullanılmaktadır.


İSİM TİPİ AÇIKLAMA ZORUNLU
UserName String Web Servis Kullanıcı Adınız Evet
Password String Web Servis Kullanıcı Şifreniz Evet
AddressId String(32) Gönderi Sevk Adres Kodu Hayır
ReceiverName String(200) Alıcı Adı Evet
ReceiverAddress String(250) Alıcı Adresi (String şeklinde toplu adres bilgisi) Evet
ReceiverPhone1 String(10) Telefon-1 Evet
ReceiverPhone2 String(10) Telefon-2 Hayır
ReceiverPhone3 String(10) Telefon-3 Hayır
ReceiverCityName String(40) İl-Şehir Adı Evet
ReceiverTownName String(10) İlçe Adı Evet
CityCode String(32) İl Kodu Hayır
TownCode String(32) İlçe Kodu Hayır
ReceiverDistrictName String(64) Semt Hayır
ReceiverQuarterName String(64) Mahalle Hayır
ReceiverAvenueName String(64) Cadde Hayır
ReceiverStreetName String(64) Sokak Hayır


Servis Sonuç Kodları ;

0 Başarılı
935 ReceiverPhone1 alanı boş olmaz
936 Güncelleme hatası
938 Alıcı Adresini Girmeniz Gerekmektedir
939 Alıcı Adını Girmeniz Gerekmektedir
940 Şehir Adını Girmeniz Gerekmektedir
941 İlçe Adını Girmeniz Gerekmektedir
1000 Kullanıcı Adı ve Şifreniz Yanlıştır
1001 Entegrasyon bilgileriniz güncellenirken bir hata oluşmuştur. Müşteri Temsilcinizle görüşünüz
1002 Aras Şube Bilginiz Tanımlı Değildir. Müşteri Temsilcinizle görüşünüz
70018 ReceiverAddress alanı en fazla 250 karakter olabilir

[yhackup]

Hangi satırda alıyorsun hatayı

[osiso]

Aslında gönderimde alıyorum hatayı ama
AResult := Servis.SetAddress(AdresList, 'neodyum', 'nd2580'); bu gönderim deki AdresList i beğenmiyor

[yhackup]

Hata karşıdan dönüyor,
Ancak karşı taraf , senin oluşturduğun xml'de hata olduğu için döndüğünü söylemeye çalışıyor , eksik veya hatalı bir bilgi gönderiyordiğin karşı tarafın önlem almadığı bir yerden patlıyor olabilir , veya karşıda gerçekten sorun vardır.
Önerim bu gibi işlerde önce soap uı kullan , Sonra aşağıdaki gibi giden gelen xml paketlerini incele sonuca daha çabuk ulaşırsın. Ve bunları thread içerisinde yap uygulaman donmasın.

procedure RioResponse(const MethodName: string; SOAPResponse: TStream);
procedure RioRequest(const MethodName: string; SOAPRequest: TStream);

function TForm2.setadress(): String;
var
 Servis: ServiceSoap;
 sa: AddressDto; // sa set adress
 AdresList: ArrayOfAddressDto;
 AResult: ArrayOfAddressResultDto;
 TResult: AddressResultDto;
 MyRio: THTTPRIO;
begin
 MyRio := THTTPRIO.Create(nil);
 MyRio.OnAfterExecute := RioResponse;
 MyRio.OnBeforeExecute := RioRequest;
 sa := AddressDto.Create;
 sa.ReceiverName := 'Özkan EROL'; // alıcı adı zorunlu
 sa.ReceiverAddress := 'Cumhuriyet Mah. Erata Cad. No:105 D:173';
 // alıcı adresi zorunlu
 sa.ReceiverPhone1 := '5555555'; // telefon zorunlu
 sa.ReceiverCityName := 'İSTANBUL'; // İl-Şehir Adı zorunlu
 sa.ReceiverTownName := 'AVCILAR'; // ilçe adı zorunlu

 SetLength(AdresList, 1);
 AdresList[0] := sa;

 Servis := GetServiceSoap(False, '', MyRio);
 AResult := Servis.SetAddress(AdresList, 'neodyum', 'nd2580');

 Result := '';
 if Length(AResult) > 0 then
   Result := AResult[0].ResultMessage;
end;


procedure RioRequest(const MethodName: string; SOAPRequest: TStream);

var
 intStrList: TStringList;
 Header: String;
 FileName: String;
 ss: TStringStream;
 Value: String;
begin
 try
   intStrList := TStringList.Create;
   SOAPRequest.Position := 0;
   intStrList.LoadFromStream(SOAPRequest);
   intStrList.SaveToFile('C:\RioRequest.xml');
   ShellExecute(0, 'open', PWidechar(FileName), nil, nil, SW_SHOWNORMAL);
 finally
   intStrList.Free;
 end;
end;

procedure RioResponse(const MethodName: string; SOAPResponse: TStream);
var
 intStrList: TStringList;
 FileName: String;
begin
 try
   intStrList := TStringList.Create;
   SOAPResponse.Position := 0;
   intStrList.LoadFromStream(SOAPResponse);
   intStrList.SaveToFile('C:\RioResponse.xml');
   ShellExecute(0, 'open', PWidechar(FileName), nil, nil, SW_SHOWNORMAL);
 finally
   intStrList.Free;
 end;
end;

[osiso]

hocam siz bu değişikliklerle göndere bildiniz mi?
ben gönderemedim hala

Arasın diğer metotlarına veri gönderip alabiliyorum hiç bir sıkıntı yok sadece bu setadress metodunda sıkıntı yaşıyorum
birde aynı işyerindeki arkadaşım c# ile hiç sorun yaşamadan veri gönderdi başarılı sonucunu aldı

[r3n4m3]

Selam Kardeşim ben sana vereyim çalıştı ok.Gereksizleri silersin

procedure TForm1.Button1Click(Sender: TObject);
var
data:AddressDto;
AdresList:ArrayOfAddressDto;
soapbaglanti:ServiceSoap;
AResult :ArrayOfAddressResultDto;
ladres:string;
Uid: TGuid;
Result: HResult;
begin
try
// sa.ReceiverName:='Özkan EROL';      //alıcı adı zorunlu
// sa.ReceiverAddress:='Cumhuriyet Mah. Erata Cad. No:105 D:173';    //alıcı adresi zorunlu
// sa.ReceiverPhone1:='5555555';     //telefon zorunlu
// sa.ReceiverCityName:='İSTANBUL';    //İl-Şehir Adı zorunlu
// sa.ReceiverTownName:='AVCILAR';     //ilçe adı zorunlu
data:=AddressDto.Create;
ladres:='http://customerservicestest.araskargo.com.tr/arascargoservice/arascargoservice.asmx?wsdl';
soapbaglanti := GetServiceSoap(false,ladres,nil);
data.ReceiverName:='Özkan EROL';
data.ReceiverAddress:='Cumhuriyet Mah. Erata Cad. No:105 D:173';
data.ReceiverPhone1:='5052419956';
data.ReceiverCityName:='İstanbul';
data.ReceiverTownName:='Avcilar';
Result:=CreateGuid(Uid);
data.ImportCargoInfoId:=GuidToString(Uid);
SetLength(AdresList,1);
AdresList[0]:=data;
AResult:=soapbaglanti.SetAddress(AdresList,'neodyum','nd2580');
if Length(AResult) > 0 then mmo1.lines.add(AResult[0].ResultMessage);
finally

end;

end;

end.

---

Unuttum da aldığın hata guid ile ilgili gönderirken guid istenemektedir. onu verdiğim örnekte otomatik olarak oluşturabilirsin.
Kolay gelsin

---

[osiso]

r3n4m3 üstat çok teşekkür ederim. Allah senden razı olsun. oldu bu iş

[r3n4m3]

Sevindim kardeşim bir ara baya uğraştım en çok zorlandığım sağlık bakanlığındaki web servislerle uğraşmak bizde delphi ile 98'den beri ugrasiyorum. Pek yazmayı sevmem ama dedim hadi yardımcı olayım

Kolay gelsin

[advertseo]

Aras kargo kodunu paylaştığınız için teşekkür ederim, Sırf size teşekkür etmek için üye oldum.

[itsmylife38]

Kardeşim Selam bende şimdi denedim interface not suprted diyor;
Daha önce UPS ile yapmıştık şimdi ARAS kargo ile anlaşmak üzere firma birde bende 
data.ImportCargoInfoId:=GuidToString(Uid);
Bu kısım altı çizili geliyor

Kod: (Select All)

var
data:AddressDto;
AdresList:ArrayOfAddressDto;
soapbaglanti:ServiceSoap;
AResult :ArrayOfAddressResultDto;
ladres:string;
Uid: TGuid;
Result: HResult;
begin
try
// sa.ReceiverName:='Özkan EROL';      //alıcı adı zorunlu
// sa.ReceiverAddress:='Cumhuriyet Mah. Erata Cad. No:105 D:173';    //alıcı adresi zorunlu
// sa.ReceiverPhone1:='5555555';     //telefon zorunlu
// sa.ReceiverCityName:='İSTANBUL';    //İl-Şehir Adı zorunlu
// sa.ReceiverTownName:='AVCILAR';     //ilçe adı zorunlu
data:=AddressDto.Create;
ladres:='http://customerws.araskargo.com.tr/arascargoservice.asmx?wsdl';
soapbaglanti := GetServiceSoap(false,ladres,nil);
data.ReceiverName:='Özkan EROL';
data.ReceiverAddress:='Cumhuriyet Mah. Erata Cad. No:105 D:173';
data.ReceiverPhone1:='5052419956';
data.ReceiverCityName:='İstanbul';
data.ReceiverTownName:='Avcilar';
Result:=CreateGuid(Uid);

data.ImportCargoInfoId:=GuidToString(Uid);


SetLength(AdresList,1);
AdresList[0]:=data;
AResult:=soapbaglanti.SetAddress(AdresList,'feba','ma842tc7gm');
if Length(AResult) > 0 then memo1.lines.add(AResult[0].ResultMessage);
finally

end;

Yardımların için çok teşekkürler.

Aldığım hata bu şekilde

 interface not supported