Einzelnen Beitrag anzeigen

Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.049 Beiträge
 
Delphi 2009 Professional
 
#7

AW: JPEG Image in Stream schreiben

  Alt 1. Jul 2018, 20:52
Kinners, ihr labert um den heißen Brei herum und niemand beantwortet seine Frage.

TJPEGImage.SaveToStream nimmt als Parameter einen Delphi-Referenz durchsuchenSystem.Classes.TStream.
Du versuchst einen CompressionStreamUnit.TMemoryStream da reinzupacken, der von CompressionStreamUnit.TStream erbt. Das klappt natürlich nicht, da diese Klassen nichts, aber auch absolut gar nichts miteinander zu tun haben, außer dass es irgendwer lustig fand, denselben Namen für völlig verschiedene Klassen zu nehmen.

Wer auch immer diese Unit geschrieben hat, hat 1. nicht verstanden, was Unterstützende Klassen sind und 2. wie man Klassen vernünftig benennt. Kleiner Tipp: Klassen mit den Namen zu versehen, mit denen völlig andere Klassen schon existieren, ist nicht klug. Eventuell kann man CompressionStreamUnit.TStream von System.Classes.TStream erben, aber das fliegt einem wahrscheinlich um die Ohren. Noch ein Tipp: Es gibt nur einen einzigen Algorithmus, der JPEG überhaupt komprimieren kann, und der heißt Lepton.
Janni
2005 PE, 2009 PA, XE2 PA

Geändert von Redeemer ( 1. Jul 2018 um 20:57 Uhr)
  Mit Zitat antworten Zitat