Bischen umgewandelt, sollte der Code von
hier auch intressant sein.
@lbccaleb Post#12:
Vielen Dank für den Link zu
http://www.swissdelphicenter.ch/torr...de.php?id=1896 !
Dort ist aber leider mindestens ein Fehler drin
Alt:
Delphi-Quellcode:
function LoadJPEGPictureFile(Bitmap: TBitmap; FilePath, FileName: string): Boolean;
var
JPEGImage: TJPEGImage;
begin
if (FileName = '') then // No FileName so nothing
Result := False //to load - return False...
...
Neu:
Delphi-Quellcode:
function LoadJPEGPictureFile(Bitmap: TBitmap; FilePath, FileName: string): Boolean;
var
JPEGImage: TJPEGImage;
begin
Result := True; // <= wurde "vergessen" ;-)
if (FileName = '') then // No FileName so nothing
Result := False //to load - return False...
...
Nachwievor liefert aber die
function JPEGDimensions(Filename : string; var X, Y : Word) : boolean;
bei mir falsche x- und y-Werte ab
=====
Sehr nett ist, wenn man bei
Delphi-Quellcode:
procedure ResizeImage(FileName: string; MaxWidth: Integer);
var
OldBitmap: TBitmap;
NewBitmap: TBitmap;
aWidth: Integer;
begin
OldBitmap := TBitmap.Create;
try
if LoadJPEGPictureFile(OldBitmap, ExtractFilePath(FileName),
ExtractFileName(FileName)) then
begin
aWidth := OldBitmap.Width;
if (OldBitmap.Width > MaxWidth) then
das
if (OldBitmap.Width > MaxWidth) then
durch
if (OldBitmap.Width <> MaxWidth) then
ersetzt.
Dann Vergrößert die Prozedur sogar recht brauchbar
LG
vergessen
Edit möchte wissen, wie man nachträglich Delphi-Tags setzt. Die Mods können es ja schließlich auch...
Edit2 hat versucht, nachträglich Delphi-Tags zu setzen
Dank an Bummi & f.kerber.
Dachte, das ginge einfacher (Markieren und irgendwo draufklicken) ;-(