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