Fórum SMS com delphi #232076

var lURL : String;
	lResponse : TStringStream;
begin
	lResponse := TStringStream.Create('');

try
	lURL := 'http://api.facilitamovel.com.br/api/simpleSend.ft?user=xxx&password=xxx&destinatario=5191561100&externalkey=123&msg=Ola%20Facilita';
	idHttp1.Get(lURL, lResponse);
	lResponse.Position := 0;
	{ Exemplo de uso do response : carregar o conte�do num RichEdit : }
	reResp.Lines.LoadFromStream(lResponse);
finally
	lResponse.Free();
end;

------------- LEITURA DAS RESPOSTAS ----------------------

var lURL : String;
	lResponse : TStringStream;
begin
	lResponse := TStringStream.Create('');

try
	//Obtem dados de retorno da API via URL
	lURL := 'http://api.facilitamovel.com.br/api/readMO.ft?user=xxx&password=xxx';

	//Showmessage(lURL);

	idHttp1.Get(lURL, lResponse);
	lResponse.Position := 0;
	{ Exemplo de uso do response : carregar o conteudo num RichEdit : }
	reResp.Lines.LoadFromStream(lResponse);
finally
	lResponse.Free();
end;