|
Hola que tal bueno seguí investigando y por fin encontré la manera de grabar y visualizar imágenes con el componente.
Dejo el código para que pueda servir a alguien mas.
Saludos.
// Para grabar la imagen en sql server .
TStream * BlobStream;
TFileStream * FileStream;
if(OpenDialogLogo->Execute())
{
CDSConfig->Edit();
TcxImgLogo->Picture->LoadFromFile(OpenDialogLogo->FileName);
BlobStream = CDSConfig->CreateBlobStream(CDSConfig->FieldByName("bLogo"), bmWrite);
try
{
FileStream = new TFileStream(OpenDialogLogo->FileName, fmOpenRead);
try
{
BlobStream->CopyFrom(FileStream, FileStream->Size);
}
__finally
{
delete FileStream;
}
}
__finally
{
delete BlobStream;
}
CDSConfig->Post();
}
// Aquí visualizamos la imagen.
CDSConfig->Edit();
TStream *BlobStream;
TJPEGImage *jpg = new TJPEGImage;
BlobStream = CDSConfig->CreateBlobStream(CDSConfig->FieldByName("bLogo"), bmRead);
jpg->LoadFromStream(BlobStream);
delete BlobStream;
TcxImgLogo->Picture->Assign(jpg);
|