نقل قول نوشته شده توسط You-See مشاهده تاپیک
من فکر می کنم کسی که وب سرویسشون رو نوشته چیز زیادی از XML نمی دونه.
این رو هم تست کردم مشکل داشت:


procedure TForm1.Button1Click(Sender: TObject);

var

  X: AccountCredentials;

  SMS: SmsServiceSoap;

  Ret: WsSendResponce;

begin

  X := AccountCredentials.Create;

  X.username := '72321089';

  X.password := '123456';



//  HTTPRIO1.SOAPHeaders.Send(X);

//  (HTTPRIO1 as ISoapHeaders).Send(X);

  SMS := HTTPRIO1 as SmsServiceSoap;

  Ret := SMS.SendMessage('10009111766582', 'test', '09123780840', 0, '');



  ShowMessage(Ret.ErrorDesc);

end;



procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: String;

  var SOAPRequest: WideString);

begin

  SOAPRequest :=

 '<?xml version="1.0" encoding="utf-8"?>' +

 '<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"' +

 'xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' +

 'xmlns:xsd="http://www.w3.org/2001/XMLSchema">' +

 '<soap:Header>' +

 '<AccountCredentials xmlns="http://smspishkhan.ir/webservices/">' +

 '<username>72321089</username>' +

 '<password>123456</password>' +

 '</AccountCredentials>' +

 '</soap:Header>' +

 '<soap:Body>' +

 '<SendMessage xmlns="http://smspishkhan.ir/webservices/">' +

 '<lineNo>10009111766582<lineNo>' +

 '<body>test</body>' +

 '<recipient>9123780840</recipient>' +

 '<messageClass>0</messageClass>' +

 '</SendMessage>' +

 '</soap:Body>' +

 '</soap:Envelope>' ;

end;

ارسال کنید ببینید بهونشون دیگه چیه
دوست عزيز نمونه برنامه اي كه فرستادم رو تست كرديد؟ از ارائه دهنده وب سرويس بهم گفتن كه باز هم هدر تغيير نكرده و هدر قبليه