Entwickler-Ecke

Multimedia / Grafik - JPEG/BMP


AndreG - So 09.02.03 21:16
Titel: JPEG/BMP
Also, wie kann ich eine *.jpg Datei in mein Prog laden und (am besten) aufeiner Image-Kompnente anzeigen? (Zu Laufzeit) LoadFromFile funktioniert nicht!

Andre


Alfons-G - So 09.02.03 22:38

:wave:
Schau mal in der Hilfe zu TJPEGImage nach.
Du musst die Unit "jpeg" bei "uses" hinzufügen, ein JPEGImage zur Laufzeit erzeugen und dann kannst Du es mit JPEGImage.Picture.LoadFromFile füllen.
In der Hilfe findest Du ein Beispiel dazu.

:)


Anonymous - Mo 10.02.03 01:02

So kann man Jpeg in eine Bitmap laden:


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
uses ..., Jpeg;

procedure Jpg2Bmp(FileName: String; Bmp: TBitmap);
var
  Jpg : TJpegImage;
begin
  Jpg := TJpegImage.Create;
  try
    Jpg.LoadFromFile(FileName);
    Bmp.Assign(Jpg);
  finally Jpg.Free end;
end;


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  ...
  Jpg2Bmp('C:\_Bitmaps\wood1.jpg', Bmp);
  ...
end;


Bei TImage geht aber auch das:


Quelltext
1:
2:
3:
4:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('C:\_Bitmaps\wood1.jpg');
end;


Das aber nicht:


Quelltext
1:
2:
3:
4:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.Bitmap.LoadFromFile('C:\_Bitmaps\wood1.jpg');
end;


AndreG - Mo 10.02.03 16:05

Vielen dank