beliebige Programmiersprachen, die sich auf HTML stützen.


 
Welche Beschränkungen hat die unregistrierte Version der Komponente?
Unregistrierte Version hat die folgenden Beschränkungen:

WS2_32.DLL

Installieren Sie bitte das "Visual C++ run time files" auf Computer an, um dieses Problem zu lösen. Dieses Einstellungspaket kann von dieser Verbindung gedownloadet werden: http://download.microsoft.com/download/vc60pro/update/1/w9xnt4/en-us/vc6redistsetup_enu.exe

 

Ich habe das Programm in Delphi entwickelt. Das Programm arbeitet richtig, wenn Benutzer als Verwalter geloggt wird, aber wenn Benutzer während Gast geloggt wird, er folgende Anzeige beim Anfang des Programms "Exception EOleSysError in module..." erhaltet. Wie kann ich dieses Problem lösen?
Zuerst von allen es ist notwendig, ActiveX im System durch register32.exe Programm zu registrieren. Dieser Betrieb muß gebildet werden mit Verwalterrechten.

Weiter ist notwendig der folgende Code zu deinem Programm hinzuzufügen:

program Simple;

uses
  Forms,
  Windows, Registry, Dialogs,  ActiveX,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

function IsVSTwainRegistered : Boolean;
var Reg:TRegistry;
begin
 Reg:=TRegistry.Create;
 try
  Reg.RootKey:=HKEY_CLASSES_ROOT;
  Result:=Reg.OpenKey('CLSID\{1169E0CD-9E76-11D7-B1D8-FB63945DE96D}',False);
  if Result then Reg.CloseKey;
 finally
  Reg.Free;
 end;
end;

begin
  if not IsVSTwainRegistered() then
    begin
      ShowMessage('VintaSoftTwain ActiveX is not registered!');
      Exit;
    end;
    
  OleInitialize(nil);
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  OleUninitialize;
end.

Dieser Code darf prüfen ob das Programm im System registriert wird und darf dein Programm mit Gastrechten laufen lassen.


 
Wie kann ich das Objekt VintaSoftTwain zu einer Form meines VB.NET-Projektes hinzufügen?
Sie sollen diese Schritte tun, um den VintaSoftTwain Objekt zu Ihrer Form hinzuzufügen:

• Visual Studio.NET mit deinem eigenen Projekt beginnen
• Die Hauptform in der Designansicht öffnen
• Toolboxscheibe öffnen
• Rechte Maus knopf an die Toolboxscheibe klicken
• "Add/Remove Items..." Menüeinzelteil vom popup Menü auswählen
• öffnen COM Components tabelle
• Klicken "Browse..." and VSTwain.dll file auswählen
• Finden und überprüfen VintaSoftTwain component in der Liste
• Fenster mit OK Taste schließen
• Finden und vorwählen VintaSoftTwain im Toolboxscheibe
• VintaSoftTwain auf die Form setzen, indem Sie Steuerviereck vorwählen
  

 

Ich möchte ActiveX in Delphi 2005 und BDS 2006 verwenden, aber ich kann nicht ActiveX zu einer Form hinzufügen. Ich habe eine Fehlermeldung: "Failed to add a reference to the ActiveX type library. Ensure that it is properly registered. ...". Wie kann ich dieses Problem lösen?
Borland Delphi 8.0 (2005) and Borland C# Builder 1.0 haben bug und sie nehmen ActiveX Kontrollen an, nur wenn US Gegende benutzt wird. Andere Gegende hat mann ignoriert.

Hier sind Schritte, die helfen dieses Problem zu lösen:

Die ActiveX Steuerung zur Werkzeug-Palette wieder installieren und ...voila! Es funktioniert.

 

Wie kann ich das VintaSoftTwain Objekt in mein Projekt auf VB dynamisch zu ergänzen?
Sie müssen die nächsten Wirkungen erfüllen:
1. Den Menüpunkt "Project -> References" zu öffnen.
2. Im geöffneten Fenster die Link auf das Objekt "VintaSoftTwain ActiveX Control" zu ergänzen.
3. Weiter muß man den nächsten Code zum Projekt ergänzen:

  Option Explicit
  Dim WithEvents VSTwain1 As VSTWAINLib.VintaSoftTwain

  Private Sub StartScan_Click()
     Set VSTwain1 = New VSTWAINLib.VintaSoftTwain
     With VSTwain1
        .StartDevice
        If .SelectSource = 1 Then
            .showUI = True
            .Acquire
        End If
     End With
  End Sub

  Private Sub VSTwain1_PostScan(ByVal flag As Long)
     If flag <> 0 Then
        If VSTwain1.errorCode <> 0 Then
            MsgBox VSTwain1.errorString
        End If
     Else
        Set Image1.Picture = VSTwain1.GetCurrentImage
        VSTwain1.tiffCompression = 10
        VSTwain1.SaveImage 0, "c:\test.tif"
     End If
  End Sub

 

Ich versuche, VintaSoftTwain ActiveX in Windows 2003 Server zu verwenden, aber ich habe immer Fehler: "Error at loading the TWAIN_32.DLL". Wie kann ich dieses Problem lösen?
Ihre Version von Windows Server 2003 hat bug in der Konfiguration: GetWindowsDirectory Funktion liefert falsche Pfad zu Windows-Verzeichnis "C: \ Dokumente und Einstellungen \ Benutzer \ Windows \" statt "C:\Windows\".
Lesen Sie bitte diesen Artikel, die hilft diese Problem zu lösen: http://support.microsoft.com/kb/832048.

• Rechte Maus knopf an "References" klicken
• "Add reference" Menüeinzelteil vom popup Menü auswählen
• öffnen"COM" Tabelle
• "OLE Automation" Kategorie in der Liste finden und überprüfen
• Fenster mit OK Taste schließen

  // Im Code des Beispiels:
  &ltOBJECT ID="VSTwain1" WIDTH=1 HEIGHT=1
          CLASSID="CLSID:1169E0CD-9E76-11D7-B1D8-FB63945DE96D"
          CODEBASE="">
  </OBJECT>

  // In Ihrem Code soll sein:
  &ltOBJECT ID="VSTwain1" WIDTH=1 HEIGHT=1
          CLASSID="CLSID:1169E0CD-9E76-11D7-B1D8-FB63945DE96D"
          CODEBASE="http://www.your-server.de/activex/vstwain.dll#version=4,0,0,3">
  </OBJECT>

  If VSTwain1.SetHttpServerParams("http://www.your-server.de/clsUploadTest.asp",
                 "http://www.your-server.de/clsUploadTest.asp", 4) = 0 Then
    MsgBox VSTwain1.errorString
  Else
    VSTwain1.SetHttpFormField "Demo", "Demo string"
    VSTwain1.SetHttpFormField "cmdSubmit", "SUBMIT"
    If VSTwain1.SaveImageToHttp(0, "txtFile", "demo.jpg") = 0 Then
        MsgBox VSTwain1.errorString
    Else
        Timer.Interval = 10
    End If
  End If

  If VSTwain1.SetHttpServerParams("http://www.your-server.de/cgi/upload.cgi",
                 "http://www.your-server.de/upload.html", 4) = 0 Then
    MsgBox VSTwain1.errorString
  Else
    VSTwain1.SetHttpFormField "login", "guest"
    VSTwain1.SetHttpFormField "pass", "guest"
    If VSTwain1.SaveImageToHttp(0, "file", "demo.jpg") = 0 Then
        MsgBox VSTwain1.errorString
    Else
        Timer.Interval = 10
    End If
  End If

  VSTwain1.StartDevice()
  VSTwain1.object.sourceIndex = 1   ' second device
  VSTwain1.Acquire()

  Private Sub StartScan()
      VSTwain1.StartDevice()
      If VSTwain1.SelectSource() = 1 Then
          VSTwain1.OpenDataSource()
          VSTwain1.pixelType = 0
          VSTwain1.Acquire()
      End If
  End Sub       

  ' Dieses Beispiel zeigt wie die Typen der Bilder zu bekommen,
  ' die von das Gerät unterstützt werden
  VSTwain1.StartDevice()
  VSTwain1.OpenDataSource()
  bSupportBW = 0
  VSTwain1.pixelType = 0           ' Die Schwarz-weißbilder (1 Bit/Pixel)
  If VSTwain1.errorCode = 0 Then   ' Die Schwarz-weißbilder werden von das Gerät unterstützt
    bSupportBW = 1
  End If
  bSupportGray = 0
  VSTwain1.pixelType = 1           ' Die grauen Bilder (8 Bit/Pixel)
  if VSTwain1.errorCode = 0 Then   ' Die grauen Bilder werden von das Gerät unterstützt
    bSupportGray = 1
  End If
  bSupportRGB = 0
  VSTwain1.pixelType = 2           ' RGB (24 Bit/Pixel)
  If VSTwain1.errorCode = 0 Then   ' Die farbigen Bilder werden von das Gerät unterstützt
    bSupportRGB = 1
  End If
  ...................

  Private Sub StartScan()
      VSTwain1.StartDevice()
      If VSTwain1.SelectSource() = 1 Then
          VSTwain1.showUI = False
          VSTwain1.disableAfterAcquire = True
          VSTwain1.maxImages = 1
          VSTwain1.autoCleanBuffer = True
          VSTwain1.tiffMultiPage = True
          VSTwain1.tiffCompression = 10
          If VSTwain1.OpenDataSource() = 1 Then
              VSTwain1.unitOfMeasure = 0
              VSTwain1.pixelType = 0
              VSTwain1.resolution = 200
              If VSTwain1.feederPresent = 1 Then
                  VSTwain1.feederEnabled = True
                  If VSTwain1.duplex <> 0 Then
                      VSTwain1.duplexEnabled = True   ' enable duplex
                  End If
                  If VSTwain1.feederLoaded = 1 Then
                      VSTwain1.xferCount = -1
                      VSTwain1.autoFeed = True
                      VSTwain1.Acquire()
                  End If
              End If
          End If
      End If
  End Sub

  Private Sub VSTwain1_PostScan(ByVal flag As Long)
      If flag <> 0 Then
          If VSTwain1.errorCode <> 0 Then
              MsgBox VSTwain1.errorString
          End If
      Else
          VStwain1.SaveImage VSTwain1.NumImages-1, "c:\test.tiff"
          If VSTwain1.dataSourceState = 0 Then
              VSTwain1.StopDevice()
              MsgBox "Scan completed."
          End if
      End If
  End Sub

  VSTwain1.StartDevice
  For i = 0 To (VSTwain1.sourcesCount - 1)
     MsgBox VSTwain1.GetSourceProductName(i)
  Next

  VSTwain1.StartDevice
  VSTwain1.sourceIndex = 0
  .....
  VSTwain1.Acquire
                        

  VSTwain1.StartDevice
  For i = 0 To (VSTwain1.sourcesCount - 1)
     If VSTwain1.GetSourceProductName(i) = "Gerätname" Then
       VSTwain1.sourceIndex = i
       Exit For
    End If
  Next
  .....

  VSTwain1.StartDevice
  VSTwain1.showUI = False
  VSTwain1.disableAfterAcquire = True
  VSTwain1.maxImages = 1
  VSTwain1.OpenDataSource
  VSTwain1.showIndicators = 0  ' deaktiviere Fortschrittsanzeige
  VSTwain1.Acquire

 
Ich muß nur den Teil des Bildes einlesen. Wie kann ich es zu tun?
Verwenden Sie den nächsten Code, um den Teil des Bildes zu bekommen, der vom Rechteck (0.2,0.2) - (8.3,10.8) beschränkt ist:

  VSTwain1.StartDevice()
  VSTwain1.showUI = False
  VSTwain1.OpenDataSource()
  .............
  VSTwain1.unitOfMeasure = 0
  VSTwain1.SetImageLayout(0.2,0.2,8.3,10.8)
  VSTwain1.Acquire()

  VSTwain1.StartDevice
  VSTwain1.showUI = False
  VSTwain1.disableAfterAcquire = True
  VSTwain1.maxImages = 1
  VSTwain1.OpenDataSource
  VSTwain1.unitOfMeasure = 0   ' inches
  VSTwain1.capability = 4376   ' ICAP_XRESOLUTION (0x1118)
  VSTwain1.capType = 1         ' one value
  VSTwain1.capValue = 4800     ' 4800 dpi
  VSTwain1.SetCap
  VSTwain1.capability = 4377   ' ICAP_YRESOLUTION (0x1119)
  VSTwain1.capType = 1         ' one value
  VSTwain1.capValue = 9600     ' 9600 dpi
  VSTwain1.SetCap
  VSTwain1.Acquire

  .....
  VSTwain1.OpenDataSource
  VSTwain1.capability = 4368    ' ICAP_ORIENTATION (0x1110)
  If VSTwain1.IsCapSupported Then
    VSTwain1.capType = 1        ' one value
    VSTwain1.capValue = 3       ' Landscape
    VSTwain1.SetCap
  End If
  .....

  Dim documentsCounter as Integer

  ............
  documentsCounter = 0
  ............

  Private Sub StartScan()
      VSTwain1.StartDevice()
      If VSTwain1.SelectSource() = 1 Then         ' user selected the device
          VSTwain1.showUI = False                 ' disable UI
          VSTwain1.disableAfterAcquire = True
          VSTwain1.maxImages = 1
          VSTwain1.autoCleanBuffer = True
          VSTwain1.tiffMultiPage = True           ' multi page TIFF file
          VSTwain1.tiffCompression = 10           ' auto detect of best compression algorithm
          If VSTwain1.OpenDataSource() = 1 Then
              VSTwain1.unitOfMeasure = 0          ' inches
              VSTwain1.pixelType = 0              ' black-white image
              VSTwain1.resolution = 200           ' 200 dpi
              If VSTwain1.duplex <> 0 Then
                  VSTwain1.duplexEnabled = True   ' enable duplex
              End If
              If VSTwain1.feederPresent = 1 Then
                  VSTwain1.xferCount = -1
                  VSTwain1.feederEnabled = True
                  VSTwain1.autoFeed = True
                  If VSTwain1.feederLoaded = 1 Then
                      VSTwain1.Acquire()
                  End If
              End If
          End If
      End If
  End Sub

  Private Sub VSTwain1_PostScan(ByVal flag As Long)
      If flag <> 0 Then
          If VSTwain1.errorCode <> 0 Then
              MsgBox VSTwain1.errorString
          End If
      Else
          Dim currNoiseLevel As Single
          If VSTwain1.IsBlankImage(0,0.01,currNoiseLevel) = 1 Then   ' check the first image (page)
            documentsCounter = documentsCounter + 1
          End If
          If VStwain1.SaveImage(0,"c:\documents\doc"+Str(documentsCounter)+".tiff") = 0 Then
            MsgBox VSTwain1.errorString
          End If
          If VSTwain1.dataSourceState = 0 Then
              VSTwain1.StopDevice()
              MsgBox "Scan completed."
          End if
      End If
  End Sub

 
Kann ich Fleckencodes verwenden, um die Stapelauftrage zu trennen? Wenn ja, wie kann ich das Ende des Stapelauftrag ermitteln?
Sie können batch jobs ermitteln, indem Sie die CAP_JOBCONTROL Fähigkeit verwenden. Hier ist ein Beispiel für Visual Basic:

  Dim jobsCounter As Integer
  
  Private Sub Form_Load()
    jobsCounter = -1
  End Sub
  
  Private Sub Scan_Click()
    VSTwain1.StartDevice
    VSTwain1.maxImages = 1
    VSTwain1.showUI = 0
    VSTwain1.disableAfterAcquire = 1
    VSTwain1.tiffMultiPage = 1
    VSTwain1.OpenDataSource
    ' 1 - Detect and include job separator and continue scanning.
    ' 3 - Detect and exclude job separator and continue scanning.
    VSTwain1.jobControl = 1
    jobsCounter = jobsCounter + 1
    VSTwain1.Acquire
  End Sub
  
  Private Sub VSTwain1_PostScan(ByVal flag As Long)
    If flag <> 0 Then
      If VSTwain1.errorCode <> 0 Then
        MsgBox (VSTwain1.errorString)
      End If
    Else
      If VSTwain1.endOfJob = 1 Then
        jobsCounter = jobsCounter + 1
      Else
        VSTwain1.SaveImage 0, "c:\job"+Str(jobsCounter)+".tif"
      End If
    End If
  End Sub
  .....

 
Ich möchte in meinem Programm warten bis die Seite eingescannt ist, kann aber den PostScan-Event nicht auswerten. Wie kann ich das Problem beheben?
Ab Version 3.0 Sie die AcquireModal Methode für das Lösen dieses Problems verwenden können.

Hier ist ein Beispiel für Visual Basic:

  VSTwain1.appProductName = "MyTwainApplication"
  If VSTwain1.StartDevice() Then
      VSTwain1.SelectSource
      VSTwain1.showUI = True
      While VSTwain1.AcquireModal() = 1
          Set Image1.Picture = VSTwain1.GetCurrentImage()
          If VSTwain1.SaveImage(0, "c:\test.tiff") = 0 Then
              MsgBox (VSTwain1.errorString)
          End If
      Wend
  Else
      MsgBox VSTwain1.errorString
  End If

 
Kann Ich die Bilder mit der 48 Bits Farbtiefe bekommen?
Ja, Sie können die Bilder mit der 48 Bits Farbtiefe bekommen. Diese Bilder können ohne Verlust der Farbtiefe nur in den TIFF-Dateien gespeichert sein.


 
Bei verwendung HP Scanjet Scanner ich habe verloren den Gipfel der Darstellung - 1/2 Zoll. Ich habe zusätzlich auch 1/2 Zoll der schwarzen Ortes in dem Darstellungunterteil. Wie kann ich dieses Problem lösen?
Sie sollten Wert von pageSize Eigenschaft von A4 zu USLETTER wechseln und das wird das Problem lösen.


 
Kann Ich die eingescannte Bilder in die OLE-Feld des Tabelle des MS Access speichern?
Ja. Die eingescannte Bilder können gespeichert sein in die OLE-Feld des Tabelle des MS Access mit Hilfe des GetImageAsDib Methode.
Hier ist ein Beispiel für MS Access ("OrderImage" ist ein OLE-Feld des Tabelle):

Option Compare Database
Option Explicit

Private Sub Form_AfterUpdate()
    On Error GoTo error1
    Image1.PictureData = Me![OrderImage]
    Exit Sub
error1:
    Image1.Picture = ""
End Sub

Private Sub Form_Current()
    On Error GoTo error1
    Image1.PictureData = Me![OrderImage]
    Exit Sub
error1:
    Image1.Picture = ""
End Sub

Private Sub BAcquire_Click()
    With VSTwain1
        .StartDevice
        If .SelectSource = 1 Then
            .autoCleanBuffer = 1
            .maxImages = 1
            .showUI = 1
            .Acquire
        End If
    End With

End Sub

Private Sub VSTwain1_PostScan(ByVal flag As Long)
    If flag <> 0 Then
        If VSTwain1.errorCode <> 0 Then
            MsgBox VSTwain1.errorString
        End If
    Else
        If VSTwain1.numImages > 0 Then
            If IsNull(Me!OrderName) Then
                Me![OrderName] = " "
                Me![OrderName] = "Order N" + Str(Me!Index)
            End If
            
            Me![OrderImage] = VSTwain1.GetImageAsDIB(0)
            If VSTwain1.errorCode <> 0 Then
                MsgBox VSTwain1.errorString
            End If
            Form.Refresh
        End If
    End If
End Sub

  private void SaveToSql_Click(object sender, System.EventArgs e)
  {
     byte[] dib = (byte[]) VSTwain1.GetImageAsDIB(0);
     int imageSize = 14 + dib.Length;
     int imageOffset = 14 + 40;
     int imageBPP = VSTwain1.GetImageBPP(0);
     if (imageBPP == 1) imageOffset += 2*4;
     else if (imageBPP == 8) imageOffset += 256*4;
     
     byte[] image = new byte[imageSize];
     Array.Clear(image,0,imageSize);
   
     // BITMAPFILEHEADER
     image[0] = (byte)'B';
     image[1] = (byte)'M';
     image[2] = (byte)(imageSize&0xFF);
     image[3] = (byte)((imageSize&0xFF00)>>8);
     image[4] = (byte)((imageSize&0xFF0000)>>16);
     image[5] = (byte)((imageSize&0xFF000000)>>24);
     image[10] = (byte)(imageOffset&0xFF);
     image[11] = (byte)((imageOffset&0xFF00)>>8);
     image[12] = (byte)((imageOffset&0xFF0000)>>16);
     image[13] = (byte)((imageOffset&0xFF000000)>>24);
   
     Array.Copy(dib,0,image,14,dib.Length);
     
     // Insert the image into the database
     SqlConnection myConnection = new SqlConnection
				(@"server=(local);database=northwind;uid=sa;pwd=");
     try
     {
        myConnection.Open();
        SqlCommand myCommand = new SqlCommand("DELETE FROM Images WHERE ImageID=1",
							myConnection);
        myCommand.ExecuteNonQuery();
        myCommand = new SqlCommand ("INSERT INTO Images " 
        	+ "(Image, ImageID) VALUES (@Image, @ImageID)", myConnection);
        myCommand.Parameters.Add("@Image", image);
        myCommand.Parameters.Add("@ImageID", 1);
        myCommand.ExecuteNonQuery();
        MessageBox.Show("Image is saved successfully.");
     }
     finally 
     {
        myConnection.Close();
     }		
  }

  private void BGetImageFromSql_Click(object sender, System.EventArgs e)
  {
     SqlConnection myConnection = null;
     try    
     {        
        myConnection = new SqlConnection(@"server=(local);database=northwind;uid=sa;pwd=");
        SqlCommand myCommand = new SqlCommand("SELECT Image FROM Images WHERE ImageID=1",
						myConnection);
        myConnection.Open();                
        
        // Get the image from the database.        
        byte[] imagedata = (byte[])myCommand.ExecuteScalar();        
        if (imagedata != null)        
        {
           if (pictureBox1.Image != null)
           {
              pictureBox1.Image.Dispose();
              pictureBox1.Image = null;
           }
           MemoryStream stream = new MemoryStream(imagedata);
           pictureBox1.Image = new Bitmap(stream);
           MessageBox.Show("Image is loaded successfully.");
        }        
        else        
        {            
           MessageBox.Show("Image does not exist in database.");
        }    
     }    
     finally    
     {        
        myConnection.Close();    
     }		
  }