(امید)
چهارشنبه 20 خرداد 1383, 23:11 عصر
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 روی فرم قرار دهید
آنچه خواهیم داشت :
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;
موفق باشید
با کمک این 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 روی فرم قرار دهید
آنچه خواهیم داشت :
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;
موفق باشید