JPEG Bilder anzeigen

// die Header-Datei jpeg.hpp muss eingebunden sein
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // JPEG-Bild laden
    TJPEGImage *JPEGImage = new TJPEGImage;
    JPEGImage->LoadFromFile("test.jpg");

    // JPEG-Bild mit einem TImage verknüpfen
    Image1->Width = JPEGImage->Width;
    Image1->Height = JPEGImage->Height;
    Image1->Picture->Assign(JPEGImage);

    delete JPEGImage;
}

Schreibe einen Kommentar