Archivos zip en base de datos
¿Cómo puedo meter archivos zip en campos binarios de una base de datos paradox, o de otro tipo, suponiendo que el path del archivo esta guardado en una variable de cadena llamada path, y luego recuperarla a algún directorio del disco duro?
1 respuesta
Respuesta de mbarbero
1
Para cargar el archivo en un campo de una base de datos, tenés que poner la siguiente sentencia:
Table1.Edit; (o Append)
Table1CampoBinario.LoadFromFile(Path);
Table1.Post;
Fíjate que tenés que tener campos persistentes (es decir, sobre el TTable hacé click con el botón derecho del mouse y poné Add all fields). El campo de Paradox debe estar definido como Binary.
Para recuperar el campo, tenés que poner:
procedure TForm1.Button1Click(Sender: TObject);
var
Corriente:TFileStream;
begin
{Creamos un TFileStream}
{Para uso temporal}
Corriente:=TFileStream.create(Path, fmReadWrite);
{Grabamos el campo binario a la stream}
Table1CampoBinario.SaveToStream(Corriente);
{Liberamos temporal}
Corriente.Free;
end;
O algo así, fíjate en la ayuda de TFileStream para grabarlo en disco.
De todas maneras, te aconsejo que en vez de meter los Zips dentro de un archivo de base de datos, en la base de datos sólo almacenes el path, y el archivo por fuera.
Si te sirvió, califícame en TodoExpertos. Si no, avisame y veo qué puedo hacer para seguir ayudando.
Marcelo
Table1.Edit; (o Append)
Table1CampoBinario.LoadFromFile(Path);
Table1.Post;
Fíjate que tenés que tener campos persistentes (es decir, sobre el TTable hacé click con el botón derecho del mouse y poné Add all fields). El campo de Paradox debe estar definido como Binary.
Para recuperar el campo, tenés que poner:
procedure TForm1.Button1Click(Sender: TObject);
var
Corriente:TFileStream;
begin
{Creamos un TFileStream}
{Para uso temporal}
Corriente:=TFileStream.create(Path, fmReadWrite);
{Grabamos el campo binario a la stream}
Table1CampoBinario.SaveToStream(Corriente);
{Liberamos temporal}
Corriente.Free;
end;
O algo así, fíjate en la ayuda de TFileStream para grabarlo en disco.
De todas maneras, te aconsejo que en vez de meter los Zips dentro de un archivo de base de datos, en la base de datos sólo almacenes el path, y el archivo por fuera.
Si te sirvió, califícame en TodoExpertos. Si no, avisame y veo qué puedo hacer para seguir ayudando.
Marcelo
