Buenas estoy tratando de recorrer una consulta para concatenar una direccion url y enviar un sms
mi codigo es el siguiente
Código Delphi
[-]with datos.sqcontactos do
begin
Close;
SQL.Text := 'SELECT * FROM vcontactos where vcontactos.celular IS NOT NULL';
Open;
while not Eof do
begin
phonenumber:=datos.sqcontactos.FieldByName('celular').AsString;
Text:=mmomensaje.Text;
user:='mipass';
password:='miusuario';
parametros:='phonenumber='+phonenumber+'&Text='+Text+'&user='+user+'&password='+password;
respuesta := 'http://www.enlinea-ve.com/api2/'+'?'+parametros;
wb2.Navigate(respuesta);
datos.sqcontactos.Next;
end;
La Consulta me regresa 1000 registros y solo me envia 3 sms paraeciera que al tercer registro se detiene