Eigenschaften von Bildern ausgeben

[BM_90]

Moin!
Ich hab folgendes Problem: Mit meinem Programm kann ich mehrere Bilder öffnen, die denn neben einander angeordnet werden. Ich möchte die Bilder gerne per Mausklick "auswählen", also markieren können. Von dem markierten Bild sollen dann die Eigenschaften (Auflösung, Name, Pfad, Größe,...) in TLabels angezeigt werden. Leider habe ich aber keinen Schimmer, wie das geht.

Vielen Dank schonmal im Vorraus...

[vlees91]

Wie zeigst du die Bilder an?
mehrere TImage Komponenten?

[BM_90]

Ja genau, ich lasse für jedes Bild eine TImage Komponente erstellen...

[vlees91]

Dann kannst du ja ein Array machen pro geladenes Bild mit darin Dateiname und so und dann wenn man auf Image1 klickt die Daten auf Platz 1 im Array, bei image2 die 2. usw

[BM_90]

Super Idee, davon hab ich sogar in Info schonmal was gehört, aber da ist nicht genug hängen geblieben, dass ich jetz wüsste, wie ich das mache...

[vlees91]

Delphi-Quellcode:

type
  TBildInfos = record;  //was ist eigentlich der unterschied zwischen diesem und packed?
    Name, Ort: string;
    Abmessungen: TPoint; //missbrauch davon machen, dass man so zwei integers in einem hat.
  end;
...
var
  Bilder: array of TBildInfos;
begin
  //beim bilder laden direkt das array ausbreiten und die Infos abspeichern
end;

[DeddyH]

Zitat:

Zitat von vlees91

Delphi-Quellcode:

TBildInfos = record;  //was ist eigentlich der unterschied zwischen diesem und packed?

Zitat:

Zitat von Delphi-Hilfe

Per Voreinstellung sind die Werte in einem strukturierten Typ in einem Word- oder Double-Word-Raster ausgerichtet, um den Zugriff zu beschleunigen. Wenn Sie einen strukturierten Typ deklarieren, können Sie das reservierte Wort packed einfügen, um die Daten in komprimierter Form zu speichern:

Delphi-Quellcode:

type TNumbers = packed array[1..100] of Real;

Die Verwendung von packed verlangsamt den Zugriff auf die Daten. Im Falle eines Zeichen-Arrays beeinflusst packed auch die Kompatibilität der Typen. Weitere Informationen finden Sie unter Speicherverwaltung.

[BM_90]

Zitat:

Zitat von DeddyH

Zitat:

Zitat von vlees91

Delphi-Quellcode:

TBildInfos = record;  //was ist eigentlich der unterschied zwischen diesem und packed?

Zitat:

Zitat von Delphi-Hilfe

Per Voreinstellung sind die Werte in einem strukturierten Typ in einem Word- oder Double-Word-Raster ausgerichtet, um den Zugriff zu beschleunigen. Wenn Sie einen strukturierten Typ deklarieren, können Sie das reservierte Wort packed einfügen, um die Daten in komprimierter Form zu speichern:

Delphi-Quellcode:

type TNumbers = packed array[1..100] of Real;

Die Verwendung von packed verlangsamt den Zugriff auf die Daten. Im Falle eines Zeichen-Arrays beeinflusst packed auch die Kompatibilität der Typen. Weitere Informationen finden Sie unter Speicherverwaltung.

Haut irgendwie nicht richtig hin...

[DeddyH]

Wenn Du hinter dem Wörtchen record mal das Semikolon weglässt...

[BM_90]

Nix. Sagt immernoch das Selbe...

[DeddyH]

Nicht in die Eigenschaften der Klasse schreiben, sondern vorher unter type definieren und eine Variable dieses Typs in die Klasse :!:

[scrat1979]

Zitat:

Zitat von BM_90

Moin!
Ich hab folgendes Problem: Mit meinem Programm kann ich mehrere Bilder öffnen, die denn neben einander angeordnet werden. Ich möchte die Bilder gerne per Mausklick "auswählen", also markieren können. Von dem markierten Bild sollen dann die Eigenschaften (Auflösung, Name, Pfad, Größe,...) in TLabels angezeigt werden. Leider habe ich aber keinen Schimmer, wie das geht.

Vielen Dank schonmal im Vorraus...

Wie ich soooo oft hier im Forum schreibe: Schau Dir die ImageEn-Komponenten von HiComponents an. Die können das und andere mächtige Bildbearbeitungsfunktionen (z.B. auch Thumbnailanzeige, -generierung, EXIF-Datenanzeige etc.)... Kostenlos für den privaten Gebrauch, 60€ (imho) für den kommerziellen Einsatz. Und nein, ich bekommen keine Provision von denen :-)

Schau Sie Dir einfach mal an, damit kommst Du mit Sicherheit sehr schnell und einfach an das Ziel. Massig(!) Beispielprogramme mit Source sind dabei...

Schönen Abend noch...

[BM_90]

Das mit der Komponennte hat auch nicht funktioniert...
Außer, dass mein Delphi jetzt bei jedem Start meckert, es könne irgendwelche Module nicht laden...

[mimi]

Wenn alle Bilder in einer TImage liegen musst du nur noch einfach,
allen Image Komponenten einem gemeinsamen onKlick event geben. das wars
dort kansnt du viele Eigenschaften Abfragen. wie halt auflösung und breite und soweiter.

[Blackheart]

http://www.delphi-forum.de/viewtopic...187&highlight=

[BM_90]

Zitat:

Zitat von mimi

Wenn alle Bilder in einer TImage liegen musst du nur noch einfach,
allen Image Komponenten einem gemeinsamen onKlick event geben. das wars
dort kansnt du viele Eigenschaften Abfragen. wie halt auflösung und breite und soweiter.

Ich will ja nicht die Auflösung des Bildes in dem TImage ändern. Das betreffe ja dann nur die Darstellung. Ich will aber die Auflösung der Originaldatei ändern...

[mimi]

Zitat:

Ich will aber die Auflösung der Originaldatei ändern

Was meinst du damit ?
Wenn du ein Bild in das Image lädst kannst du über die Eigenschaften Wi... und Hei... die Größe des Bildes erfahren...
oder meinst du ob es 32 oder 16 BIT ist ? das geht mit PixeFormat.... meine ich.

[BM_90]

Zitat:

Zitat von mimi

Zitat:

Ich will aber die Auflösung der Originaldatei ändern

Was meinst du damit ?
Wenn du ein Bild in das Image lädst kannst du über die Eigenschaften Wi... und Hei... die Größe des Bildes erfahren...
oder meinst du ob es 32 oder 16 BIT ist ? das geht mit PixeFormat.... meine ich.

Aaaalso: Nehmen wir mal an, ich habe ein Bild im Format 1920*1200. Ich öffne das Bild in meinem Programm und will dann die Auflösung so ändern, sodass ich, wenn ich das Bild speichere, eine Datei hab, deren Auflösung zum Beispiel 300*500 ist.
Wenn ich das mit Higth und Width im TImage ändere ändert sich nur die Größe der Darstellung, aber wenn ich es speichere, hat mein Bild immernoch die Originalauflösung.

[Muetze1]

Na dann ändere doch einfach die Auflösung des Bildes und nicht der Komponente, also TImage.Picture.Width und entsprechend TImage.Picture.Height ...

[BM_90]

Zitat:

Zitat von Muetze1

Na dann ändere doch einfach die Auflösung des Bildes und nicht der Komponente, also TImage.Picture.Width und entsprechend TImage.Picture.Height ...

Das Habe ich versucht, hatt aber nicht funktioniert...

[mimi]

Es gibt noch eine Möglichkeit. Drücke mal bei Str.... STRG+Leertaste ob du da was findest...
Ich weiß nie genau wie das geschrieben wird.
Str...Blt

[BM_90]

Ich hab zur zeit kein Delphi drauf... Musste meinen PC neu aufspielen.

[mimi]

Such mal nach StretchBlt. Das dürfte für dich genau das richtige sein.

[BM_90]

Zitat:

Zitat von mimi

Such mal nach StretchBlt. Das dürfte für dich genau das richtige sein.

Danke!

[BM_90]

Zitat:

Zitat von Muetze1

Na dann ändere doch einfach die Auflösung des Bildes und nicht der Komponente, also TImage.Picture.Width und entsprechend TImage.Picture.Height ...

Ich hab das nochmal ausprobiert... Hatte einen Fehler drin.
Habe jetzt nur das Problem, dass man die Größe von JPGs nicht ändern kann. Also lasse ich per ButtonClick das Bild als BMP soeichern un wieder einlesen. Das funktioniert soweit. Nur habe ich jetz das problem, dass nachdem ich die Größe verändert habe, ich nur noch ein leeres Bild habe...

Mein Code sieht so aus:

Delphi-Quellcode:

procedure ... ;
begin
image1.picture.graphic.savetofile('C:\...\tmp.bmp');
image1.picture.graphic.loadfromfile('C:\..\tmp.bmp');
image1.picture.bitmap.height:=strtoint(edit3.text);
image1.picture.bitmap.width:=strtoint(edit4.text);
image1.proportional:=true;
image1.stretch:=true;
image1.picture.graphic.savetofile('C:\...\tmp.bmp');
end;

Weiß jemand warum das nicht funktioniert??

[mimi]

Zitat:

image1.proportional:=true;
image1.stretch:=true;

Das solltest du als erstes setzten. Aber warum das Bild Leer ist, weiß ich auch nicht.

Warum machst du das nicht mit "StretchBlt" ?

Einfach ein TBitMap Intern erstellen mit der gewünschten Größe bild rein Kopieren. Dabei wird es dann vergrößert Automatisch.

die Jpeg Unit hasst du aber ein gebunden oder ?