1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

procedure TfrmMain.btnResizeClick(Sender: TObject);
var
  NewWidth, NewHeight : integer;
  OldWidth, OldHeight : integer;
  TempWidth, TempHeight : integer;
  gap : integer;
  percentage : integer;
  Jpeg : TJpegImage;
  path : string;
begin
  try
    try
      NewWidth := seWidth.Value;
      NewHeight := seHeight.Value;
    except
      ShowMessage('Fehler beim Wählen der neuen Größe.');
    end;
    Jpeg := TJpegImage.Create;
    try
      Jpeg.LoadFromFile(FFile);
      OldWidth := Jpeg.Width;
      OldHeight := Jpeg.Height;
    except
      ShowMessage('Fehler beim Laden der Bilddatei.');
    end;
    // Algorithmmus zum Ändern der Auflösung
    while((OldWidth > NewWidth) or (OldHeight > NewHeight)) do
    begin
      // Breite muss geändert werden
      if(OldWidth >= NewWidth) then
      begin
        gap := OldWidth - NewWidth;
        // Prozentsatz der Differenz berechnen
        percentage := (gap * 100) div OldWidth;
        OldWidth := NewWidth;
        // Neue Höhe nach dem Prozentsatz berechnen
        TempHeight := (OldHeight div 100) * percentage;
        OldHeight := OldHeight - TempHeight;
      end;
      // Höhe muss geändert werden
      if(OldHeight >= NewHeight) then
      begin
        gap := OldHeight - NewHeight;
        // Prozentsatz der Differenz berechnen
        percentage := (gap * 100) div OldHeight;
        OldHeight := NewHeight;
        // Neue Breite nach dem Prozentsatz berechnen
        TempWidth := (OldWidth div 100) * percentage;
        OldWidth := OldWidth - TempWidth;
      end;
    end;
    try
      ResizeJpegImage(Jpeg, OldWidth, OldHeight);
    except
      ShowMessage('Fehler beim erstellen des neuen Bilds.');
    end;
    try
      path := ExtractFilePath(FFile) + FDestinationFileName;
      Jpeg.SaveToFile(path);
      ShellExecute(Handle, 'open', PChar(path),nil,nil,SW_SHOWNORMAL);
      ShowMessage('Bild erfolgreich erstellt.');
    except
      ShowMessage('Fehler beim Speichern des neues Bilds.');
    end;
  finally
    Jpeg.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

method BiggestSide.GetDimensions(oldHeight, oldWidth : Integer; out newHeight, newWidth : Integer); 
begin
  var ratio := Double(oldHeight) / Double(oldWidth);
  
  newWidth := oldWidth;
  newHeight := oldHeight;
  
  //Bild kleiner als die Maximalwerte?
  if (oldHeight <= fMaxHeight) and (oldWidth <= fMaxWidth) then
  begin
    if not Fscale then exit; //Sollen zu kleine Bilder nicht hochskaliert werden?
    
    if Math.Abs(oldWidth - fMaxWidth) > Math.Abs(oldHeight - fMaxHeight) then //Welche Seite wird beim Hochskalieren eher "anstoßen"
    begin
      newHeight := fMaxHeight;
      newWidth := (fMaxHeight / ratio).RoundToInt32;      
    end else
    begin
      newWidth := fMaxWidth;
      newHeight := (fMaxWidth * ratio).RoundToInt32;
    end;
  end;
  
  //Erst eine Seite runterrechnen (falls nötig), ...
  if newWidth > fMaxWidth > 0 then
  begin
    newWidth := fMaxWidth;
    newHeight := (fMaxWidth * ratio).RoundToInt32;
  end;

  //... dann die andere, falls das noch nötig ist.
  if newHeight > fMaxHeight > 0 then
  begin
    newHeight := fMaxHeight;
    newWidth := (fMaxHeight / ratio).RoundToInt32;
  end;
end;