Programme und Listings zu "Ertappt!", c't 19/99 S. 128
======================================================

VB-Skripte fr Videoberwachung im Eigenbau
-------------------------------------------

Aufpasser.vbs 
LosJetzt.vbs

Mssen vor der Ausfhrung wie im Artikel beschrieben an die verwendete
Kamera angepasst werden!

SCAN.OCX
--------

bentigt: VB5 runtimes

Control aktivieren:

Im Startmen Ausfhren whlen und dann:
\windows\system\regsvr32.exe Pfadname\SCAN.OCX

Einbinden im Skript:

set control = CreateObject("tobtools.scan")


Folgende Methoden stehen zur Verfgung:

.Init(ordner, templ)
ordner:	Ordner, in dem die Bilder gespeichert werden sollen
templ:  Max. 4 Zeichen lange Schablone fr den automat. generierten Dateinamen

.ShowSelection()
ruft Auswahldialog fr TWAIN-Scannerquelle auf

.ShowPreferences()
ruft Auswahldialog fr weitere Einstellungen auf

.ScanPic
liest von der TWAIN-Quelle ein Bild und speichert es mit automatisch
generiertem Dateinamen ab

result = .GetTwoPics(ordner, bild1, bild2)
result:	Anzahl der BMP-Bilder im Ordner ordner
bild1:	liefert den Pfad des jngsten Bildes
bild2: 	liefert den Pfad des zweitjngsten Bildes

result = .SavePic(bild, zielordner, dateiname)
Speichert bild als neues Bild im Zielordner unter dateiname

result = .KillPic(bild)
lscht das Bild

Eigenschaften:

.ShowDialog (true/false)
legt fest, ob beim TWAIN-Lesen ein Scan-Dialogfenster erscheint



Icompare
--------

Das im Artikel beschriebene Programm Icompare vergleicht zwei Bilder.
Der Quellcode besteht aus den folgenden Dateien:

Colormap.c
Colormap.h
DIB.H
Dib.c
PALETTE.C
PALETTE.H
icompare.c
icompare.h

Die Routinen in dib.c, colormap.c und palette.c sind aus den
Beispielen von Microsoft entnommen und nicht veraendert worden. Der
Inhalt von icompare.c stammt von Axel Eschenburg.

Icompare laedt WIndows Bitmaps (DIB und BMP format) und konvertiert
diese in 24-Bit-Bitmaps. Damit koennen bei dem eigentlichen
Bildvergleich saemtliche Paletteneinstellungen ignoriert werden. Die
abgespeicherten Differenzbilder sind immer 24 bit, wobei die drei
Kanle immer gleiche Werte besitzen.


Komandozeilenoptionen:


icompare -1:<Bild1> -2:<Bild2> [-d:<Differenzbild>] 
        [-b:<Filterbreite] [-m:mode]

  <Bild1> und <Bild2> sind die Dateinamen der zu vergleichenden Bilder
  Als <Differenzbild> wird das gefilterte Differenzbild abgelegt
  <Filterbreite> gibt die Breite des Unschaerfefilters an.
  <mode> gibt an, wann der Unschrfefilter eingesetzt wird. Default ist
  Mode = 1, Der Filter wird auf die Originalbilder angewandt, bei mode = 2
  wird der Filter auf das Differenzbild angewandt.
  
  - Die Filterbreite muss ungerade sein und zwischen 1 und 15 liegen.
  - Filterbreite und Differenzbild sind optionale Parameter.
  - Die Endung .BMP kann weggelassen werden, sie wird automatisch angehaengt.