Bitmap grafikus fájl betöltése

Top  Previous  Next

BMP        :BMP.LoadFromFile(filenév);

 

JPG        :

 

EGYÉB BITMAP GRAFIKÁK BETÖLTÉSE GRAPHICEX SEGÍTSÉGÉVEL

 

A dolog roppant egyszerű:

 

A Uses felsoroláshoz hozzá kell adni a GraphicEx unitot (Parsze a Delphi Library Path-ba fel kell venni!);
Innentől pl. az OpenPictureDialog filter listájához csupán hozzá kell adni a kívánt tipusokat és;
a grafikus file beolvasása a szokásos módon történik,

 

 

if OpenPictureDialog1.Execute then

   Image1.picture.LoadFromFile(OpenPictureDialog1.filename);

 

Egy bökkenő azért van:

Csak TPicture-be óhajtja betölteni a más formátumú grafikát:
de ezt, egy kis trükkel orvosolhatjuk:

 

procedure TForm1.Button1Click(Sender: TObject);

Var BMP:TPicture;

begin

if OpenPictureDialog1.Execute then begin

   BMP:=TPicture.Create;

   BMP.LoadFromFile(OpenPictureDialog1.filename);

   Image1.picture.LoadFromFile(OpenPictureDialog1.filename);

   BMP.Free;

END;

end;

 

 

vagy:

 

Var

  PIC: TPicture;

 

   If Pos(ext,'*.PNG *.TIF.TIFF.bw.rgb.rgba.sgi.cel.pic.tga.vst.icb.vda.win'+

      '*.pcx, *.pcc, *.scr *.pcd*.ppm, *.pgm, *.pbm *.cut*.gif *.rla, *.rpf'+

      ' *.psd, *.pdd *.psp *.eps' )>0 then

   begin

   Try

      PIC := TPicture.Create;

      PIC.LoadFromFile(FileName);

      OrigBMP.Assign(PIC.Bitmap);

   finally

      PIC.Free;

   end;

   end;