AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Pixelgröße einer Bilddatei ermitteln

Pixelgröße einer Bilddatei ermitteln

Ein Thema von -NIP- · begonnen am 10. Apr 2005 · letzter Beitrag vom 10. Apr 2005
Antwort Antwort
Benutzerbild von -NIP-
-NIP-

Registriert seit: 6. Jun 2004
Ort: Aachen
254 Beiträge
 
Delphi 7 Personal
 
#1

Pixelgröße einer Bilddatei ermitteln

  Alt 10. Apr 2005, 19:28
Hi!

Wie kann ich herausfinden wie die Höhe und die Breite einer Bilddatei sind ohne
Autosize vom TImage zu benutzen, weil ich das auf ein OffScreenBitmap zeichnen möchte?

Danke schon mal!
-NIP-
Christian
  Mit Zitat antworten Zitat
Benutzerbild von Airblader
Airblader

Registriert seit: 29. Okt 2004
Ort: Geislingen an der Steige
742 Beiträge
 
#2

Re: Pixelgröße einer Bilddatei ermitteln

  Alt 10. Apr 2005, 19:37
Du meinst nicht zufällig

Delphi-Quellcode:
Image.Picture.Bitmap.Width
Image.Picture.Bitmap.Height


air
Ingo Bürk
Es nimmt der Augenblick, was Jahre geben.

Johann Wolfgang von Goethe
  Mit Zitat antworten Zitat
Benutzerbild von -NIP-
-NIP-

Registriert seit: 6. Jun 2004
Ort: Aachen
254 Beiträge
 
Delphi 7 Personal
 
#3

Re: Pixelgröße einer Bilddatei ermitteln

  Alt 10. Apr 2005, 19:47
Nein, ich möchte die Pixelgröße von einer abgespeicherten Bilddatei haben,
um dann ein OffScreenBitmap auf diese Maße zu setzen. Dann möchte ich
die Bilddatei in dieses OffScreenBitmap laden.
Weis jemand wie das geht?

-NIP-

edit: Also ich meine, ob jemand weis wie dieses Bildgröße Ermitteln geht.
Christian
  Mit Zitat antworten Zitat
Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#4

Re: Pixelgröße einer Bilddatei ermitteln

  Alt 10. Apr 2005, 21:12
Hallo,

mit dem Code geht es:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  fileheader: TBitmapfileheader;
  infoheader: TBitmapinfoheader;
  s: TFilestream;
  aFile : String;
begin
  aFile := 'C:\Benutzer\Orchidee.bmp';
  s := TFileStream.Create(aFile, fmOpenRead);
  try
    s.Read(fileheader, SizeOf(fileheader));
    //Nach dem filehaeder beginnt der infoheader
    s.Read(infoheader, SizeOf(infoheader));

    Form1.Label1.Caption := 'Width: '
                            + FormatFloat('#,##0'
                            ,StrToFloat(IntToStr(infoheader.biWidth)));
    if infoheader.biHeight >=0 then
      Form1.Label2.Caption := 'Height: '
                              + FormatFloat('#,##0'
                              ,StrToFloat(IntToStr(infoheader.biHeight)))
      else
        Form1.Label2.Caption := 'Height: '
                                + FormatFloat('#,##0'
                                ,StrToFloat(IntToStr(infoheader.biHeight)))
                                +' (Top-down-DIB)';

  finally
    s.Free;
  end;
end;
Am besten erstellste Du dafür eine Function.
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 10:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz