XML dosyasını post etmek ve parametre göndermek

[delphi_programmer]

Arkadaşlar selamlar,
Bazı verileri günlük olarak alarak her gün XML dosyası oluşturan bir program yapıyordum, bitti.
Şimdi oluşturulen XML dosyasını bir servise post etmem gerekiyor ancak takıldım, nasıl yapacağımı bilmiyorum.

Karşı taraf diyor ki :

Adres : https://deneme.deneme.com/webservices/m ... etimi.asmx
Metod : SiparisAktar(str xml, str ServisTipi)

Parametreler:
Xml : XML String
ServisTipi : Sabit text değer “Malzemeler”

DelphiTürkiye'de arama sonucunda aşağıdaki koda ulaştım ancak doğru kod üzerinde mi çalışıyorum bilmiyorum ve yukarıdan görüleceği üzere bir de parametre göndermek icap ediyor.Belki dönüş değerini de almam lazım.

Yukarıdaki web servis bilgisine göre xml dosyamı karşıya nasıl gönderebilirim ?

Şimdiden teşekkürler.

procedure TForm1.Button1Click(Sender: TObject);
var
HTTPReq:TXMLHTTPRequest;
XMLStructe:TStringList;
DonusBilgisi:String;
begin
try
XMLStructe:=TStringList.create;
XMLStructe.LoadFromFile('c:\of.xml');
HTTPReq:=TXMLHTTPRequest.Create(nil);
HTTPReq.open('GET','http://www.biotekno.biz:8080/SMS-Web/xmlsms',false);
HTTPReq.send(XMLStructe.Text);
DonusBilgisi := HTTPReq.responseText;
Memo1.Text := DonusBilgisi;
finally
XMLStructe.free;
HTTPReq.free;
end;
end;

[deltas]

viewtopic.php?f=2&t=24894

[delphi_programmer]

Cevap için teşekkürler.
Oradaki bilgilere göre prosedürü oluşturdum.
Ancak metodun tanınmadığına dair geri dönüş mesajı alıyorum.
Sanırım o kısmını tam anlamış değilim.

Karşı tarafın bana verdiği bilgiler şu şekilde olduğuna göre HTTPReqResp1.SoapAction:= 'SiparisAktar'; satırını ne şekilde değiştirmem gerekir ?

Adres : https://hizmet.koczer.com/webservices/m ... etimi.asmx
Metod : SiparisAktar(str xml, str ServisTipi)
Parametreler:
Xml : XML String
ServisTipi : Sabit text değer = “Malzemeler”

Kod: Tümünü seç

procedure TForm1.BitBtn7Click(Sender: TObject);
var
Stream: TMemoryStream;
XMLdata: TStringList;
StrStream: TStringStream;

begin
Stream:=tmemorystream.Create;
xmldata:=TStringList.create;
try
HTTPReqresp1.URL:= 'https://hizmet.xxxxxxx.com/webservices/malzemeyonetimi.asmx';
HTTPReqResp1.UseUTF8InHeader:=true;
HTTPReqResp1.SoapAction:= 'SiparisAktar';

XMLDATA.LoadFromFile(dosya);

HTTPReqresp1.Execute(XMLData.Text,Stream);
Strstream:= Tstringstream.Create('');
try
  Strstream.CopyFrom(stream,0);
Memo2.Text:= Strstream.DataString;
  finally
strstream.Free;
end;

finally
stream.Destroy;
end;

end;