Aplicación se queda congelada !!!!

[Young]

Hola David:

1. No entiendo si "genSQL_Insert()" genera una cadena a la vez o el script completo de inserción.

2. Si quieres una barra de progreso yo utilizo en varias cosas los componentes JEDI y existe un componente llamado TJvProgressDialog que para esos menesteres funciona muy bien:

Código Delphi [-]
jvProgressDialog.Show;
// Aqui algo de codigo
jvProgressDialog.Position := 30;
// mas código
jvProgressDialog.Position := 100;
// ...
jvProgressDialog.Hide;

Lo anterior también puede ser en un bucle he ir actualizando Position en concordancia.

Saludos.

[david_uh]

hola gracias por responder, la función genSQL_Insert() lo que hace es leer una tabla dbf y mediante un bucle recorro sus registrs y construlo una cadena con una instriccion insert una cadena tal que. Insert into tabla (nombre, direccion) values ('jose','la predera'), etc, osea recojo los datos de la tabla, eso es todo, ahora, ahora lo que yo deseo es que cuando envio esa cadena y ejecuto la consulta de inserción en el servidor remoto ahi la aplicacion se me congela justo en estas lineas

Código Delphi [-]
ZSQLProcessor1.Script.Add('truncate table colegiados;');
  ZSQLProcessor1.Script.Add(genSQL_Insert());
  ZSQLProcessor1.Execute;

hay que esperar como 5 segundos y es aqui donde quisiera aparezca una barra de progreso pero no se como hacerlo ya que no hay bucle ni nada es solo esperar a que Execute termine.

saludos

David