Zurück   PixAndMore - Support Forum > Programmierung > Skripte

Antwort
 
Themen-Optionen Ansicht
  #1  
Alt 15.02.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 Benutzerabfrage von Bildern mit Brennweite

Aktionstyp: Direkt

Code:
function PerformAction: Boolean;
var
   image: TIImage; qry: TIQuery; dlg: TIDialog; brennweite: Integer;
begin
   Result := True;

   dlg := TIDialog.Create('Brennweite (1-999) angeben');
   try
      brennweite := 50;
      dlg.AddIntegerControl('Brennweite', 1, 999, brennweite);

      if ( not dlg.Execute ) then
         Exit;

   finally
      dlg.Free;
   end;

   qry := TIQuery.Create;
   Browser_BeginUpdate;
   try
      qry.SQL := Format(
         'select * from bilder where brennweite = %d',
         [brennweite]
      );
      qry.Open;
      while ( not qry.Eof ) do begin
         image := TIImage.Create;

         //-- Langsam: select ukey from bilder... --//
         //image.Load(qry.AsString['ukey']);

         //-- Schnell --//
         image.Initialise(qry);

         Browser_AddImage(image);
         image.Free;
         
         qry.Next;
      end;
   finally
      Browser_EndUpdate;
      qry.Free;
   end;
end;
__________________
Mit freundlichen Grüßen
Kai Brendel
http://www.pixandmore.com
Mit Zitat antworten
  #2  
Alt 16.02.2009
Ondrasch
Gast
Beiträge: n/a
Standard AW: Benutzerabfrage von Bildern mit Brennweite

Was heißt "Direkt"? Wie ist das Ding ausführbar?
Danke.
Mit Zitat antworten
  #3  
Alt 16.02.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: Benutzerabfrage von Bildern mit Brennweite

Zitat:
Zitat von Ondrasch Beitrag anzeigen
Was heißt "Direkt"? Wie ist das Ding ausführbar?
Danke.
Im Explorer gibt es einen Reiter Aktionen, da taucht das Dingen dann auf...
__________________
Mit freundlichen Grüßen
Kai Brendel
http://www.pixandmore.com
Mit Zitat antworten
  #4  
Alt 12.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 AW: Benutzerabfrage von Bildern mit Brennweite

Erste Fingerübung "Aktionen": Auf Abfrage von-bis erweitert

Code:
function PerformAction: Boolean;
var
   image: TIImage; qry: TIQuery; dlg: TIDialog;
   brennweiteVon,brennweiteBis: Integer;
begin
   Result := True;

   dlg := TIDialog.Create('Brennweite von-bis (1-999) angeben');
   try
      brennweiteVon := 50;
      brennweiteBis := 50;
      dlg.AddIntegerControl('Brennweite von', 1, 999, brennweiteVon);
      dlg.AddIntegerControl('Brennweite bis', 1, 999, brennweiteBis);

      if ( not dlg.Execute ) then
         Exit;

   finally
      dlg.Free;
   end;

   qry := TIQuery.Create;
   Browser_BeginUpdate;
   try
      qry.SQL := Format(
         'select * from bilder where brennweite >= %d and brennweite <= %d',
         [brennweiteVon,brennweiteBis]
      );
      qry.Open;
      while ( not qry.Eof ) do begin
         image := TIImage.Create;

         //-- Langsam: select ukey from bilder... --//
         //image.Load(qry.AsString['ukey']);

         //-- Schnell --//
         image.Initialise(qry);

         Browser_AddImage(image);
         image.Free;

         qry.Next;
      end;
   finally
      Browser_EndUpdate;
      qry.Free;
   end;
end;
Kai: Wenns was zu meckern gibt, bitte einfach loslegen!
__________________
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
Brennweite! matzundfritz Imabas Allgemein 1 21.08.2008 22:30
Bilder nach Brennweite Kai Benutzerabfragen 3 12.03.2008 11:19
Benutzerabfrage geht nicht mehr Elli SQL in Imabas 2 17.12.2007 22:45
Benutzerabfrage in der Recherche ergibt Fehler Rothe Bugreports 1 10.10.2006 12:20


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