Al llamar a ApplyUpdate(0) de un ClientDataSet la aplicación se cuelga

[[coso]]

hola, se te queda colgado en una funcion, en el servidor sql o en el bucle?

[lmhjob]

Hola, depurando paso a paso el momento en que se cuelga es justo cuando entra en la llamada ApplyUpdates dentro de una de las iteraciones del bucle (nunca es la misma) y ya no sale nunca. Te pego un trozo del código:

Código Delphi [-]
 [...] 
TblEml->Insert();                                                                                                                                                                  
TblEml->Fields->Fields[ APP ]->AsString   = ModlCode;                          
TblEml->Fields->Fields[ OPC ]->AsString   = "ENTI";                            
TblEml->Fields->Fields[ FRA ]->AsString   = SmtpFrom;                          
TblEml->Fields->Fields[ FRN ]->AsString   = "SECCION";                         
TblEml->Fields->Fields[ RPL ]->AsString   = SmtpFrom;                          
TblEml->Fields->Fields[ TOA ]->AsString   = emlAlm;                             
TblEml->Fields->Fields[ TCC ]->AsString   = "";                                 
TblEml->Fields->Fields[ TBC ]->AsString   = "";                                 
TblEml->Fields->Fields[ FCH ]->AsDateTime = TS;                                    
TblEml->Fields->Fields[ TIT ]->AsString   = "título del mail";                  
TblEml->Fields->Fields[ MSG ]->AsString   = HtmlText;                             
TblEml->Fields->Fields[ NAT ]->AsInteger  = 0;                                      
TblEml->Fields->Fields[ ATN ]->AsString   = "";                                      
TblEml->Fields->Fields[ ATD ]->AsString   = "";                                      
TblEml->Fields->Fields[ STP ]->AsString   = "H";                                     
TblEml->Fields->Fields[ CNF ]->AsString   = "";                                      
TblEml->Fields->Fields[ HPR ]->AsString   = "";                                      
TblEml->Fields->Fields[ EST ]->AsString   = "P";                                     
TblEml->Fields->Fields[ ERR ]->AsInteger  = 0;                                      
TblEml->Fields->Fields[ NTR ]->AsInteger  = 0;                                      
TblEml->Fields->Fields[ TRC ]->AsString   = "";                                      
TblEml->Fields->Fields[ TMI ]->AsDateTime = Now();                                 
                                                                                          
TblEml->Post();                                                                    
Sleep(1000); // Este sleep lo he puesto por si había algún problema de concurrencia
result = TblEml->ApplyUpdates(-1); <---- AQUI MUERE                                
if (result > 0 )                                                                   
   {                                                                               
   Sleep(1000); // Para evitar clave duplicada en la tabla con el campo TMI        
   result = TblEml->ApplyUpdates(-1);                                              
   }                                                                               
[...]

[[coso]]

has probado con el debugger de entrar al codigo nativo?

[[coso]]

solo para mirar exactamente en q punto se queda en blanco (f7,f8)

[lmhjob]

No puedo depurar ese código porque no tengo los fuentes

[TOPX]

Hola,

Puede dejar (temporalmente) el ApplyUpdates dentro de un try..except, para conocer mejor el problema en tiempo de ejecución.

Código Delphi [-]
try
  result = TblEml->ApplyUpdates(-1);
except
  on E: Exception do
    ShowMessage('Este es el problema: ' +#10#13+ E.ClassName +': '+ E.Message);
end;

[lmhjob]

Sorry, no lo había incluido en el anterior trozo de código pero todo está en un try { ... } catch (Exception &e) { }