Delphi - Blob de MySQL con Delphi

 
Vista:

Blob de MySQL con Delphi

Publicado por Ariel (61 intervenciones) el 22/09/2005 23:10:50
Hola:

Gracias por leer mi pregunta.

Estoy trabajando con Delphi y MySQL, en una tabla tengo un campo FOTO
y ese campo es tipo Blob, cuando lo enlazo a un TDBImage, me da error o cuando
guardo una foto con el copy paste sobre el TDBImage al grabarlo solo me graba
un color negro o nada, cosa q cuando hacia esto mismo con access me funcionaba.

Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Blob de MySQL con Delphi

Publicado por Ariel (61 intervenciones) el 27/09/2005 14:51:29
Gracias....

ya encontre la respuesta, Gracias Delphino por tu ayuda ya q vi tu ayuda con
campos BLOB, en una pregunta anterior, que dice:

Como casi todo el mundo tiene problemas para visualizar imagenes jpeg insertadas como Blob en un Dataset, aqui hay un codigo compacto y eficaz para hacerlo, se chequean 2 bytes al principio del campo Blob para saber el tipo de imagen, asi no se necesita ningun truco para chequearlo:

//----------------------- DELPHINO
procedure TForm1.DataSourceDataChange(Sender: TObject; Field: TField);
var bs : TStream; jp : TJpegImage; buff: Word;
begin
bs := DataSet.CreateBlobStream(CampoBlob,bmRead);
try
bs.Seek(0,soFromBeginning);
if bs.Read(buff,2) > 0 then
begin
bs.Seek(0, soFromBeginning);
case buff of
$4D42: image1.Picture.Bitmap.LoadFromStream(bs);
$0000: image1.Picture.Icon.LoadFromStream(bs);
$0001,$CDD7: image1.Picture.Metafile.LoadFromStream(bs);
$D8FF: begin
jp := TJpegImage.Create;
jp.LoadFromStream(bs);
image1.Picture.Assign(jp);
FreeAndNil(jp);
end
else image1.Picture := nil;
end;
end;
finally
FreeAndNil(bs);
end;
end;

A mi me funciona muy bien, espero q sirva a quien lo necesite..
//-----------------------

eso me sirvio, gracias...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar