Ver Mensaje Individual
  #1  
Antiguo 10-06-2005
luisg luisg is offline
Registrado
 
Registrado: jun 2005
Posts: 3
Reputación: 0
luisg Va por buen camino
por favor alguien que me ayude tengo probelmas con un IBStored proc

no se como agregar guardar una imagen mediante el ibstoredproc, no se como definir el parametro ni como pasarlo he intentado de varias formas y me marca error este es el codigo:
sp:=TIBStoredProc.Create(nil);
sp.Database:=DtMdlEstetica.DbEstetica;
sp.StoredProcName:='SP_MODIFICA_EMPRESA';
sp.Params.CreateParam(ftString, 'PI_NOMBRE', ptInput).AsString:=nombre;
sp.Params.CreateParam(ftString, 'PI_DOMICILIO', ptInput).AsString:=domicilio;
sp.Params.CreateParam(ftString, 'PI_TELEFONO', ptInput).AsString:=telefono;
sp.Params.CreateParam(ftString, 'PI_PAGINAWEB', ptInput).AsString:=paginaweb;
sp.Params.CreateParam(ftBlob, 'PI_LOGO', ptInput);
bs:=TBlobStream.Create(TBlobField(sp.ParamByName('PI_LOGO')), bmReadWrite);
img:=TJPEGImage.Create;
img.Assign(logo.Picture);
img.SaveToStream(bs);
img.Free;
bs.Free;
sp.Free;
Responder Con Cita