Delphi: kako ubaciti .jpg u DBImage?

[Hardcore]

Standardno prihvata samo .bmp... :trust:

 

[voodoo_]

trebalo bi da je ovako (u uses treba da dodas jpeg unit):

var
   jpeg: TJPEGImage;
   fs: TFileStream;
begin
   jpeg := TJPEGImage.Create;
   fs := TFileStream.Create('slika.jpg', fmOpenRead);
   jpeg.LoadFromStream(fs);
   jpeg.Assign(DBImage.bitmap);       <-- za ovo nisam siguran, ali uglavnom treba da ga dodelis 'bitmap' propertiju tog objekta ili kako vec
   jpeg.Free;
   fs.Free;
end;

 

[dogriz]

Prost primer:

uses
  JPEG;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

Znači, dovoljna ti je samo uses JPEG kaluzula i to ti je to.

 

[voodoo_]

Jel si siguran? Ja mislim da nece direktno...

 

[dogriz]

Primer sam prvo probao, pa ga tek onda postovao. I sve radi OK.
Sad sam proverio još jednom i radi, čak i bez povezivanja DBImage-a sa nekom bazom. To je u D7, u starijim verzijama nisam probao

 

[srdjan_r]

trebalo bi da je ovako (u uses treba da dodas jpeg unit):

var
   jpeg: TJPEGImage;
   fs: TFileStream;
begin
   jpeg := TJPEGImage.Create;
   fs := TFileStream.Create('slika.jpg', fmOpenRead);
   jpeg.LoadFromStream(fs);
   jpeg.Assign(DBImage.bitmap);       <-- za ovo nisam siguran, ali uglavnom treba da ga dodelis 'bitmap' propertiju tog objekta ili kako vec
   jpeg.Free;
   fs.Free;
end;

Izvinjavam se što se tek sada ubacujem, ali mislim da ne bi bilo loše ubaciti i ovo :
"JPGImage.CompressionQuality := nekiInteger;"

Poenta jpega je upravo da se kompresijom smanji fajl. :S:
NekiInteger bi trebao da bude broj između 1 i 100. Valjda.

 

[voodoo_]

To se koristi samo kad hoces da snimis JPEG u fajl...