BUENAS TARDES TENGO ESTES CODIGO QUE ENCONTRE PARA ALMACENAR IMAGENES ESTOY UTILIZANDO IBQUERY PARA ALMACENAR LA IMAGEN PERO NO FUNCIONA PORQUE
SALE UN ERROR EN jpg.Assign(bmp); ESTOY UTILIZANDO DELPHI 2010 gracias por su ayuda
Código Delphi
[-]
implementation
{$R *.dfm}
uses jpeg;
var jpg: TJPEGImage;
procedure TForm1.FormCreate(Sender: TObject);
begin
jpg := TJPEGImage.Create;
end;
procedure TForm1.Button1Click(Sender: TObject);
var bmp: TBitmap; Stream: TStream;
begin
if not OpenDialog1.Execute then Exit;
bmp := TBitmap.Create; bmp.LoadFromFile(OpenDialog1.FileName); jpg.Assign(bmp); bmp.Destroy;
ADOTable1.Open; ADOTable1.Insert; Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmWrite); jpg.SaveToStream(Stream); Stream.Destroy; ADOTable1.Post;
end;
procedure TForm1.Button2Click(Sender: TObject);
var Stream: TStream;
begin
ADOTable1.Open; ADOTable1.Last; Stream := ADOTable1.CreateBlobStream(ADOTable1.FieldByName('photo'), bmRead); jpg.LoadFromStream(Stream); Stream.Destroy; Image2.Picture.Assign(jpg);
end;