Ver Mensaje Individual
  #4  
Antiguo 25-03-2012
mcasso mcasso is offline
Miembro
 
Registrado: dic 2006
Posts: 16
Reputación: 0
mcasso Va por buen camino
Solo muestra imagen del primer registro

Saludos a todos, me disculpo si el tema esta muy visto. En el foro encontré como mostrar imagen en TImage
desde mi base de datos MySQL, pero solo consigo mostrar la imagen del primer registro.
Tengo 2 campos: ID y Bandera->blob. Uso Delphi XE2. Por favor una idea de como podría mostrar la bandera de cada usuario al desplazarme por el DBGrid.

Ej. del codigo.
Código Delphi [-]
procedure TForm1.SQLTable1AfterScroll(DataSet: TDataSet);
 var
  Stream : TSQLBlobStream;
  Png : TPNGImage;
begin
  if not SQLTable1.FieldByName('BANDERA').IsNull then
    begin
    Stream := TSQLBlobStream.Create(TBlobField(SQLTable1.FieldByName('BANDERA')),bmRead);
    Stream.Seek(0, soFromBeginning);
      Png := TPNGImage.create;
       Png.LoadFromStream(Stream);
       Image1.Picture.Assign(Png);
      Png.Free;
      Stream.Free;
    end;
end;
Muchas Gracias.

Última edición por marcoszorrilla fecha: 25-03-2012 a las 21:27:21.
Responder Con Cita