Zurück   PixAndMore - Support Forum > Programmierung > Skripte

Antwort
 
Themen-Optionen Ansicht
  #1  
Alt 28.06.2009
Benutzerbild von Kai
Kai Kai ist offline
Imabas-Entwickler
Admin
Obertroll
Registriert seit: 11.2003
Ort: Holzwickede
Beiträge: 2.756
Kai befindet sich auf einem aufstrebenden Ast
Standard Bilder eines Ordners einem Thema zuordnen

Aktionstyp: Objektschlüssel
Objekt: Thema

Mit dieser Aktion kann ein Ordner im Dateisystem gewählt werden und alle Bilder die sich in dem Ordner und in der Datenbank befinden werden dem Thema zugeordnet mit diese Aktion gestartet wurde.

Durch austauschen von TITopic und AddTopic kann diese Routine zum Beispiel auch für Personen verwendet werden.

Code:
function PerformAction(ObjectKey: String): Boolean;
var
   topic: TITopic; dlg: TIDialog; folder, fName: String;
   files: TStringList; i: Integer; qry: TIQuery; image: TIImage;
begin
   Result := True;

   topic := TITopic.Create;
   try
      topic.Load(ObjectKey);
      
      //-- Ordner wählen --//
      dlg := TIDialog.Create('Bilder für ' + topic.Caption);
      try
         dlg.AddFolderControl('Verzeichnis', folder);
         if ( not dlg.Execute ) then
            Exit;
      finally
         dlg.Free;
      end;

      files := GetKnownImages(folder);
      try
         if ( files.Count = 0 ) then begin
            Message('Keine Bilder gefunden!');
            Exit;
         end;

         qry := TIQuery.Create;
         try
            for i := 0 to files.Count-1 do begin
               fName := Lower(files[i]);

               qry.SQL := Format(
                  'select * from bilder where lower(orgnam) = ''%s''',
                  [fName]);
               qry.Open;
               if ( qry.Count = 1 ) then begin
                  image := TIImage.Create;
                  try
                     image.Initialise(qry);
                     image.AddTopic(topic);
                  finally
                     image.Free;
                  end;
               end;
               qry.Close;
            end;
         finally
            qry.Free;
         end;
      finally
         files.Free;
      end;
   finally
      topic.Free;
   end;
end;
__________________
Mit freundlichen Grüßen
Kai Brendel
http://www.pixandmore.com
Mit Zitat antworten
  #2  
Alt 01.07.2009
bernd! bernd! ist offline
Troll
Registriert seit: 08.2004
Beiträge: 364
bernd! ist zur Zeit noch ein unbeschriebenes Blatt
Standard AW: Bilder eines Ordners einem Thema zuordnen

Hallo Kai

Wie bringe ich den diese Aktion zur Ausführung? Ich weiß das ist bestimmt eine dumme Frage

Gruß, Bernd
Mit Zitat antworten
  #3  
Alt 01.07.2009
Benutzerbild von Kai
Kai Kai ist offline
Imabas-Entwickler
Admin
Obertroll
Registriert seit: 11.2003
Ort: Holzwickede
Beiträge: 2.756
Kai befindet sich auf einem aufstrebenden Ast
Standard AW: Bilder eines Ordners einem Thema zuordnen

Hallo Bernd,
in der Datenbank hast du Sie angelegt?
Siehe Datenbank / Administration / Aktionen

Dann das gewünschte Thema im Explorer anklicken und im Kontextmenü den Punkt Aktion ausführen wählen....
__________________
Mit freundlichen Grüßen
Kai Brendel
http://www.pixandmore.com
Mit Zitat antworten
  #4  
Alt 01.07.2009
bernd! bernd! ist offline
Troll
Registriert seit: 08.2004
Beiträge: 364
bernd! ist zur Zeit noch ein unbeschriebenes Blatt
Standard AW: Bilder eines Ordners einem Thema zuordnen

Tut, Super, Danke ...

Ich bin von einer umgekehrten Logik ausgegangen - ich hatte versucht Bildern ein weiteres Thema zuzuordnen. Die Aktion ordnet aber einem Thema Bilder zu - also umgekehrt.
Heute Abend werde ich mal erste "Produktive" Tests durchführen ...

Gruß, Bernd
Mit Zitat antworten
Antwort
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Gehe zu

Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
Pascal Importieren von Bildern eines Ordners Kai Skripte 6 06.01.2010 08:50
Pascal Anzeigen aller Bilder von einem Thema Kai Skripte 1 13.02.2009 11:37
Bildzuordnung zu einem Thema löschen sk001 Imabas Allgemein 4 02.04.2008 15:09
Film einem Volume zuordnen videochris Imabas Allgemein 9 11.04.2005 22:39


Powered by vBulletin® Version 3.7.1 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.