mezcla de permisos en carpeta compartida

[kapcomx]

aqui un ejemplo de como insertar una imagen en una bd.

1ero. tengo en la tabla un campo de tipo blob llamado img1
2 do. tengo un procedimiento almacenado para insertar registros en la tabla

Código Delphi [-]
begin
  insert into clase ( id_clase, clave, clase, fk_estatus, fk_tipo, img1) values ( null, :clave, :clase, 1, :fk_tipo, :img1); 
end

3ero dentro del formulario tengo 4 componentes

• un edit donde ira el nombre del archivo que contiene la imagen
• un boton que permite abir un open dialog para buscar la imagen
• un image (para mostrar la imagen)
• un open dialog.

4to. codigo del boton

Código Delphi [-]
Opd1.Execute;    
eImg1.Text := Opd1.FileName; //este es el edit    
if  eImg1.Text <> '' then    
  Image1.Picture.LoadFromFile(Opd1.FileName);

5to al guardar mando llamar el procedimiento

Código Delphi [-]
dm.clase_i.Params[0].Value:= edtclave.Text;         
dm.clase_i.Params[1].Value:= edtclase.Text;         
dm.clase_i.Params[2].Value:= dm.dstipoID_TIPO.Value ;          
if eImg1.Text <> '' then         
  dm.clase_i.Params[3].LoadFromFile(opd1.FileName, ftblob)         
else         
  dm.clase_i.Params[3].value:= null;          
dm.clase_i.ExecProc;           
dm.trans.CommitRetaining ;

te comento ke uso interbase 2007 con xe2.

Saludos....