[Max_E.]

Hola a todos denuevo.

bueno encontre un ejemplo de como cargar una imagen en base de datos en preguntas parecidas en el foro, y si resultan pero lo que yo quiero es cargar imagenes .jpg y en el ejemplo solo se puede cargar imagenes .bmp este es el codigo

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
If OpenPictureDialog1.Execute then
begin
table1.Edit;
DBImage1.Picture.LoadFromFile (openpicturedialog1.FileName);
end;

talves falta algo en USES, estos son los que utilizo

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, DBCtrls, ExtCtrls, Menus,
  Mask, ExtDlgs, jpeg;

encontre otro ejemplo pero no funciona y me muetsra el error 'bitmap image is not valid'

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
  var
    Jpg: TJpegImage;
    Stream: TMemoryStream;
  begin
    Jpg := nil;
    Stream := nil;
    try

      // Create a JPEG image and load it from a file

      Jpg := TJpegImage.Create;

If OpenPictureDialog1.Execute then
begin

DBImage1.Picture.LoadFromFile (openpicturedialog1.FileName);


End;
 Jpg.LoadFromFile(openpicturedialog1.FileName);

      // Create a stream and save the image to the stream

      Stream := TMemoryStream.Create;
      Jpg.SaveToStream(Stream);
      Stream.Position := 0;
      Table1.Append;

      // Load the Blob field from the stream

      TBlobField(Table1.FieldByName('Image')).LoadFromStream(Stream); (aqui se detiene)

//      Table1.Post;
    except
      jpg.Free;
      Stream.Free;
      raise;
    end;
    jpg.Free;
    Stream.Free;

end;

tal ves el problema esta en las propiedades del campo image???, guardarlo en bmp me ocuparia mucho espacio es por eso que preferiria que se guarde con externcion .jpg

en verdad ya e buscado en preguntas anteriores pero nada aun, espero que alguien pueda yurdarme, gracias de ante mano.