JPG der Höhe 1 anzeigen?

[blackfin]

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
Du kannst das natürlich auch "sauber" anpassen

grüssle,

Fin