URL'ye veri Post edip response text'i alma

[ng]

Bir url ye mesaj gönderip(post edip) geri gelen responsetext'i almam gerkiyor ancak yapamdım.
Bunun için TIdHTTP nesnesini kullandım.Başka hangi bileşen ile yapabilirim.
yardımcı olursanız sevinirim.

[vkamadan]

merhaba ,

Kod: Tümünü seç

var
ResponseText:AnsiString;
begin
ResponseText := IdHTTP.Get('http://xxx.xxx.com/xxx.asp?xx=1005');
end;

gibi bir komut dizisi ile bu işi başka herhangi bir ayar gerektirmeden basit bir şekilde yapabilirsin.
Kolay gelsin.

[ng]

yapmaya çalıştığım belli bir adrese bilgi gönderip sonucu almaktı. Teşekkür ederim sorunu aşağıdaki gibi kısmen hallettim. Ayrıca @vkamadan XML ile ilgili makaleniz oldukça faydalı idi yeri gemişken teşekkür ederim.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
 Var aStream: TStringStream;
              Params: TStringList;
begin
     aStream := TSTringStream.Create('');
     Params := TStringList.create;
    idHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
     try
        with idHTTP1 do begin
          try
             params.text:= '<MainReportRoot><UserName>xxxxxxxxx-xxx</UserName><PassWord></PassWord><MsgID>info</MsgID></MainReportRoot>';
             idHTTP1.Post('http://212.65.135.163:8080/servlet/com.oksijen.bulkmessaging.xml.SmsReport',Params,aStream);
             memo1.Text:= astream.DataString;
             memo1.Lines.Add(idHTTP1.ResponseText);
          except
             on E: Exception do
                showmessage('Error encountered during POST: ' + E.Message);
          end;
        end;
     except
     end;
end;

[vkamadan]

Merhaba ,
Sanırım yapmak istediğiniz Mobilus un GateWay inin kullanarak SMS göndermek , bende kullanıyorum bir XML gönderip sonucu parse etmeniz gerekiyor sitede örnekleri var ama ben yinede bahsetmek isterim MSXML_TLB uniti içindeki TXMLHTTPRequest nesnesi tam bu iş için ideal ,

Kod: Tümünü seç

var
HTTPReq:TXMLHTTPRequest;   
ResponseText:Ansistring; 
begin
HTTPReq:=TXMLHTTPRequest.Create(Application);
HTTPReq.open('GET','gateway adresi',False);
    HTTPReq.send('XML yapısını içeren metin');
    ResponseText:=HTTPReq.responseText;
end;

kolay gelsin