تبدیل متن به تصویر [بایگانی]

alireza_85

پنج شنبه 25 آبان 1385, 01:33 صبح

می خواستم بدونم چطوری میشه متن یک فرم را با پسون jpeg ذخیره کرد.

bandangoshti

پنج شنبه 25 آبان 1385, 11:49 صبح

عزیز با برنامه OCR میتونی این کارو انجام بدی.
در این سایت مطالب جالبی راجع به اون وجود داره.بگردی پیدا میکنی.
در ضمنخود من هم دنبات کامپوننت میگردم اگه پیدا ش کردی برای ما هم بزار.
من چندتا برنامه نمونه گیر آوردم ولی کامل نیستند.:چشمک:

alireza_85

پنج شنبه 25 آبان 1385, 12:37 عصر

تا اونجا که من فهمیدم OCR برعکس این کار رو انجام می ده. یعنی تصویر رو به متن تبدیل می کنه ؟

mehrzad007

پنج شنبه 25 آبان 1385, 23:32 عصر

دوستمون سوال رو درست متوجه نشده . ایشون میخوان متن تایپ شده رو به شکل تصویر نشون بده . نمی دونم می خوایی دقیقا چه کار کنی اما می تونی با یه پرینتر فرضی مثل (آفیس داکیومنت امیج نمی دونم چی چی..) که همراه آفیس نصب میشه اونو پرینت کنید و به صورت عکس ذخیره کنین یا اگر توی محیط برنامه نویسی می خوایی این کار رو بکنین از فرم یه عکس بگیرین و...

h.bathaie

جمعه 26 آبان 1385, 00:14 صبح

2 راه وجود داره البته تست نکردم ....

textbox1.CreateGraphics.Save

مقدار بازگشتی این تابع از نوع system.drawing.drawing2d.graphics که میتونی توی 1 object از همین نوع ادش کنی ...

TextBox1.DrawToBitmap

این متد هم خودش بصورت مستقیم و اتوماتیک کاری که در بالا بصورت دستی میبایست انجام بدیمو انجام میده ....

؟؟؟؟ ؟؟؟؟ :متفکر: ؟؟؟ چرا من روش اولو توضیح دادم ؟؟؟ ( با توجه به وجود متد دوم !!!!! )

nefrat

چهارشنبه 28 مهر 1389, 13:04 عصر

نه مثل capcha code میمونه یا تست اینکه ما ربات هستیم یا انسان !
منم دنبالشم!
مثل کد امنیتی که صحت هویت میکنه!
به درد جلوگیری از اسپم میخوره !
فکر کنم!

farhadt

پنج شنبه 29 مهر 1389, 03:54 صبح

Dim B As New Bitmap(150, 100, System.Drawing.Imaging.PixelFormat.Format32bppArgb )
Dim G As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(B)
G.Clear(Color.White)
G.DrawString("My String", New Font(New FontFamily("Tahoma"), 15, FontStyle.Bold, GraphicsUnit.Point), Brushes.SteelBlue, New Rectangle(0, 0, 150, 100))
B.Save("D:\MyPic.jpg")

ali_najari

پنج شنبه 29 مهر 1389, 09:59 صبح

دوستان من يكم كد دوستمون رو تغيير دادم واسه اينكه اون مستطيلي كه سفيد رسم ميكنه رو اندازه خود متن رسم كنه

Dim _Font As Font = New Font(New FontFamily("Tahoma"), 15, FontStyle.Bold)
Dim _Graphics As System.Drawing.Graphics = Me.CreateGraphics
Dim _Size As Size = New Size(_Graphics.MeasureString("Sample Text", _Font).Width _
, _Graphics.MeasureString("Sample Text", _Font).Height)
Dim _Bitmap As New Bitmap(_Size.Width, _Size.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb )
_Graphics = System.Drawing.Graphics.FromImage(_Bitmap)
_Graphics.Clear(Color.LightYellow)
_Graphics.DrawString("Sample Text", _Font, Brushes.Red, New Rectangle(0, 0, _Size.Width, _Size.Height))
_Bitmap.Save("C:\Sample Text.jpg")
PictureBox1.Image = _Bitmap