3 replies to this topic

[Master23]

Bueno estaba usando access por primera vez es igual que casi todos los sistemas de base de datos pero bien en la lista de tipos de datos no me aparece la opción imagen , solo datos adjuntos y no creo que sea el tipo para poder mostrar imágenes en delphi como en paradox espero su ayuda ,gracias de antemano.

[eduarcol]

En paradox se manejan tipos BLOB, en acces puedes usar el tipo OLE

Objeto OLE Objeto (como por ejemplo una hoja de cálculo de Microsoft Excel, un documento de Microsoft Word, gráficos, sonidos u otros datos binarios) vinculado o incrustado en una tabla de Microsoft Access.

Recuerda que las imagenes en este tipo de motores pueden poner pesada la red.

[zajoma]

Hola amigos, soy nuevo y con ganas de colaborar.

este es un procedimiento para insertar y recuperar imágenes en ACCESS

delphi

procedure TForm1.CargaFoto( field:TField; image:TImage );
var
  BS:TADOBlobStream;
begin
  result.Picture.Graphic := nil;
 
  if not field.IsNull then begin
    BS := TADOBlobStream.Create( field AS TBlobField, bmRead );
    try
      Image.Picture.Graphic := TJPegImage.Create();
      Image.Picture.Graphic.LoadFromStream( BS );
    finally
      BS.Free;
    end;
  end;
end;
 
procedure TForm1.GrabaFoto( field:TField; image:TImage );
var
  BS:TADOBlobStream;
begin
  if (Image.Picture.Graphic <> nil ) then begin
    BS := TADOBlobStream.Create( field AS TBlobField, bmWrite );
    try
      Image.Picture.Graphic.SaveToStream( BS );
    finally
      BS.Free;
    end;
  end;
end;

espero que sirva.

[Delphius]

Hola zajoma,

Gracias por tu aporte.

Bienvenido a DelphiAccess, espero que este lugarcito te sea de mucho agrado.
Me tomé la molestia de editar tu mensaje para darle el formato adecuado a tu código.

Para hacer esto debes emplear la etiqueta DELPHI, fíjate que cuando redactas tus mensajes justo debajo del combo "tamaño de fuente" hay un botón de un caso romano. Selecciona tu código y presiona el botón. Con eso debería bastar para darle el formato.
En mi firma tengo un enlace que dice "uso de etiquetas", fíjate.

Saludos,