I'm using D3 with Paradox databases.
I need to insert JPG or GIF Images into a Database field.

Can it be done??

Is there a third party component that will do it??

Thanks,

Frank
--------------------

Table1Graphic is a persistent field type, you could use
Table1.FieldByName('Graphic') instead. You can not use the TDBImage
control, the code below shows how to use a TImage in a TDatasource
OnDataChange handler instead.
To load/view GIF images it's the same basic code except that there is
no inbuilt support for GIF files in Delphi. Anders Melander has a
freeware component to do the conversions (its www.melander.com I
think.)

If you are going to mix JPegs and GIFs then you have to be able to
identify what the Blob field contains. The simplest method is to carry
the file extension in a separate field, although it should be possible
to interrogate the file header in the stream. Something I have not got
round to.

//Load jpeg in file to blob field
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  with Table1 do begin
    Append;
    Table1Graphic.LoadFromFile(OpenPictureDialog1.Filename);
    Post;
  end;
end;
//View JPeg in Blob field
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
  jpg:TJpegImage;
  memStream:TMemoryStream;
begin
  memStream:=TMemoryStream.Create;
  try
    jpg:=TJpegImage.Create;
    try
      if not Table1Graphic.IsNull then begin
        Table1Graphic.SaveToStream(memStream);
        memStream.Seek(0,0);
        jpg.LoadFromStream(memStream);
        Image1.Picture.Assign(jpg);
      end;
    finally
      jpg.free;
    end;
  finally
    memStream.free;
  end;
end;

Don't forget to put "JPeg" in the uses clause.

Bob
---
Sent using Virtual Access 5.01 - download your freeware copy now
http://www.atlantic-coast.com/downloads/vasetup.exe

--
Brian Bushay (TeamB)
Bbus...@NMPLS.com

Can a paradox table store Gif or Jpeg images directly?  I am using Delphi
4.

Please ignore this thread.  I found the answer in previous discussion.

Desmond

Please ignore this thread.  I found the answer in previous discussion.

Desmond

You load the image into a picture to handle any graphic type, then pass it
through a TBitmap for conversion on its way into the TField object.
procedure TForm_Images.SpeedButton_GetPicClick(Sender: TObject);
Var
  Image: TImage;
  Bitmap: TBitmap;
begin
  If OpenDialog.Execute then
    Begin
      Image := TImage.Create(Self);
      Bitmap := TBitmap.Create;
      Image.Picture.LoadFromFile(OpenDialog.FileName);
      Bitmap.Assign(Image.Picture.Graphic);
      Table_ImagesData.Assign(Bitmap);
    end;
  Image.Free;
  Bitmap.Free;
end;

Hope this helps
Michael Gallaher
m...@asipay.com

Although you can use the TDBImage by converting JPeg to Bitmap and
storing the bitmap in a graphic field, you are throwing away one
almighty advantage of the JPeg format, namely that it is highly
compressed.
That's about ten times the network traffic and ten times the data
storage, which is a big price IMO for a small programming advantage.

Bob
---
Sent using Virtual Access 5.01 - download your freeware copy now
http://www.atlantic-coast.com/downloads/vasetup.exe

Your are correct of course, using a BLOB field, would allow me to store
jpeg, or gif, or any other file type in its native format, and take full
advantage of features like compression, or animation, as well as reduce
traffic in a network environment.

The client is using the application in a non network environment, and one of
the reporting tools used will only handle bitmaps, so this was the solution.

Thanks for your comments.
Michael Gallaher
m...@asipay.com