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
Jpg := TJpegImage.Create;
If OpenPictureDialog1.Execute then
begin
DBImage1.Picture.LoadFromFile (openpicturedialog1.FileName);
End;
Jpg.LoadFromFile(openpicturedialog1.FileName);
Stream := TMemoryStream.Create;
Jpg.SaveToStream(Stream);
Stream.Position := 0;
Table1.Append;
TBlobField(Table1.FieldByName('Image')).LoadFromStream(Stream); (aqui se detiene)
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.