Buenas Tengo un inconveniente estoy haciendo algo para peticiones get desde delphi pero al llamar el procedimiento me da este error
raised exception class eidhttpprotocolexception with message
el codigo de la unidad es:
Código Delphi
[-]unit UnitEnvio;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, shellapi, IdHTTP,
ComCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
btn1: TButton;
mmo1: TMemo;
edtusuario: TEdit;
edtpass: TEdit;
edtcel: TEdit;
edturl: TEdit;
edt1: TEdit;
function componerURLFinal () : string;
procedure mmo1Exit(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function enviarSMS (url : string) : string;
var
obtenerHTTP : TidHTTP;
web : TStringList;
begin
web := TStringList.Create;
obtenerHTTP := TidHTTP.Create(nil);
try
web.Text := obtenerHTTP.Get(url);
except
on e: exception do
begin
obtenerHTTP.Free;
end;
end;
enviarSMS := web.Text;
end;
function Tform1.componerURLFinal;
var
url, numeroTelefono, mensaje, usuario, contrasena : string;
urlFinal : string;
begin
url := 'http://localhost/webservices/SendSms';
numeroTelefono := edtcel.Text;
mensaje := mmo1.Text;
usuario := edtusuario.Text;
contrasena := edtpass.Text;
urlFinal := url + '/?phonenumber=' + numeroTelefono +
'&mensaje=' + mensaje +
'&user=' + usuario + '&password=' + contrasena;
edturl.Text := urlFinal;
end;
procedure TForm1.mmo1Exit(Sender: TObject);
begin
componerURLFinal;
end;
procedure TForm1.btn1Click(Sender: TObject);
var
web:TStringList;
begin
web.text:= enviarSMS(edturl.Text);
end;
end.