اسکن تصویر در دلفی چگونه است نیاز به component

[hemmat]

اسکن تصویر در دلفی چگونه است نیاز به component

[hemmat]

اسکن تصویر در دلفی چگونه است نیاز به componentچگونه در دلفی تصاویر اسکن می شود کامپوننت آن جیست

[M-Gheibi]

(با اجازه مدیر بخش) ببخشید. این سوالی که شما کردید چه ربطی به اخبار و تازه های دنیای کامپیوتر و برنامه نویسی داشت؟ بهتر این سوال رو در بخش دلفی مطرح کنید تا سریعتر به نتیجه برسید.

[مهدی کرامتی]

تاپیک به بخش دلفی منتقل شد. دقت شود.

[Mahdi_S_T]

دوست عزیز اگه یه جستجو بکنی کامپوننت مورد نظر همراه مثال و توضیحات در سایت موجود
است ( از این بهتر نمیشه ) :P

ActiveX Kodak image Scan Contorol

[A.VAHID]

بچه ها با Kodak میشود اسکن کرد ولی فرمت فایلهای آن Tifو BMP و یا فرمتهای بزرگ است و فرمت JPeg را ندارد و به همین خاطر استفاده از آن کمی مشکل و حجم داده ها نیز زیاد میشود
من میخواهم در یک سیستم اطلاعات مربوط به یک پرونده را اسکن کنم و در آرشیو نگه دارم که این برگه ها شاید یک الی 20 برگه باشد که در حدود حداقل 1200 پرونده نیز میباشد البته سیاه و سفید بودن مهم نیست ولی حتماً میخواهم از Jpeg استفاده کنم که حجمش کم شود
اگر کسی راه حل ساده ای میداند که من سریع به جواب برسم خیلی متشکرم
با تشکر
ع.و

[fahimi]

با سلام
من از کامپونت TMHTwain v1.0 استفاده می کنم

[A.VAHID]

من میتونم این کامپوننت را داشته باشم

[B-Vedadian]

سلام،

کامپوننتKodak Image Scan همراه ویندوز 98 نصب میشه اگه 98 دارید فایلهای OCX مربوطه رو همراه برنامه کپی کنید و ازشون استفاده کنید.

در ضمن نیازی نیست که حتما هرچیزی که اسکن شد با خود کامپوننت تو فایل ذخیره کنید. اول کپی کنیدش به Clipboard بعدش از طریق یونیت JPEGImage به فرمت JPEG ذخیرش کنید. (امکان کپی به کلیپ برد تو کامپوننت مکمل Kodak Image Scan یعنی کامپوننت Kodak Image Edit وجود داره و خیلی ساده میتونید یک Instance از اون رو به Image Scan متصل کنید. یکی از پروپرتیهای Image Scan دقیقا به اسم Image Edit ه کافیه اسم Instance مربوطه رو وارد کنید.)

[A.VAHID]

دوست عزیز از راحتمائیت متشکرم در اولین فرصت از آن استفاده خواهم کرد
ولی یک مشکل دیگر هم دارم - امروز توسط کامپننت باز نمودن تصویر یک فایل تصویری را باز و وارد بانک SQL کردم که نوع فیلد آن هم از نوع Image بود ولی اگر فایلی پسوند BMP داشت راحت ذخیره میشد و نمایش داده میشد ولی اگر پسوندش Jpeg بود ذخیره نمیشد
اگر اطلاعی در این زمینه داشته باشی ممنون میشوم

[پسر خاک]

سلام

قبل از ذخیره کردن تصویر در بانک با استفاده از توابع زیر می توانید آنها را به Jpeg تبدیل کنید و در هنگام بازیابی از بانک مجدد به Bmp تبدیل کنید.


uses

jpeg;


function JpegToBmp(mJPEGImage: TJPEGImage; mBitmap: TBitmap): Boolean;

begin

Result := True;

try

mBitmap.Assign(mJPEGImage);

except

Result := False;

end;

end; { JpegToBmp }

function BmpToJpeg(mBitmap: TBitmap; mJPEGImage: TJPEGImage;

mCompressionQuality: Integer = 75): Boolean;

begin

Result := True;

try

mJPEGImage.Assign(mBitmap);

mJPEGImage.CompressionQuality := mCompressionQuality;

mJPEGImage.Compress;

except

Result := False;

end;

end; { BmpToJpeg }

///////End Source

///////Begin Demo

procedure TForm1.Button7Click(Sender: TObject);

var

vJPEGImage: TJPEGImage;

begin

if RadioButton1.Checked then begin

vJPEGImage := TJPEGImage.Create;

try

Image2.Picture.Icon.Assign(nil);

TJPEGImage(Image3.Picture).Assign(nil);

BmpToIco(Image1.Picture.Bitmap, Image2.Picture.Icon, CheckBox1.Checked);

BmpToJpeg(Image1.Picture.Bitmap, vJPEGImage, SpinEdit1.Value);

TJPEGImage(Image3.Picture).Assign(vJPEGImage);

finally

vJPEGImage.Free;

end;

end else if RadioButton2.Checked then begin

vJPEGImage := TJPEGImage.Create;

try

Image1.Picture.Bitmap.Assign(nil);

TJPEGImage(Image3.Picture).Assign(nil);

IcoToBmp(Image2.Picture.Icon, Image1.Picture.Bitmap);

BmpToJpeg(Image1.Picture.Bitmap, vJPEGImage, SpinEdit1.Value);

TJPEGImage(Image3.Picture).Assign(vJPEGImage);

finally

vJPEGImage.Free;

end;

end else begin

vJPEGImage := TJPEGImage.Create;

try

vJPEGImage.Assign(TJPEGImage(Image3.Picture));

Image1.Picture.Bitmap.Assign(nil);

Image2.Picture.Icon.Assign(nil);

JpegToBmp(vJPEGImage, Image1.Picture.Bitmap);

BmpToIco(Image1.Picture.Bitmap, Image2.Picture.Icon, CheckBox1.Checked);

finally

vJPEGImage.Free;

end;

end;

end;

[A.VAHID]

از راهنمائیت متشکرم

[amir21merl]

سلام
من از فایل imgscan.ocx که در ویندوز 98 هست برای این کار استفاده کردم البته اون فایل رو در system32 ویندوز xp کپی کردم و بعد در xp وقتی در دلفی import activex زدم اون فایل رو نشون نداد
لطفا من رو راهنمایی کنید