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...