Problema para guardar datos desde campo Blob al disco duro

[Casimiro Noteví]

Código Delphi [-]
TBlobField(qry.FieldByName('Archivo')).SaveToFile(C:\Descarga\Archivo.exe);

¿No deberías poner el nombre del fichero entre comillas?

Código Delphi [-]
TBlobField(qry.FieldByName('Archivo')).SaveToFile('C:\Descarga\Archivo.exe');

[phirum1984]

Ups, si, tienes razón, ha sido un error sintáctico, en la aplicación lo tengo bien, pero no es ese el problema, sigue sin funcionarme, alguna ayuda o sugerencia por favor...

[Casimiro Noteví]

Pues entonces pega aquí exactamente el código que estás usando.

[phirum1984]

Ok, pongo el código exacto que utilizaba, hay algunas funciones implementadas por mí que sólo sirven para mostrar un cierto mensaje de error en caso de fallo y cosas así, son irrelevantes para el caso que nos ocupa aquí

Código para subir el archivo .exe:

Código Delphi [-]
var
  qry_Version: 
  TQuery;
  sql: String; 
  ...
  sql:='UPDATE Administracion SET Valor=''' + txt_Version.Text + ''', Archivo=:archivo '+ 'WHERE Tipo=''UltimaVersion''';
  try
    qry_Version.Close; 
    qry_Version.SQL.Clear;             
    qry_Version.SQL.Add(sql);             
    qry_Version.ParamByName('archivo').LoadFromFile(txt_Ruta.Text, ftBlob);             
    qry_Version.ExecSQL;             
    ShowMessage('Nueva versión subida correctamente.');            
    Close;          
  except             
    Error(10, mtError);          
  end;          
  qry_Version.Close;

El código usado para descargar el archivo subido previamente es:

Código Delphi [-]
var
  qry_Version: TQuery;   
  sql: String; 
  ...  
  sql:='SELECT Archivo FROM Administracion WHERE Tipo=''UltimaVersion''';       
  try          
    Abrir_qry(qry_Version, sql);          
    if (qry_Version.RowsAffected>0) then begin
      TBlobField(qry_Version.FieldByName('Archivo')).SaveToFile(dlg_Guardar.Filename);             
      ShowMessage('Archivo descargado.' +#10 + dlg_Guardar.FileName);          
    end          
    else Error(53, mtError);       
  except          
    Error(10, mtError);       
  end;
  qry_Version.Close;

Es cuando descargo el archivo que sólo me lo crea de 32Kb.
Gracias de antemano

[iparraguirre89]

Revisa el parámetro:
max_allowed_packet, es el que se encarga de limitar el tamaños de los archivos.
Ej.
max_allowed_packet=100mb