db img

mam taki kod ktory ma wczytac do bazy grafike:
[delphi]
if OpenPictureDialog1.Execute then begin
dm.Table1.Edit;
DBImage1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
Label30.Visible:=true;
end;
...
dm.post
[/delphi]

lecz jpg nie chce wczytywac - tylko bmp choc mam w usues jpeg i komponent DBimg ma mozliwosc niby wczytywania jpgow

Mi poradzili kiedys zebym sciagnal poprawke do Delphi ale to nie pomoglo, dopiero jak skasowalem D7 i wgrałem D6 to problem minał :-D

kurcze to nie dobrze....
moze ktos zna jakies inne obejscie obejscie??

Nie rozumiem, u mnie na D7 dziala bez zadnych poprawek.

Moze:

var
  JPG: TJPGImage;
begin
  JPG := TJPGImage.Create;
  if OpenPictureDialog1.Execute then begin
       dm.Table1.Edit;
       JPG.LoadFromFile(OpenPictureDialog1.Filename);
       DBImage1.Picture.Bitmap.Assign(JPG);
       JPG.Free;
       Label30.Visible:=true;
  end;
end;

Moze:

var
  JPG: TJPGImage;
begin
  JPG := TJPGImage.Create;
  if OpenPictureDialog1.Execute then begin
       dm.Table1.Edit;
       JPG.LoadFromFile(OpenPictureDialog1.Filename);
       DBImage1.Picture.Bitmap.Assign(JPG);
       JPG.Free;
       Label30.Visible:=true;
  end;
end;

ja tu widze drobna niepoprawnosc bo jesli ktos nie wybierze obrazka to JPG nie jest zwalniany...

to nie problem - sprawdze - dzieki na razie

ok tylko trzeba dac JPEG a nie jpg