Error al Recorrer Array de Contactos

[webmasterplc]

Buenas, estoy tratando de recorrer un array para tomar el teléfono desde alli y enviar un sms desde un archivo php en mi servidor, debo enviar los datos a través del método post, en el envio todo bien pero cuando quiero tomar el numero de contacto de un array solo me envia el primer registro y me da un error en delphi y no envía el resto.

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
var
registros:Integer;
contactos: array of string;
http: TIdHttp;
  params: TStrings;
  respuesta: string;
begin
registros:=2;

SetLength( contactos, registros );
contactos [0]:='584128696261';
contactos [1]:='584262828527';

for registros := 0 to registros do
begin
  http := TIdHTTP.Create(Self);
  params := TStringList.Create;
  try
    params.Add('usuario=ksms');
    params.Add('clave=1234');
    params.Add('telefonos='+contactos [registros]);
    params.Add('texto=Prueba de SMS Samuel');
    respuesta := http.Post('http://www.ksms.com.ve/webservices/EnvioSMS', params);
      finally
    http.Free;
    params.Free;
  end;
  contactos:=nil;


end;
end;

Y si alguien me puede orientar tambien de como hago para pasar datos de un query a un array pero quiero tomar nombre y contacto la base de datos es mysql.

[ecfisa]

Hola webmasterplc.

Revisa las modificaciones:

Código Delphi [-]
procedure TForm1.Btn1Click(Sender: TObject);
var
  i, registros:Integer;
  contactos: array of string;
  http: TIdHttp;
  params: TStrings;
  respuesta: string;
begin
  registros := 2;
  SetLength(contactos, registros);
  contactos [0]:='584128696261';
  contactos [1]:='584262828527';
  http := TIdHTTP.Create(Self);
  try
    params := TStringList.Create;
    try
      for i := 0 to registros-1 do   // for registros := 0 to registros do (no)
      begin
        params.Add('usuario=ksms');
        params.Add('clave=1234');
        params.Add('telefonos='+contactos [i]);
        params.Add('texto=Prueba de SMS Samuel');
        respuesta := http.Post('http://www.ksms.com.ve/webservices/EnvioSMS', params);
      end;
    finally
      params.Free;
    end;
  finally
    http.Free;
    contactos := nil;  // o también: Finalize(contactos);  
  end;
end;

De ese modo el código es lógicamente correcto, pero tendras que probar si envía los sms...

Y si alguien me puede orientar tambien de como hago para pasar datos de un query a un array pero quiero tomar nombre y contacto la base de datos es mysql.

Recuerda: Preguntas distintas = hilos distintos

Saludos

[webmasterplc]

Gracias egfisa funciono perfecto, voy a hacer la otra consulta saludos

[cloayza]

Tambien podrías usar lo siguiente:

Código Delphi [-]
for i := Low(contactos) to High(Contactos) do

Saludos...