Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   como cargo una imagen (https://www.clubdelphi.com/foros/showthread.php?t=5627)

omy 27-11-2003 21:04:48

como cargo una imagen
 
como cargo una imagen que guarde en un campo ole de access la imagen es jpg. requiero ponerla en un objeto image

Espero me puedan ayudar, .....

Descendents 28-11-2003 01:09:36

en la propiedad picture, en un image.

En un db image, si lo asignas al datasource y al campo y listo.
Me parece que estaras limitado a que sean bmp.

Jpg y gif no creo que te funcionen con dicho componetne
Un saludo

madriles 28-11-2003 10:13:41

hola
normalmente algunos problemas, por obvios, los pasamos por alto. He tenido, en ocasiones, problemas con jpg, y pasarme horas viendo que pasaba y al final...
se me olvido poner Jpeg en el uses ( exceso de confianza ), a ver si es tu caso

omy 28-11-2003 20:44:44

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.....


La franja horaria es GMT +2. Ahora son las 07:06:40.

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