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.

• Abrir Visual Studio.NET y pues abrir la aplicación
• Abrir en el diseñador de formas el forma de la aplicación, donde hay que inserter el objeto VintaSoftTwain
• Abrir el panel "Toolbox"
• Apretar el botón derecho del ratón al panel "Toolbox"
• Elegir el punto "Add/Remove Items..." del menú aparecido
• Abrir el señal "COM Components"
• Apretar el botón "Browse..." y elegir el fichero vstwain.dll
• Encontrar y destacar la clase VintaSoftTwain en la lista
• Cerrar la ventana apretando el botón "Ok"
• Encontrar y elegir el objeto VintaSoftTwain al panel "Toolbox"
• Transferir con ayuda del raton el objeto uno a la forma del anexo

  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

• Ponga el cursor del ratón al punto "References" y apreje el botón derecho del ratón
• Elija el punto "Add reference" del menú aparecido
• Abra el señal "COM"
• Encuentre y elija la clase "OLE Automation" de la lista
• Cerrar la ventana apretando el botón "Ok"

  // En el código del ejemplo::
  <OBJECT ID="VSTwain1" WIDTH=1 HEIGHT=1
          CLASSID="CLSID:1169E0CD-9E76-11D7-B1D8-FB63945DE96D"
          CODEBASE="">
  </OBJECT>

  // Debe ser en su código:
  <OBJECT ID="VSTwain1" WIDTH=1 HEIGHT=1
          CLASSID="CLSID:1169E0CD-9E76-11D7-B1D8-FB63945DE96D"
          CODEBASE="http://www.your-server.com/activex/vstwain.dll#version=4,0,0,3">
  </OBJECT>

  if VSTwain1.SetHttpServerParams("http://www.your-server.com/clsUploadTest.asp",
                 "http://www.your-server.com/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.com/cgi/upload.cgi",
                 "http://www.your-server.com/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   ' El Segundo dispositivo
  VSTwain1.Acquire()

  Private Sub StartScan()
      VSTwain1.StartDevice()
      If VSTwain1.SelectSource() = 1 Then
          VSTwain1.OpenDataSource()
          VSTwain1.pixelType = 0	  ' 0 - BW images, 1 - gray images , 2 - RGB images
          VSTwain1.Acquire()
      End If
  End Sub

  ' Este ejemplo muestra como recibir los tipos de las imagenes soportadas por el dispositivo
  VSTwain1.StartDevice()
  VSTwain1.OpenDataSource()
  bSupportBW = 0
  VSTwain1.pixelType = 0          ' las imagenes en negro y blanco (1 bit por pixel)
  if VSTwain1.errorCode = 0 then  ' las imagenes en negro y blanco soportadas por el dispositivo
    bSupportBW = 1
  end if
  bSupportGray = 0
  VSTwain1.pixelType = 1          ' laslas imagenes grises (8 bit por pixel)
  if VSTwain1.errorCode = 0 then  ' las imagenes grises soportadas por el dispositivo
    bSupportGray = 1
  end if
  bSupportRGB = 0
  VSTwain1.pixelType = 2           ' RGB (24 bit por pixel)
  if VSTwain1.errorCode = 0 then   ' las imagenes en color (RGB) soportadas por el dispositivo
    bSupportRGB = 1
  end if
  ...................

  Private Sub StartScan()
      VSTwain1.StartDevice()
      If VSTwain1.SelectSource() = 1 Then         ' Si el usuario ha elegido el dispositivo
          VSTwain1.showUI = False                 ' Desconectar el interface del usuario
          VSTwain1.disableAfterAcquire = True
          VSTwain1.maxImages = 1
          VSTwain1.autoCleanBuffer = True
          VSTwain1.tiffMultiPage = True           ' Crear el fichero TIFF de multi páginas
          VSTwain1.tiffCompression = 10  ' Determinar automáticamente el algoritmo de la compresión
          If VSTwain1.OpenDataSource() = 1 Then
              VSTwain1.unitOfMeasure = 0          ' Las pulgadas como unidad de medida principal
              VSTwain1.pixelType = 0              ' escanear las imagenes en negro y blanco
              VSTwain1.resolution = 200           ' resolución - 200 dpi
              If VSTwain1.feederPresent = 1 Then
                  VSTwain1.feederEnabled = True
                  If VSTwain1.duplex <> 0 Then
                      VSTwain1.duplexEnabled = True   ' Permitir dúplex
                  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
          If VStwain1.SaveImage(VSTwain1.NumImages-1,"c:\test.tiff") = 0 Then
            MsgBox VSTwain1.errorString
          End If
          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) = "Your device name" 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	' inhabilitar indicador window
  VSTwain1.Acquire

  VSTwain1.StartDevice()
  VSTwain1.showUI = False
  VSTwain1.OpenDataSource()
  .............
  VSTwain1.unitOfMeasure = 0                 ' pulgadas
  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   ' pulgadas
  VSTwain1.capability = 4376   ' ICAP_XRESOLUTION (0x1118)
  VSTwain1.capType = 1         ' un valor
  VSTwain1.capValue = 4800     ' 4800 dpi
  VSTwain1.SetCap
  VSTwain1.capability = 4377   ' ICAP_YRESOLUTION (0x1119)
  VSTwain1.capType = 1         ' un valor
  VSTwain1.capValue = 9600     ' 9600 dpi
  VSTwain1.SetCap
  VSTwain1.Acquire

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

  Dim documentsCounter as Integer

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

  Private Sub StartScan()
      VSTwain1.StartDevice()
      If VSTwain1.SelectSource() = 1 Then         ' la elección del dispositivo
          VSTwain1.showUI = False                 ' la desconexión del interface del usuario
          VSTwain1.disableAfterAcquire = True
          VSTwain1.maxImages = 1
          VSTwain1.autoCleanBuffer = True
          VSTwain1.tiffMultiPage = True           ' multi paginas TIFF fichero
          VSTwain1.tiffCompression = 10     ' detección automática de las mejores algoritmo de compresión
          If VSTwain1.OpenDataSource() = 1 Then
              VSTwain1.unitOfMeasure = 0          ' pulgadas
              VSTwain1.pixelType = 0              ' la imagen en negro y blanco
              VSTwain1.resolution = 200           ' 200 dpi
              If VSTwain1.duplex <> 0 Then
                  VSTwain1.duplexEnabled = True   ' permitir dúplex
              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

  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 - Detectar y incluir separador de puestos de trabajo y continuar la escaneo.
    ' 3 - Detectar y excluir de separación de puestos de trabajo y continuar la escaneo.
    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
  .....

  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

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 ' a new record?
                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();    
     }		
  }