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.

• Запустить Visual Studio.NET и открыть приложение
• Открыть в дизайнере форм форму приложения на которой необходимо разместить объект VintaSoftTwain
• Открыть панель компонентов (Toolbox pane)
• Нажать правую кнопку мыши на панели компонентов
• Выбрать пункт "Add/Remove Items..." из появившего меню
• Открыть закладку "COM Components"
• Нажать кнопку "Browse..." и выбрать файл VSTwain.dll
• Найти и выделить класс VintaSoftTwain в списке
• Закрыть окно нажав кнопку "OK"
• Найти и выбрать объект VintaSoftTwain в панели компонентов
• Переместить с помощью мыши объект VintaSoftTwain на форму приожения

  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

• Наведите курсор мыши на пункт "References" и нажмите правую кнопку
• Выберите пункт "Add reference" из появившего меню
• Откройте закладку "COM"
• Найдите и выберите класс "OLE Automation" из списка
• Закройте окно нажав кнопку "OK"

  // В коде примера:
  <OBJECT ID="VSTwain1" WIDTH=1 HEIGHT=1
          CLASSID="CLSID:1169E0CD-9E76-11D7-B1D8-FB63945DE96D"
          CODEBASE="">
  </OBJECT>

  // Должно быть в Вашем коде:
  <OBJECT ID="VSTwain1" WIDTH=1 HEIGHT=1
          CLASSID="CLSID:1169E0CD-9E76-11D7-B1D8-FB63945DE96D"
          CODEBASE="http://www.your-server.ru/activex/vstwain.dll#version=4,0,0,3">
  </OBJECT>

  If VSTwain1.SetHttpServerParams("http://www.your-server.ru/clsUploadTest.asp",
                 "http://www.your-server.ru/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.ru/cgi/upload.cgi",
                 "http://www.your-server.ru/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   ' второе устройство
  VSTwain1.Acquire()

  Private Sub StartScan()
      VSTwain1.StartDevice()
      If VSTwain1.SelectSource() = 1 Then
          VSTwain1.OpenDataSource()
          VSTwain1.pixelType = 0       ' Тип изображений: 0-ч/б, 1-серые, 2-RGB
          VSTwain1.Acquire()
      End If
  End Sub

  ' Этот пример показывает как получить типы изображений поддерживаемых устройством
  VSTwain1.StartDevice()
  VSTwain1.OpenDataSource()
  bSupportBW = 0
  VSTwain1.pixelType = 0           ' черно-белые изображения (1 бит на пиксел)
  If VSTwain1.errorCode = 0 Then   ' черно-белые изображения поддерживаются устройством
    bSupportBW = 1
  End If
  bSupportGray = 0
  VSTwain1.pixelType = 1           ' серые изображения (8 бит на пиксел)
  If VSTwain1.errorCode = 0 Then   ' серые изображения поддерживаются устройством
    bSupportGray = 1
  End If
  bSupportRGB = 0
  VSTwain1.pixelType = 2           ' RGB (24 бита на пиксел)
  If VSTwain1.errorCode = 0 Then   ' цветные (RGB) изображения поддерживаются устройством
    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   ' создавать много страничный TIFF файл
          VSTwain1.tiffCompression = 10   ' автоматически определять лучший алг.сжатия
          If VSTwain1.OpenDataSource() = 1 Then
              VSTwain1.unitOfMeasure = 0  ' дюймы как основная един.измерений
              VSTwain1.pixelType = 0      ' сканировать черно-белые изображения
              VSTwain1.resolution = 200   ' разрешение - 200 dpi
              If VSTwain1.feederPresent = 1 Then
                  VSTwain1.feederEnabled = True
                  If VSTwain1.duplex <> 0 Then
                      VSTwain1.duplexEnabled = True
                  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) = "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
  VSTwain1.Acquire

  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   ' дюймы
  VSTwain1.capability = 4376   ' ICAP_XRESOLUTION (0x1118)
  VSTwain1.capType = 1
  VSTwain1.capValue = 4800     ' 4800 dpi
  VSTwain1.SetCap
  VSTwain1.capability = 4377   ' ICAP_YRESOLUTION (0x1119)
  VSTwain1.capType = 1
  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 ' выбор устройства
          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.duplex <> 0 Then
                  VSTwain1.duplexEnabled = True
              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
          If VSTwain1.IsBlankImage(0) = 1 Then
            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 - 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
  .....

  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 ' новая запись?
                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();    
     }		
  }