Hmmm irgendwie flackert das Bild jetzt aber... Ist das bei dir nicht so?
btw: Das mit den anonymen Methoden kannte ich noch nicht, das finde ich echt nett
edit: das Flackern liegt am "proportional = true"
außerdem:
Delphi-Quellcode:
procedure TMJPEGClient.Execute;
...
JPEGStream := TStream.Create;
...
JPEGStream.Position := 0;
...
end;
Das erzeugt unter XE4 einen Fehler.
Der setter von Position ruft intern Seek auf. Und dort steht:
Zitat:
No existing TStream classes should call this method, since it was originally abstract.
Daher:
Delphi-Quellcode:
procedure TMJPEGClient.Execute;
...
JPEGStream := TMemoryStream.Create;
...
end;