Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-05-2015
DANIEL1818 DANIEL1818 is offline
Miembro
NULL
 
Registrado: abr 2015
Posts: 42
Poder: 0
DANIEL1818 Va por buen camino
Mostrar imagen/foto en DBgrid

Muy buenos días! tengo un problema de hace días. El problema es el siguiente: tengo un DBgrid asociado a una tabla en ACCESS 2010 que tiene nombre, apellido, producto, descripción y foto, los campos en texto se ven bien pero la foto no! en vez de estar la foto en dicho campo de la tabla sale el texto "(Blob)". Como puedo solucionar este problema y que se pueda ver la foto? y mediante código desde delphi 2010 como puedo hacer para actualizar un registro y poder subir una foto? (la foto seria la del producto). Ojala puedan ayudarme, y muchísimas gracias de antemano!
Responder Con Cita
  #2  
Antiguo 27-05-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Mira los hilos del final de página, abajo del todo, encontrarás algunos que te sirven.

Por cierto, no olvides leer nuestra guía de estilo, gracias
Responder Con Cita
  #3  
Antiguo 27-05-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Daniel.

Te agrego una opción más a las que te señaló Casimiro.
Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  with TStringGrid(DBGrid1) do
  begin
    DefaultRowHeight := 60; // alto de filas a gusto
    RowHeights[0]    := 25;  // alto de título
  end;
  DBGrid1.Options := DBGrid1.Options - [dgColumnResize]; // columnas fijas
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if ( Column.FieldName = 'GRAPHIC' ) then
    with TPicture.Create do
    try
      Assign( Column.Field );
      DBGrid1.Canvas.StretchDraw( Rect, BitMap );
    finally
      Free;
    end;
end;

Muestra del ejemplo:



Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #4  
Antiguo 27-05-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola de nuevo.

Y si deseas centrar los textos de las celdas para una mejor presentación:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 with DBGrid1 do
  begin
    Options := DBGrid1.Options - [dgColumnResize];
    Columns[2].Width := 120;
  end;
  with TStringGrid(DBGrid1) do
  begin
    DefaultRowHeight := 120;
    RowHeights[0]    := 20;
  end;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
   R: TRect;
begin
  if (Column.FieldName = 'IMAGE') then
  begin
    with TPicture.Create do
    try
      Assign(Column.Field);
      DBGrid1.Canvas.StretchDraw(Rect, BitMap);
    finally
      Free;
    end;
  end
  else with TDBGrid(Sender) do
  begin
    R:= Rect;
    FillRect( Canvas.Handle, R, HBRUSH(Color) );
    DrawText( Canvas.Handle, PChar(Column.Field.AsString), -1, R,
             DT_SINGLELINE + DT_VCENTER + DT_CENTER );
  end;
end;

Muestra:



Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Visualizar Foto al navegar por un DBGrid RoyTan Conexión con bases de datos 2 07-12-2012 12:14:33
Mostrar imagen en DBGrid en C++ LuisMiguel C++ Builder 7 08-10-2012 22:13:39
mostrar una imagen en un DBGrid adebonis Varios 12 25-09-2012 14:33:00
adaptar foto de marco a una imagen kapullok_2006 Gráficos 6 04-09-2007 18:39:14
foto grabada sqlserver y mostrar en asp Ricardo Alfredo Varios 2 06-06-2005 17:06:37


La franja horaria es GMT +2. Ahora son las 01:15:02.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi