eine Möglichkeit aus einem TMemoryStream herauszufinden welcher Dateityp?

[shebang]

Zitat:

Zitat von himitsu (Beitrag 1532034)

Hier in der DP sollte sich auch irgendwo eine Funktion verstecken, welche die MagicBytes für die bekanntesten Imageformate prüft. (so weit ich mich erinnern können glaube).

An der hast du sogar selbt mitgebastelt. ;-)

https://www.delphipraxis.net/213636-...-erkennen.html

[TurboMagic]

Zitat:

Zitat von himitsu (Beitrag 1532028)

Und leider kann man den Scheißdreck nicht selbst benutzen, da der Mist wieder mal nur in der Implementation versteckt ist.

DU weisst ja, was du tun solltest, sobald QP wieder verfügbar ist ;-)

[himitsu]

Hab ich schonmal mehrmals versucht ... da wird sich extrem kräftig gegen gewehrt.
Also jetzt noch nicht explizit hierfür, aber andere Dinge, welche sich ständig immer nur in der Implementation verstecken.

OK, bei Einem soll es ja nun endlich geklappt haben ... muß nur noch irgendwann mal nachsehn was und wie die es gelöst haben. (denn im Ticket wird ja nicht geantwortet, wo man das nun finden kann, wenn das Ticket geschlossen wurde)

[TurboMagic]

Naja, manchmal wird dagegen gewehrt und manchmal wird's eingesehen.
Geht halt immer um den Detailfall und wenn man ein gutes Beispiel liefern
kann wozu's gut ist, steigen die Chancen es zu bekommen doch erheblich!

[dstein]

Zitat:

Zitat von himitsu (Beitrag 1532028)

Ist beim Stream nicht anders.

Stream.Position := 0;
und Stream.Read bzw. Stream.BlockRead

Danke für den Tipp, funktioniert:

function TForm1.GetStreamGraphTyp(PictureData: TMemoryStream): String;
var
Buffer: Word;
begin
{ Buffer:
GIF = 18759
PNG = 20617
JPG = 55551
BMP = 19778
ICO = 0 }

PictureData.Position := 0;
PictureData.Read(Buffer, 2);

CodeSite.Send(' Buffer: ', Buffer);
case Buffer of
18759:
Result := 'GIF';
20617:
Result := 'PNG';
55551:
Result := 'JPG';
19778:
Result := 'BMP';
0:
Result := 'Unbekannt';
end;
CodeSite.Send(' Result: ', Result);
end;

[himitsu]

[DELPHI] ... [/DELPHI] um deine Codes ... PS: das ist der Knopf mit dem Delphi-Helm :zwinker:

Nicht

Delphi-Quellcode:

0:

, sondern

Delphi-Quellcode:

else

.
Bei einer XML oder INI steht Result sonst auf einem Zufallswert. (ja, es ist "zufall", dass Result hier so aussieht, als sei mit '' initialisiert, was aber nicht immer so sein muß)

Ist der Stream nur 0 oder 1 Byte groß, dann stehen Zufallswerte in der Buffer-Variable.
Entweder diese Variable vorher mit einem festen Wert initialisieren (z.B. 0 oder $FFFF)
oder die Rückgabe des Read auswerten, also z.B.

Delphi-Quellcode:

if PictureData.Read(Buffer, 2) <> 2 then Fehler;

oder die selbstprüfende Funktion

Delphi-Quellcode:

PictureData.ReadBuffer(Buffer, 2);

nutzen (wirft eine Exception, wenn nicht vollständig gelesen werden konnte)

[TurboMagic]

Ich stelle mir auch immer noch die Frage, warum er das nicht die TGraphics Klasse von Delphi selber ermitteln
lässt, die das ja heutzutage beherrscht...

Die könnte dann auch automatisch alle sonst noch in seinem Delphi registrierten Formate...

Grüße
TurboMagic

[himitsu]

https://www.delphipraxis.net/1532028-post6.html