Ich wollte nur dem TE darauf aufmersam machen, daß es schon eine quasi Prüfung gibt.
Wenn es erst mal so läuft bei ihm kann er eine Funktion
Delphi-Quellcode:
type TPicTypes =(ptUnknown, ptBitmap, ptJPEG, ptPNG,....)
...
function GetTpyeOfImage(Stream: TMemoryStream): TPicTypes;
machen.
...und dann in einem Case das ganze abhändeln.
Lass ihn aber erst einmal das bisher verstehen.
