| ng | 21.07.2005 - 19:05:10 |
| 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 | 22.07.2005 - 09:38:03 |
| merhaba ,
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 | 22.07.2005 - 15:41:03 |
| 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.
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 | 22.07.2005 - 15:57:40 |
| 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 , 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 | |