Zurück   PixAndMore - Support Forum > Programmierung > Skripte

Antwort
 
Themen-Optionen Ansicht
  #1  
Alt 28.09.2009
Benutzerbild von feuster
feuster feuster ist offline
Troll
Registriert seit: 12.2003
Ort: München
Beiträge: 299
feuster befindet sich auf einem aufstrebenden Ast
Standard Bilder einer Person, die auch in einem Export sind

Da ich das gerade gebraucht habe, hier mein Versuch zu dem Thema. Bitte anmeckern, wenn was nicht ordentlich aufgeräumt o.ä. wird

Frage: Nachschauen, ob ein Bild in einem Export ist könnte ich mir gut als Standard-Unterfunktion vorstellen, die man auf verschiedenen Suchergebnisse loslassen kann. Wie kann man denn sowas am Besten bauen?

Code:
function PerformAction(ObjectKey: String): Boolean;
var
   person: TIPerson;
   sql: String;
   queryPic: TIQuery;
   queryGal: TIQuery;
   imageI: TIImage;
begin
   Result := True;

   person := TIPerson.Create;
   try
      if ( not person.Load(ObjectKey) ) then begin
         Message('Person nicht gefunden!');
         Result := False;
         Exit;
      end;
      
      sql := 'SELECT b.* FROM bilder b ';
      sql := sql + 'JOIN bildpersonen bp ON b.ukey = bp.bild AND bp.person = ''' + person.Key + '''';

      queryPic := TIQuery.Create;
      queryPic.SQL := sql;
      Browser_BeginUpdate;
      try
         queryPic.Open;
         while ( not queryPic.Eof ) do begin
            imageI := TIImage.Create;
            imageI.Initialise(queryPic);
            
            {suche nach bildern in einem export: GALLERYIMAGES.SOURCE enthält den UKEY des bildes}
            sql := 'SELECT gi.* FROM galleryimages gi where gi.source = ''' + imageI.Key + '''';
            queryGal := TIQuery.Create;
            queryGal.SQL := sql;
            
            queryGal.Open;
            try
               queryGal.Open;
               if (queryGal.Count > 0) then begin
                  Browser_AddImage(imageI);
               end;
            finally
               queryGal.Free;
            end;

            imageI.Free;
            queryPic.Next;
         end;
      finally
         Browser_EndUpdate;
         queryPic.Free;
      end;
   finally
      person.Free;
   end;
end;
__________________
Thomas

bilder.feuster.com
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
Position des eine Objekts, einer Person, ... im Bild Andre Neue Features in Imabas 8 20.05.2008 15:30
Felder beim anlegen einer neuen Person bernd! Imabas Allgemein 1 11.07.2007 09:54
Idee gebraucht: Zuordnung einer Person, die nicht auf dem Bild ist... Dennis Imabas Allgemein 16 09.06.2007 19:51
Löschen von Bildern aus einem Export-Ordner gunter Imabas Allgemein 1 19.07.2004 09:04


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