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.