1. مهمان گرامی، جهت ارسال پست، دانلود و سایر امکانات ویژه کاربران عضو، ثبت نام کنید.
    بستن اطلاعیه

مقاله - استفاده از اسکنر

شروع موضوع توسط hector2141 ‏11/9/12 در انجمن Delphi

  1. کاربر ارشد

    تاریخ عضویت:
    ‏6/9/12
    ارسال ها:
    14,323
    تشکر شده:
    2,698
    امتیاز دستاورد:
    0
    حرفه:
    daneshjo
    ActiveX Kodak image Scan Contorol
    با کمک این ActiveX به سادگی می توان از اسکنر در برنامه استفاده کرد.
    برای Add کردن این ActiveX ابتدا باید فایل IMGSCAN.OCX را Add کنید. برای این منظور به Component->Import ActiveX رفته و دکمه Add را بزنید و فایل IMGSCAN.OCX را از C:\WINDOWS\SYSTEM انتخاب کنید .
    ( فایل مورد نظر را Attach کرده ام )
    حالا از Listbox مربوطه activeX Kodak image Scan Contorol را انتخاب و دکمه install را بزنید.

    خوب حالا در برگه activeX کامپوننت ImgScan1 را مشاهده خواهید کرد .
    کد زیر نمونه ایی ساده از بکارگیری اسکن می باشد.
    یک SavePictureDialog1 Button Image و در نهایت ImgScan روی فرم قرار دهید
    آنچه خواهیم داشت :
    [TABLE]
    [TR]
    [TD="class: gutter"]1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    [/TD]
    [TD="class: code"]procedure TForm1.Button1Click(Sender: TObject);
    var filename:string;
    begin
    if imgScan1.ScannerAvailable then
    begin
    imgScan1.OpenScanner;
    imgScan1.Zoom := 100;
    savepicturedialog1.Execute ;
    filename:=savepicturedialog1.FileName;
    imgScan1.Image := filename;

    imgScan1.StartScan;
    Application.ProcessMessages;
    image1.Picture.LoadFromFile(filename+'.'+'bmp' );

    end;
    end;

    [/TD]
    [/TR]
    [/TABLE]


     
  2. عضو جدید

    تاریخ عضویت:
    ‏13/2/15
    ارسال ها:
    1
    تشکر شده:
    0
    امتیاز دستاورد:
    1
    جنسیت:
    مرد
    فایل رو از کجا دانلود کنیم؟