AW: Bit-Tiefe in PNG ermitteln
Kann man auch machen, aber lohnt sich nur, wenn das Create erst irgendwo in der Mitte kommt, bzw. wenn man mehrere Sachen erstellen will.
Wenn es im Create kracht, dann wird der Varible nichts zugewiesen und da es nicht mehr bis zum TRY kommt, ist das Finally auch egal ... also alles OK. Wenn es dort kracht, dann wird bereits im Constructor die Instanz wieder freigegeben ... dort ist quasi ein Try-Except integriert. Zusammenfassen von mehreren Try-Finally/Except (einfaches Beispiel) : Im StringList.Free kann es eigentlich nicht knallen und auch ein TStringList.Create kann "eigentlich" keinen Fehler erzeugen. (außer es ist garkein RAM mehr frei oder der Speichermanager ist kaputt) Eigentlich: Falls doch, dann ist so viel im Argen, dass man eh alles vergessen kann.
Delphi-Quellcode:
oder eben
a := TFileStream.Create('dat.ei'); // hier natürlich das "eine" Schlimme vor dem einen/mehreren Ungefährlichen
b := TStringList.Create; try ... finally b.Free; a.Free; end;
Delphi-Quellcode:
oder
b := nil;
a := TFileStream.Create('dat.ei'); try b := TStringList.Create; ... finally b.Free; a.Free; end;
Delphi-Quellcode:
oder wer ganz auf nummer sicher gehn will
a := nil;
b := nil; try a := TFileStream.Create('dat.ei'); b := TStringList.Create; ... finally b.Free; a.Free; end;
Delphi-Quellcode:
a := TFileStream.Create('dat.ei');
try b := TStringList.Create; try ... finally b.Free; end; finally a.Free; end; |
AW: Bit-Tiefe in PNG ermitteln
Danke himitsu.
|
AW: Bit-Tiefe in PNG ermitteln
Zitat:
|
AW: Bit-Tiefe in PNG ermitteln
|
AW: Bit-Tiefe in PNG ermitteln
Zitat:
Dein Problem oder warum ich nicht geantwortet habe ist! "Linux" Linux und Win32API ? schon recht verwirrend. |
AW: Bit-Tiefe in PNG ermitteln
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
Ich habe ja am Anfang erwähnt, dass es um CrossVCL geht. Alle Windows-Funktionen können natürlich nicht durch RTL-Funktionen ersetzt werden, daher ist in CrossVCL auch vieles aus der Win-API nachgebildet, teilweise recht gut, teilweise unvollständig (wie hier in diesem Falle). So weit ich das jetzt getestet habe, werden folgende Bitmap-Formate unter CrossVCL unterstützt: '*.jpg;*.ico;*.bmp;*.gif;*.tif;*.tiff;*.png' Nur halt heben nicht, wenn Bilder weniger als 24-Bit haben bzw. eine Farbpalette benötigen. Die muss ich jetzt halt erst mal ignorieren und zeige statt des Bildes einen entsprechenden Hinweis an (siehe anlg. Screenshot, die Linux-Version meines Dateimananger-Programms). |
AW: Bit-Tiefe in PNG ermitteln
Zitat:
Du möchtest das Bild anzeigen auch dann wenn es < 24 Bit ist? Dann konvertiere es doch im Speicher und zeige es dann, ein Hinweis nicht Unterstützt ist nicht die eleganteste Methode. Wenn viele WinAPI32 Funktionen implementiert werden\sind dann sicherlich auch CreateDIBSection. Ein Ansatz: https://stackoverflow.com/questions/...bits-correctly und schaue mal hier, kann dir aber nicht sagen ob da etwas relevantes für dich enthalten ist. https://www.delphipraxis.net/1074736-post1.html Wenn alle stricke reißen (bzgl. des HDC) dann würde ich für CrossVCL, wxWidgets empfehlen. |
AW: Bit-Tiefe in PNG ermitteln
Bei Bitmaps ist die Farbtiefe ein Word an Position 28.
Wenn man davon ausgeht, dass entsprechend der PNG-Spezifikation IHDR der erste Chunk ist, steht der Farbmodus dort immer an Position 25, die Iteration aus meinem Code ist somit überflüssig. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:06 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz