AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Verwirrung um TImage und den DPI Wert
Thema durchsuchen
Ansicht
Themen-Optionen

Verwirrung um TImage und den DPI Wert

Ein Thema von Athris · begonnen am 18. Okt 2017 · letzter Beitrag vom 10. Apr 2024
Antwort Antwort
Athris

Registriert seit: 18. Nov 2014
28 Beiträge
 
Delphi XE2 Professional
 
#1

AW: Verwirrung um TImage und den DPI Wert

  Alt 19. Okt 2017, 08:26
Also verstehe ich das richtig, dass der unter EIGENSCHAFTEN aufgelistete DPI Wert nur ein Hinweiswert für z.B. eine Applikation oder ein Drucker ist?

Das heißt ich müsste bei der Neuerstellung eines Bildes den Benutzer nach dem gewünschten DPI Wert fragen und diese beim Speichern des Bildes in die Datei reinschreiben?

Grundsätzlich speichere ich meine Bilder zurzeit so:
Delphi-Quellcode:
function SaveImage(vstrImagePath: String; vpntImage: TPicture): boolean;
var
  strDateiendung: string;
  pntBitmap: TBitmap;
  pntJPEGImage: TJPEGImage;
  pntPNGImage: TPngImage;
begin
  Result := False;
  pntBitmap := TBitmap.Create;
  try
    try
      pntBitmap.Assign(vpntImage);
      strDateiendung := UpperCase(ExtractFileExt(vstrImagePath));
      if strDateiendung = '.BMPthen begin
        pntBitmap.SaveToFile(vstrImagePath);
        Result := True
      end
      else if strDateiendung = '.PNGthen begin
        pntPNGImage := TPngImage.Create();
        try
          pntPNGImage.Assign(pntBitmap);
          pntPNGImage.SaveToFile(vstrImagePath);
          Result := True;
        finally
          pntPNGImage.Free;
        end;
      end
      else if (strDateiendung = '.JPG') or (strDateiendung = '.JPEG') then begin
        pntJPEGImage := TJPEGImage.Create();
        try
          pntJPEGImage.Assign(pntBitmap);
          pntJPEGImage.SaveToFile(vstrImagePath);
          Result := True;
        finally
          pntJPEGImage.Free;
        end;
      end;
    except on
      E:Exception do begin
        MessageDlg('Fehler beim Speichern der Grafikdatei '+vstrImagePath+': '+E.Message, mtError, [mbOk], 0);
      end;
    end;
  finally
    pntBitmap.Free;
  end;
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Verwirrung um TImage und den DPI Wert

  Alt 19. Okt 2017, 09:20
Das heißt ich müsste bei der Neuerstellung eines Bildes den Benutzer nach dem gewünschten DPI Wert fragen und diese beim Speichern des Bildes in die Datei reinschreiben?
Ja, so wie das die Programme auch machen (bzw. einen Default-Wert annehmen).
Das hier sollte dich auf die richtige Spur führen:
http://www.delphipraxis.net/913313-post14.html
  Mit Zitat antworten Zitat
Athris

Registriert seit: 18. Nov 2014
28 Beiträge
 
Delphi XE2 Professional
 
#3

AW: Verwirrung um TImage und den DPI Wert

  Alt 19. Okt 2017, 09:48
Grundsätzlich kann ich also beim Speichern meinem Bitmap dieses "Flag" setzen und dann die Datei als .bmp speichern oder auch als .png bzw. .jpg (siehe meine gepostete Funktion)?
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Verwirrung um TImage und den DPI Wert

  Alt 19. Okt 2017, 09:50
Probiere es wie folgt, anstatt der 300.0 musst du natürlich deine gewünschten Werte übergeben:

Delphi-Quellcode:
unit GdiPlus.Save;

interface

uses
  System.SysUtils,
  Winapi.GDIPOBJ,
  Winapi.GDIPUTIL,
  Winapi.GDIPAPI,
  Vcl.Graphics;

function SaveImage(const vstrImagePath: String; const vpntImage: TPicture): Boolean;

implementation

function SaveImage(const vstrImagePath: String; const vpntImage: TPicture): Boolean;
var
  strDateiendung: string;
  pntBitmap: TBitmap;
  Bitmap: TGPBitmap;
  clsidEncoder: TGUID;
  EncoderResult: Integer;

  function GetEncoder(const AFileExt: string; out pClsid: TGUID): Integer;
  begin
    Result := -1;
    if AFileExt = '.BMPthen
    begin
      Result := GetEncoderClsid('image/bmp', pClsid)
    end
    else if AFileExt = '.PNGthen
    begin
      Result := GetEncoderClsid('image/png', pClsid)
    end
    else if (AFileExt = '.JPG') or (AFileExt = '.JPEG') then
    begin
      Result := GetEncoderClsid('image/jpeg', pClsid)
    end;
  end;

begin
  Result := False;
  pntBitmap := TBitmap.Create;
  try
    try
      pntBitmap.Assign(vpntImage);
      Bitmap := TGPBitmap.Create(pntBitmap.Handle, pntBitmap.Palette);
      try
        Bitmap.SetResolution(300.0, 300.0);

        strDateiendung := UpperCase(ExtractFileExt(vstrImagePath));
        EncoderResult := GetEncoder(strDateiendung, clsidEncoder);

        if EncoderResult > 0 then
          Result := Bitmap.Save(vstrImagePath, clsidEncoder) = TStatus.Ok;
      finally
        Bitmap.Free;
      end;
    except
      on E: Exception do
      begin
        raise Exception.Create('Fehler beim Speichern der Grafikdatei ' + vstrImagePath + ': ' + E.ClassName + ': ' + E.Message);
      end;
    end;
  finally
    pntBitmap.Free;
  end;
end;

end.
  Mit Zitat antworten Zitat
Athris

Registriert seit: 18. Nov 2014
28 Beiträge
 
Delphi XE2 Professional
 
#5

AW: Verwirrung um TImage und den DPI Wert

  Alt 19. Okt 2017, 10:03
Ich wusste gar nicht dass man dem Bitmap Save einen Encoder für die Umwandlung mitgeben kann

Wobei GetEncoder() bei .BMP leider Result = 0 liefert.

Muss die Bedingung if EncoderResult > 0 then vielleicht if EncoderResult >= 0 then heißen?

/edit
Und ich habe gerade festgestellt, dass laut Photoshop die DPI Werte etwas "ungerundet" aussehen:
.jpg: 300 dpi --> Richtig
.png: 299,999 dpi
.bmp: 300,125 dpi

Geändert von Athris (19. Okt 2017 um 10:12 Uhr) Grund: Nachtrag
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.079 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Verwirrung um TImage und den DPI Wert

  Alt 19. Okt 2017, 10:18
Ich wusste gar nicht dass man dem Bitmap Save einen Encoder für die Umwandlung mitgeben kann

Wobei GetEncoder() bei .BMP leider Result = 0 liefert.

Muss die Bedingung if EncoderResult > 0 then vielleicht if EncoderResult >= 0 then heißen?
Ja, möglich. Ich habs nur schnell runtergetippt. Bitte entsprechend ändern.
Das ist ein GDI+-Bitmap und hat mit dem TBitmap wenig zu tun. Daher die Möglichkeit des Encoders.
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.312 Beiträge
 
Delphi 12 Athens
 
#7

AW: Verwirrung um TImage und den DPI Wert

  Alt 19. Okt 2017, 11:48
Ein Bild selber hat nur zweidimensionale Pixelinformationen. Die DPI wird immer vom der Tatsächlich gedruckten Größe in Verbindung einer Bitmap bestimmt.

Wenn du ein Bild mit 100 Pixel Kantenlänge so druckst, daß es genau ein INCH breit ist, dann wird das Bild mit 100 DPI gedruckt.
Wird das gleiche Bild zwei INCH breit gedruckt, dann hat es 50 DPI.

Der Drucker kann zwar mehr. Aber die Bildinformation von 100 Pixel lässt ja nicht mehr zu.

Wenn das gleiche Bild mit 0,1 INCH Breite gedruckt wird, dann hat es 1000 DPI.

Es bring also nichts die DPI beim Bild zu speichern. Es kommt immer darauf an in welcher Skalierung es ausgegeben wird.

Zitat:
1. Ich möchte eine Grafik erstellen die beim Ausdruck 5,90x9,10cm groß ist
2. Ich erstelle also in meinem Programm eine Grafik mit den Maßen 697x1075 Pixel. Die Grafik erhält nach der Speicherung laut Windows 96 DPI
5,90 cm = 2,32 inch. Mit 697 Pixeln, wird die Grafik mit (697 / 2,32) 300dpi gedruckt/angezeigt und nicht mit 96dpi.

Windows ist wie meine Frau. Nur weil sie etwas sagt, muss es noch lange nicht stimmen.
(Spaßalarm: Bevor das Macho-basching anfängt. Meine Aussagen stimmen auch nicht immer.)
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
Athris

Registriert seit: 18. Nov 2014
28 Beiträge
 
Delphi XE2 Professional
 
#8

AW: Verwirrung um TImage und den DPI Wert

  Alt 19. Okt 2017, 12:06
Mit >= 0 klappt es, da der Encoder bei .bmp wohl eine 0 zurückliefert.

Bleiben noch die kleinen Differenzen bei .png und .bmp
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:07 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz