Código Delphi [-] // Crear una query para buscar el registro qInsert.SQL.Add('select * from ficheros where Nombre=:nombre'); qInsert.ParamByName('nombre').AsString := FDQuery1.FieldByName('nombre').AsString; qInsert.Open; // Utiliza un TBlobField para grabarloa disco (a la inversa de como has hecho para gusrdarlo) TBlobField(qInsert.FieldByName('fichero')).SaveToFile('c:\temp\fichero_salida.pdf');
// Crear una query para buscar el registro qInsert.SQL.Add('select * from ficheros where Nombre=:nombre'); qInsert.ParamByName('nombre').AsString := FDQuery1.FieldByName('nombre').AsString; qInsert.Open; // Utiliza un TBlobField para grabarloa disco (a la inversa de como has hecho para gusrdarlo) TBlobField(qInsert.FieldByName('fichero')).SaveToFile('c:\temp\fichero_salida.pdf');