Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scanner Problems
Message
 
 
À
11/07/2001 10:01:54
Alec Dearden
Peterborough Hospitals Nhs Trust
Peterborough, Royaume Uni
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Divers
Thread ID:
00528510
Message ID:
00530590
Vues:
21
Alec,

Here's a code fragment that is pulled from a working form.
with this.parent.oleScanner
   if ( at( '.', this.parent.mcFileName ) = 0 )
      with this.parent
         .mcFileName = .mcFileName + ".tif"
      endwith
   endif

   .Image = this.parent.mcFileName

   local i, liScan

   this.parent.SetStatus( "Select scanner" )
   i = .ShowSelectScanner()
   this.parent.SetStatus( "Opening scanner" )
   i = .OpenScanner()
   this.parent.SetStatus( "Starting the scan" )
   liScan = .StartScan()
   this.parent.SetStatus( "Closing scanner" )
   i = .CloseScanner()
   if ( liScan > 0 )
      this.parent.SetStatus( "Problem with scanner" )
   else
      this.parent.SetStatus( "Done scanning" )

      * update the displays

      with this.parent.oleEdit
         .Image = this.parent.mcFileName
         .Display()
      endwith

      with this.parent.oleThumb
         .Image = this.parent.mcFileName
         .DisplayThumbs()
         .ThumbSelected[this.parent.oleEdit.Page] = .t.
      endwith
      this.parent.ButtonEnable()
   endif

endwith
>Sorry I did have that in the file name (should have been xxx.tif) but that does not cure the problem.
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform