10-11-2019, Saat: 23:51
servis çok karışık değilse aşağıdaki şekilde xml i kendiniz oluşturup göndermeyi deneyin.
procedure TForm1.Button1Click(Sender: TObject); var Stream: TMemoryStream; StrStream: TStringStream; XMLdata: String; xxml:String; HTTPReqresp1:THTTPReqResp; begin xxml:='1111111111'; XMLData:='<?xml version="1.0"?>' + '<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"'+ ' xmlns:xsd="http://www.w3.org/2001/XMLSchema"'+ ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">'+ '<SOAP-ENV:Body>'+ '<ns3:gonder_1n xmlns:ns3="http://sms/">'+ '<username>kullaniciadi</username>'+ '<password>sifre</password>'+ '<company>aaaaa</company>'+ '<header>mesajbaslik</header>'+ '<msg>mesajiniz</msg>'+ '<gsm>'+xxml+'</gsm>'+ '<encoding>TR</encoding>'+ '<startdate></startdate>'+ '<stopdate></stopdate>'+ '</ns3:gonder_1n>'+ '</SOAP-ENV:Body>'+ '</SOAP-ENV:Envelope>'; try stream:=tmemorystream.Create; HTTPReqresp1:=THTTPReqResp.Create(nil); HTTPReqresp1.URL:= 'http://adres/service?wsdl'; HTTPReqResp1.UseUTF8InHeader:=true; HTTPReqResp1.SoapAction:= 'http://xxx/'; HTTPReqresp1.Execute(XMLData,Stream); Strstream:= Tstringstream.Create(''); try Strstream.CopyFrom(stream,0); ShowMessage(Strstream.DataString); finally strstream.Free; end; finally stream.Destroy; HTTPReqresp1.Free; end; end;