title image


Smiley So hats aber funktioniert
Hm; in der letzten Zeile habe ich angemerkt dass du es alternativ mit Dateistreams probieren kannst um die Kompression zu übergehen.

Ich habe es gerade versucht und es hat funktioniert:



var teststream, stream2 : TFileStream;

tester:Tjpegimage;

begin

tester := TJpegimage.create;

teststream := TFileStream.Create('H:\test.jpg', fmOpenRead);

tester.LoadFromStream(teststream);

stream2 := TFileStream.Create('H:\test2.jpg', fmOpenWrite);

tester.SaveToStream(stream2);

end;



die 1 Pixel hohe Datei Test.jpg wurde in die Datei test2.jpg kopiert.

Ohne mecker. Nur anzeigen kannst du es seltsamerweise nicht.

Dazu müsstest du dann Punkt für Punkt aus dem Canvas deines JpegImages in

den Canvas von Image1.Picture.Bitmap schreiben.
Gruß
Daff

daff.neyeon-digital.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: