Ich nehme an, du willst das 1px-JPeg in ein TImage laden, richtig?
Wenn es dir nichts ausmacht, eine
DLL einzubinden, kannst du dafür die
Graphics32 Library nehmen, mit der Erweiterung
pqGR32_JPEG (runterscrollen, es ist dort in der Third Party Liste)
Das letztere ist ein Wrapper für die Intel JPEG library (ijl15.dll, ist bei pqGR32_JPEG dabei), und um einiges flotter als das Zeug in der JPEG.dcu von Delphi.
In ein TImage könntest du dann das 1px JPEg folgendermaßen bringen (getestet, funktioniert bei mir):
Delphi-Quellcode:
uses
....GR32,pqGR32_JPEG ;
procedure LoadJpegToImage();
var
FBMP32: TBitmap32;
begin
FBMP32 := TBitmap32.Create() ; // "Hilfs-Bitmap32" erzeugen
LoadJPEGFromFile(FBMP32,ApplicationPath+'1pxtest.jpg'); // 1 Pixel JPEG laden
Image1.Picture.Bitmap.Assign(FBMP32); // Der TImage Komponente zuweisen
FreeAndNil(FBMP32); // Hilfs-BMP wieder freigeben
end;
Hinweis:
In der pqGR32_JPEG.pas habe ich noch als "Schnellschuss" die EFOpenError durch
Exception ersetzt, damit sichs kompilieren lässt
![Very Happy](images/smilies/icon_biggrin.gif)
Du kannst das natürlich auch "sauber" anpassen
grüssle,
Fin