Foros Club Delphi - Servidor me desconecta

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Servidor me desconecta (https://www.clubdelphi.com/foros/showthread.php?t=70330)

Servidor me desconecta

Servidor Ubuntu con Mysql 5.
Delphi 7

en un For
mando llamar un Thread y este thread manda hacer un update a la base de datos.

Pero como hace tantos update tan rapido, termina el programa por que el servidor me desconecta.

Ahora soluciono con un sleep(600) pero es mucho tiempo.

Alguna sugerencia ?

Uso el TZQuery para hacer el update

Cita:

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
x:= 0;
while (x<=10000) do
begin
if(memo1.Lines.Strings[x] = '') then
begin
x:=10001;
end
else
begin
sleep(100);
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add(memo1.Lines.Strings[x]);
Run(ZQuery1);
x:=x+1;
end;
end;
end;

procedure TQueryThread.Execute;
begin
Query.ExecSQL;
end;

Supongo que como todos los Threads utilizan el mismo Query puede ser que aún no haya terminado de procesar uno y ya se esté ejecutando otro.

Supongo que tu Thread deberá crear su propio Query, ejecutarlo y liberarlo dentro de su espacio.

El parámetro de Run, quizás debería ser solamente el string.