Posts by Joe76

Joe76 · Jul 17th 2014

Entschuldige, das ich mich jetzt erst melde. Der Urlaub ist vorbei und so fordert der Job wieder seinen Tribut. Also nicht wundern wenn ich mich auch mal länger nicht melde, ich bleibe dran.

Zurück zum Thema. Du hast geschrieben, das Adobe die Daten in einer Eigenen DB speichert. Wäre das nicht der bessere Weg, die Daten gleich aus der Datenbank zu holen, ohne den Umweg über IPTC?

Bei Picasa wäre es über den Weg möglich.

Joe76 · Jun 22nd 2014

Kannst du mir mal bitte verraten, wie du die Personen-Information in die Bilder bekommen hast?
Ist das eine Einstellung in Pi* oder machst du das als extra Schritt?

Joe76 · Jun 20th 2014

Daraus können wir was machen. Wenn ich die Zeit finde, schau ich mir das Thema am Wochenende mal an.

Joe76 · Jun 20th 2014

Das sieht schon mal ganz gut.
Pack mal bitte die folgende Zeile in eine Batch-Datei (im gleichen Order muss auch das exiftool liegen)

Code

exiftool.exe "%1" -Keywords -lensid -w %%d%%f.lens

Die Ausgabe, wenn du jetzt ein Bild per D&D auf die Batch-Datei drauf ziehst, würde mir hier weiterhelfen.

Joe

Joe76 · Jun 18th 2014

Das sollte kein Problem sein. Die Attribute hab ich nur verwendet, da das Namensfeld für die Objektivkennung zu klein ist (Zeichenanzahl).

Wenn ich das richtig lese, willst du die Namen der Personen aus einer xmp auslesen?

LG Joe

Joe76 · Jun 12th 2014

Hallo erst mal,
bisher habe ich hier nur gelesen, aber heute möchte ich meinen Einstand als "Schreiber" geben.

Das Thema mit der automatischen Objektivzuordnung kommt ja immer wieder mal hoch. Mit dieser Aktion ist das Problem nun Vergangenheit:

Code

function PerformAction(Images: TICollection): Boolean;
var
i: integer;
image: TIImage;
imagecounter: integer;
k: integer;
lens: TIHardware;
lensColl: TStringList;
lenscounter: integer;
lensfile: string;
li: integer;
line: String;
lines: TStringList;
params: string;
pause: Integer;
query: TIQuery;
mustwait: Boolean;
begin
// Installation von Exiftool prüfen
if (not FileExists ('exiftool.exe')) then
begin
Message('Bitte die Datei "exiftool.exe" in das IMABASE Programmverzeichnis kopieren!');
Result := false;
exit;
end;
// Objektivdaten auslesen und in "*.lens" Datei ablegen
mustwait := false;
ProgressWindow(Images.count);
ProgressWindowText('Starte Generierung der Lens-Files');
try
For i := 0 to Images.count-1 do
begin
image := TIImage(Images[i]);
lensfile := ReplaceExtension(image.FileName,'.lens');
if (not FileExists (lensfile)) then
begin
params := '-w %d%f.lens -lensid ' + image.FileName;
System_Execute('exiftool.exe',params);
mustwait := true;
end;
ProgressWindowStep;
if (ProgressWindowCancelled) then
begin
result := False;
exit;
end ;
end;
except
ProgressWindowHide;
Message ('Fehler beim Auslesen der Objektive!');
Result := false;
exit;
end;
ProgressWindowHide;
// Objektivliste einlesen
query := TIQuery.Create;
query.SQL := 'SELECT hardware.ukey, attrobjdata.attrdata FROM ';
query.SQL := query.SQL + 'attrgroups RIGHT OUTER JOIN hardware LEFT OUTER JOIN ';
query.SQL := query.SQL + 'attributes RIGHT OUTER JOIN attrobjgroups LEFT OUTER JOIN ';
query.SQL := query.SQL + 'attrgrpattr LEFT OUTER JOIN attrobjdata ON ';
query.SQL := query.SQL + 'attrgrpattr.attribute = attrobjdata.attribute ON ';
query.SQL := query.SQL + 'attrobjgroups.attrgroup = attrgrpattr.attrgroup ';
query.SQL := query.SQL + 'AND attrobjgroups.ukey = attrobjdata.objgroup ON ';
query.SQL := query.SQL + 'attributes.ukey = attrgrpattr.attribute ON ';
query.SQL := query.SQL + 'hardware.ukey = attrobjgroups.objekt LEFT OUTER JOIN ';
query.SQL := query.SQL + 'hardwaretypen ON hardware.hardwaretyp = hardwaretypen.ukey ';
query.SQL := query.SQL + 'ON attrgroups.ukey = attrgrpattr.attrgroup ';
query.SQL := query.SQL + 'WHERE (hardwaretypen.predefinedtyp = 3) AND ';
query.SQL := query.SQL + '(attrgroups.caption = ''Exif'') AND ';
query.SQL := query.SQL + '(attributes.caption = ''Objektivbezeichnung'') ';
query.SQL := query.SQL + 'AND (attrgroups.enabled = ''1'')';
lensColl := TStringList.Create;
try
query.open;
if (query.Count=0) then
begin
Message('Es wurden keine Objektive gefunden!');
Result := false;
exit;
end;
while (not query.Eof) do
begin
lensColl.Add('"' + query.AsString['attrdata'] + '"=' + query.AsString['ukey']);
query.next;
end;
except
Message ('Fehler beim Auslesen der Objektive!');
Result := false;
exit;
end;
if (query.Active)then query.Close;
query.Free;
// 10 Sekunden warten um dem Exiftool das Dateierstekkung zu ermöglich
if (mustwait) then
begin
pause := StrToInt(Time2ImabasTime(Now +0.00012));
ProgressWindow(10);
ProgressWindowText('Generiere Lens-Files');
i := StrToInt(Time2ImabasTime(Now));
while ((i < pause) and not ProgressWindowCancelled) do
begin
k := StrToInt(Time2ImabasTime(Now));
if (k - i > 1) then
begin
ProgressWindowStep;
i := StrToInt(Time2ImabasTime(Now));
end;
end;
ProgressWindowHide;
end;
// Objektive den Bildern zuordnen
ProgressWindow(Images.count);
ProgressWindowText('Lese Lens-Files');
imagecounter := 0;
lenscounter := 0;
For i := 0 to Images.count-1 do
begin
image := TIImage(Images[i]);
lensfile := ReplaceExtension(image.FileName,'.lens');
lines := TStringList.Create;
lens := TIHardware.Create;
if (FileExists(lensfile)) then
begin
try
if (ProgressWindowCancelled) then
begin
result := False;
exit;
end;
lines.LoadFromFile(lensfile);
for li := 0 to lines.Count-1 do
begin
line := Trim(lines[li]);
if (line <> '' ) then
begin
line := trim(MiddleString(line,pos(':',line) + 1,length(line) - pos(':',line)));
if (lens.Load(lensColl.Values[''' +line + '''])) then
begin
image.AddHardware(lens);
lenscounter := lenscounter + 1;
end;
end;
end;
except
ProgressWindowHide;
Message ('Fehler beim Zuordnen der Objektive!');
Result := false;
exit;
end;
end;
imagecounter := imagecounter + 1;
ProgressWindowStep;
end;
Message('Es wurden von ' + IntToStr(images.count) + ' Bildern ' + IntToStr(imagecounter) + ' Bilder bearbeitet und ' + IntToStr(lenscounter) + ' Zuordnungen angelegt.');
ProgressWindowHide;
lensColl.Free;
Result := True;
end;

Display More

Einstiegspunkt: "Liste mit Bildern"

Voraussetzungen:

Schreibberechtigungen in den Bilderordnern- Die Exiftool.exe liegt im Imabas-Programmverzeichnis
Anlegen einer Attributgrupppe "Exif" (siehe Anhang)
Anlegen eines Attributes "Objektivbezeichnung" in der Gruppe "Exif" (siehe Anhang)
Die genaue Objektivbezeichnung (laut exiftool) muss bei den Objektiven als Attribut hinterlegt sein.

Getestet hab ich das Ganze bisher nur an .NEF Dateien.
Jetzt hoffe ich mal, das ich nichts vergessen habe und keine groben Fehler im Script sind. Mein letztes mal mit Delphi ist schon mindesten 15 Jahre her. Also bitte nicht hauen.
Benutzung auf eigene Gefahr

LG Joe

PS: Meine Datenbank läuft auf einem SQL-Server

Posts by Joe76

Automatische Objektivzuordnung

Automatische Objektivzuordnung

Automatische Objektivzuordnung

Automatische Objektivzuordnung

Automatische Objektivzuordnung

Automatische Objektivzuordnung