|
ok tengo una base de datos de alumnos , pero el campo foto es de tipo ole, para poder sacar la foto y pasarla hay que hacerlo de la siguiente manera, este codigo lo modifique, pero no pude hacerlo funcionar..
begin
//T := TBlobField.Create(SQLDataSet1);
//T.FieldName := 'Images';
AdoTable1Picture := tblobfield.Create(DataSource6);
// AdoTable1Picture.FieldName := 'foto';
// AdoTable1Picture.ReadOnly :=False;
//AdoTable1Picture.
bS := TADOBlobStream.Create(AdoTable1Picture,bmRead);
try
bS.Seek(JpegStartsInBlob(AdoTable1Picture),
soFromBeginning);
Pic:=TJpegImage.Create;
try
Pic.LoadFromStream(bS);
ADOImage.Picture.Graphic:=Pic;
finally
Pic.Free;
end;
finally
bS.Free
end;
bueno alguien no recuerdo quien me ayudo aqui en el foro, pero no he podido hacer que funcione.....
__________________
omar velazquez
|