markcr

I realise that this has been asked a few times in various ways, including by
me, but how can i display a jpeg image stored in a blob filed in a tdbimage
component? I am using paradox table and c++builder 6

Can the TDBImage be changed to have functions which display a jpeg image (it
errors with an invalid nitmap image currently)

Most example I have googled use Delphi code, which is no use for me.

antonio felix

"Markcr" <markcr@ntlworldminusthistext.com> escreveu na mensagem
news:44a92428$1@newsgroups.borland.com...


Hi,

Just include the JPeg.hpp Header file
( at least with BCB5 - Presumed it stills the same )

HTH
Antonio

markcr

It is already included. I can load a jpeg into a TImage but not a TDBImage

antonio felix

Take a look at

http://groups.google.pt/group/borland.public.cppbuilder.database.sqlservers/browse_frm/thread/c6e5f1fe144c7bb9/b40d8eac389a4125?lnk=st&q=builder+jpeg+tdbimage&rnum=6&hl=pt-PT#b40d8eac389a4125

HTH
Antonio

markcr

OK, I put the code in the form create, but I still get Bitmap image is not
valid when I open the database.
Should the code live somehwere else?

antonio felix

Don't use the Form Create, use it in the form constructor.
Are you shure that you have a valid jpeg in the Blob field?

Br
Antonio

markcr

I am sure. If i savetofile and then loadfromfile in a TImage I have no
problems, but I want to cut out the savetofileand loadfromfile section,

mark richards

Does anyone have a wroking code that can access a TBlobField, save it to a
memory stream, and then load it into a TImage?

--
---------------------------------------
And a pointless sig...
---------------------------------------
There are 10 types of people in the world
those that understand binary and those that don't

antonio felix

if ( !Dm->IBSU->FieldByName("PGraph")->IsNull ) {
TJPEGImage *Jp;
TMemoryStream *Blob;
try {
Jp = new TJPEGImage();
Blob = new TMemoryStream();
Dm->IBSU->FieldByName("PGraph")->SaveToStream( Blob );
Blob->Position = 0;
Jp->LoadFromStream( Blob );
IPGraph->Picture->Bitmap->Assign( Jp );
delete Blob;
delete Jp;
}
catch( Exception &E ) {
FxMsgE( Application->Handle, "Imagem:", "Cannot Load Image.", E );
delete Blob;
delete Jp;
} } else
IPGraph->Picture->Metafile->Clear(); ... IPGraph = TImage
Dm->IBSU = TIBSQL on a DataModule ( change it by your Dataset )

HTH
Antonio

markcr

thanks, I will implement that later. Ditched the dbimage control, so that
should work better, at least it cuts out opening files.