ارسال پاسخ 
 
امتیاز موضوع:
  • 0 رأی - میانگین امیتازات : 0
  • 1
  • 2
  • 3
  • 4
  • 5
تبدیل فایل های Word به تصویر (JPG)
نویسنده پیام
Di Di آفلاین
مدير بخش هك و كرك
*****

ارسال ها: 2,360
تاریخ عضویت: اسفند ۱۳۸۵

تشکرها : 1665
( 3733 تشکر در 1300 ارسال )
ارسال: #1
تبدیل فایل های Word به تصویر (JPG)
با سلام.
من برای انجام یه پروژه به یه مشکل بر خوردم. باید در بخشی از برنامه فایلهای ورد رو به تصویر تبدیل کنم به طوری که با همه ورژنهای Word همخونی داشته باشه. ولی دقیقا نمی دونم چطور از کامپوننتهای Word استفاده کنم یا این که کامپوننت دیگه ای برای این کار وجود داره یا راه دیگه ای؟؟؟؟؟؟

احمدي نژاد بدون روتوش!!!
آغازی برای کرک
کرک قفل تلفنی
کارگاه آموزش کرک
دانلود ابزارهای کرک
استفاده از IDA‌ براي آنپك كردن يك برنامه "حرف نشنو"!
سورس ويروس، كرم ،‌تروجان
۱۱-مرداد-۱۳۸۶ ۱۲:۱۱:۳۰
مشاهده وب سایت کاربر یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
Pedram_HookEx آفلاین
مدیر بازنشسته
*****

ارسال ها: 461
تاریخ عضویت: خرداد ۱۳۸۴

تشکرها : 0
( 100 تشکر در 64 ارسال )
ارسال: #2
RE: تبدیل فایل های Word به تصویر (JPG)
میتونی از Refrenceی استفاده کنی که نامش Microsoft Office Document Imaging استفاده کنی

شاید این صفحه هم بدردت بخوره لینک مطلب

حول همین رفرنس یه سرچ توی اینترنت بزنی کارت را می افته

_______________________________________________________________________________
  • کشف الکتریسیته توسط پارتها برای اولین بار کلیک کنید
  • 135 نکته و آموزش از سطح پایین تا پیشرفته در غالب مثال های کوچک و قابل فهم (حجم 97KB)لینک دانلود
  • 101 آموزش پیشرفته ویژوال بیسیک. حتما دانلود کنید(حجم 314KB)لینک دانلود
  • اینم یه کتابچه ویژوال بیسیک برا اونایی که میخوان برنامه نویسی رو شروع کنن(حجم 916KB)لینک دانلود
  • تمام نکات و ترفند های مهم در ویندوز XP حتما دانلود کنید(حجم 86KB)لینک دانلود[تصویر: new4.gif]
  • بروزرسانی ویژوال بیسک 6 به آخرین نسخه یعنی سرویس پک 6 (حجم 61MB)لینک دانلود[تصویر: new4.gif]
۱۱-مرداد-۱۳۸۶ ۱۴:۰۹:۳۵
یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
تشکر شده توسط : t3r!p3000
Di Di آفلاین
مدير بخش هك و كرك
*****

ارسال ها: 2,360
تاریخ عضویت: اسفند ۱۳۸۵

تشکرها : 1665
( 3733 تشکر در 1300 ارسال )
ارسال: #3
RE: تبدیل فایل های Word به تصویر (JPG)
ااهی به امید تو
فعلا که لینک بالا کار نمی ده ولی ازت ممنونم. کاش می شد یه مثال عملی داشته باشم...

احمدي نژاد بدون روتوش!!!
آغازی برای کرک
کرک قفل تلفنی
کارگاه آموزش کرک
دانلود ابزارهای کرک
استفاده از IDA‌ براي آنپك كردن يك برنامه "حرف نشنو"!
سورس ويروس، كرم ،‌تروجان
۱۱-مرداد-۱۳۸۶ ۱۸:۰۶:۱۳
مشاهده وب سایت کاربر یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
lord_viper غایب
مدیر کل انجمن
*****

ارسال ها: 3,919
تاریخ عضویت: بهمن ۱۳۸۴

تشکرها : 4781
( 9306 تشکر در 2769 ارسال )
ارسال: #4
RE: تبدیل فایل های Word به تصویر (JPG)
نمیدونم delphi بلدین یا نه
ولی این کد فایل textرو به jpg تبدیل میکنه اینو برای کار با پرینتر نوشته بودم تبدیلش کردم به عکس شاید به دردتون بخوره روش کارش
procedure TForm1.Button1Click(Sender: TObject);
var
a:tbitmap;
s,g,d:integer;
f:tjpegimage;
begin
ایجاد object از bmp&jpg
f:=tjpegimage.Create;
a:=tbitmap.Create;
try

g:=memo1.Font.Size+10;فاصله خطوط در تصویر
s:=memo1.Lines.Count;یافتن تعداد خطوط فایل
a.Width:=screen.Width;طول عکس
a.Height:=s*g; عرض عکس
for d:=0 to s doبرای نوشتن خط به خط در حالت گرافیکی
begin
a.Canvas.TextOut(10,(d*g),memo1.Lines.Strings[d]);نوشنت روی عکس
end;
برای تبدیل bmp به jpg
f.Assign(a);
f.SaveToFile('c:\jpg.jpg');
finally
ازاد کردن حافظه
a.Free;
f.Free;
end;
end;
۱۲-مرداد-۱۳۸۶ ۱۲:۴۹:۵۷
مشاهده وب سایت کاربر یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
تشکر شده توسط : t3r!p3000
veyskarami غایب
مدیر بازنشسته
*****

ارسال ها: 961
تاریخ عضویت: مرداد ۱۳۸۴

تشکرها : 471
( 2417 تشکر در 710 ارسال )
ارسال: #5
RE: تبدیل فایل های Word به تصویر (JPG)
Only Delphi
دستت درد نکنهQuestion

انجام پروژه های نرم افزاری در کمترین زمان و نازلترین قیمت
برای تماس به آیدی Arashjeyjey در یاهو مسنجر پیام بدید.

http://www.jeyjey.blogfa.com


چـــو آنـکـــه مـی چـــرخـد در هــوای آزاد
چو آن مرد کاغذی پشت میله های زندان


هـمه وارثــان این خــاک بــی مقایسه اند
سپــرده انـد ایـن عتـیقـه را بــه مـا پـدران
بــر ذره ذره خاکش سجـــده خــواهم برد


بـــــــــــــه نـــــام قــــبـــــلــه تـــــــاریــــــــخ
زنــــــــــــــــده بــــــــــــــــــــاد ایــــــــــــــران

(آخرین ویرایش در این ارسال: ۱۳-مرداد-۱۳۸۶ ۱۸:۴۶:۵۰، توسط veyskarami.)
۱۳-مرداد-۱۳۸۶ ۱۸:۴۵:۱۳
مشاهده وب سایت کاربر یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
Di Di آفلاین
مدير بخش هك و كرك
*****

ارسال ها: 2,360
تاریخ عضویت: اسفند ۱۳۸۵

تشکرها : 1665
( 3733 تشکر در 1300 ارسال )
ارسال: #6
RE: تبدیل فایل های Word به تصویر (JPG)
دستتون درد نکنه. الگریتم تبدیل متن به عکس چیز خیلی قشنگیه ..من یه نمونه از اون رو به زیان VB دانلود کردم ولی متاسفانه کار من رو راه نمی اندازه چون حتما باید فایل Doc با تمام عکس ها و جدول ها و ... رو تبدیل کنم.
البته چند تا راه به نظرم رشیده ولی بلد نیستم یکی اینکه یه دیایور پرینتر تعریف کنم که از طریق اون فایل رو تبدیل کنم . یعنی همون کاری که برنامه های مبدل انجام می دن .
یا این که از درایورهای پرینتری که برنامه های مبدلی تهیه کردن تو برنامه ام استفاده کنم ولی این رو هم بلد نیستم هرچند سورس کد مربوط به استفاده از چند تا درایور رو هم نگاه کردم ولی نتونستم نمونه اش رو برای مثلا Offic Imaging درست کنم.
نمی دونم کسی تا حالا این کار رو انجام داده

احمدي نژاد بدون روتوش!!!
آغازی برای کرک
کرک قفل تلفنی
کارگاه آموزش کرک
دانلود ابزارهای کرک
استفاده از IDA‌ براي آنپك كردن يك برنامه "حرف نشنو"!
سورس ويروس، كرم ،‌تروجان
۱۴-مرداد-۱۳۸۶ ۰۹:۳۹:۳۲
مشاهده وب سایت کاربر یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
تشکر شده توسط : t3r!p3000
vblove آفلاین
کاربر فعال بخش ویروس
**

ارسال ها: 156
تاریخ عضویت: ارديبهشت ۱۳۸۴

تشکرها : 0
( 18 تشکر در 9 ارسال )
ارسال: #7
RE: تبدیل فایل های Word به تصویر (JPG)
salam

دوست من این برنامه واسه نوشتنش راه زیاد هست
به خود شما بستگی داره Wink

شما میتونی برنامه رو جوری طراحی کنی که عکس ها رو هم بعد بشه به همون متن تبدیل کرد . خیلی ساده هست Whistle

کافیه برنامه رو درکش کنی Shy

http://WWW.VB6.Blogfa.Com
۱۴-مرداد-۱۳۸۶ ۱۰:۲۲:۱۳
مشاهده وب سایت کاربر یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
Pedram_HookEx آفلاین
مدیر بازنشسته
*****

ارسال ها: 461
تاریخ عضویت: خرداد ۱۳۸۴

تشکرها : 0
( 100 تشکر در 64 ارسال )
ارسال: #8
RE: تبدیل فایل های Word به تصویر (JPG)
اگه میخوای پرینتش بکنی من اینو برات پیدا کردم

کد:
On Error GoTo SysInfoErr

MsgBox "Turn On Your Printer Please." & (Chr(13)) & (Chr(13)) & " Make Sure it Has Paper" & (Chr(13)), , "Printer Check"

cmdprintbutton.Enabled = False

Dim WordApplication As Word.Application
Dim Howmany As Integer
Dim Amount As Integer

Let Amount = 1

Let Book = txtnumber.Text
Set WordApplication = New Word.Application
Set WordApplication = Word.Application
With WordApplication
.Documents.Open ((App.Path) & "\" & Book & ".doc")
.Visible = False

For Amount = 1 To Howmany
.ActiveDocument.PrintOut
Next
.Application.Quit
End With

GoTo SysInfoClr

SysInfoErr:
MsgBox "Always Make Sure to Turn On Your Printer", vbOKOnly
GoTo Sysend

SysInfoClr:
MsgBox "Please Wait your Sheet is Printing", vbOKOnly

Sysend:

Unload Me
ولا من توی هیچ جا ندیدم Word رو مستقیم به عکس تبدیل کنن

_______________________________________________________________________________
  • کشف الکتریسیته توسط پارتها برای اولین بار کلیک کنید
  • 135 نکته و آموزش از سطح پایین تا پیشرفته در غالب مثال های کوچک و قابل فهم (حجم 97KB)لینک دانلود
  • 101 آموزش پیشرفته ویژوال بیسیک. حتما دانلود کنید(حجم 314KB)لینک دانلود
  • اینم یه کتابچه ویژوال بیسیک برا اونایی که میخوان برنامه نویسی رو شروع کنن(حجم 916KB)لینک دانلود
  • تمام نکات و ترفند های مهم در ویندوز XP حتما دانلود کنید(حجم 86KB)لینک دانلود[تصویر: new4.gif]
  • بروزرسانی ویژوال بیسک 6 به آخرین نسخه یعنی سرویس پک 6 (حجم 61MB)لینک دانلود[تصویر: new4.gif]
۱۴-مرداد-۱۳۸۶ ۱۵:۵۵:۱۴
یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
تشکر شده توسط : t3r!p3000
Di Di آفلاین
مدير بخش هك و كرك
*****

ارسال ها: 2,360
تاریخ عضویت: اسفند ۱۳۸۵

تشکرها : 1665
( 3733 تشکر در 1300 ارسال )
ارسال: #9
RE: تبدیل فایل های Word به تصویر (JPG)
دستت درد نکنه آقا پدرام. یه نگاهی به سورس زیر بنداز.....

Function DOC2PDF(sDocFile, sPDFFile)
On Error GoTo err:
Dim FSO
'if you want set the reference to > MS Word Object Library
Dim objWord 'As New Word.Application
Dim objWordDoc
Dim objWordDocs
Dim sPrevPrinter As String
Dim objDistiller
Dim sTempFile, sFolder

Set objDistiller = CreateObject("PDFDistiller.PDFDistiller")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application")
Set objWordDocs = objWord.Documents

sTempFile = App.Path & "\Temp"
sDocFile = FSO.GetAbsolutePathName(sDocFile)
sFolder = FSO.GetParentFolderName(sDocFile)

If Len(sPDFFile) = 0 Then
sPDFFile = FSO.GetBaseName(sDocFile) + ".pdf"
End If

If Len(FSO.GetParentFolderName(sPDFFile)) = 0 Then
sPDFFile = sFolder + "\" + sPDFFile
End If

' Remember current active printer
sPrevPrinter = objWord.ActivePrinter

'objWord.ActivePrinter = "Acrobat PDFWriter"
objWord.ActivePrinter = "Acrobat Distiller"

' Open the Word document
Set objWordDoc = objWordDocs.Open(sDocFile)

' Print the Word document to the Acrobat Distiller - will generate a postscript (.ps) (temporary) file
objWord.ActiveDocument.PrintOut False, , , sTempFile
objWordDoc.Close 'wdDoNotSaveChanges
objWord.ActivePrinter = sPrevPrinter
objWord.Quit 'wdDoNotSaveChanges
Set objWord = Nothing

' Distill the postscript file to PDF
objDistiller.FileToPDF sTempFile, sPDFFile, "Print"
Set objDistiller = Nothing
FSO.DeleteFile (sTempFile)

Set FSO = Nothing

MsgBox "PDF File Created", vbInformation
Exit Function

err:
MsgBox err.Description, vbExclamation
End Function


-------------------------------------

در تابعی که بالا گذاشتم اگه برنامه Acrobat Distiler روی سیستم نصب باشه " بدون اینکه برنامه دیگری باز بشه" و " فقط با استفاده از ریفرنسها و کامپوننتهایی که برنامه Distiler داره" می تونید یه فایل Doc رو به PDF تبدیل کنید.
در واقع برنامه Distiler یک پرینتر به سیستم معرفی می کنه ( طراحی درایور برای پرینتر) و با استفاده از تابع بالا می تونید به توابع داخلی برنامه دست پیدا کنید و بدون اجرای اون ( نه به صورت Invisable) فایل Doc رو به PDF تبدیل کنید.

حالا من می خوام همین کار رو با برنامه های دیگه ای مثل BitWare یا OfficeImage یا Win2PDF یا دیگر بنامه های از این دست بکنم ولی بلد نیستم. یعنی این نمونه کد روی اونها جواب نداد.

احمدي نژاد بدون روتوش!!!
آغازی برای کرک
کرک قفل تلفنی
کارگاه آموزش کرک
دانلود ابزارهای کرک
استفاده از IDA‌ براي آنپك كردن يك برنامه "حرف نشنو"!
سورس ويروس، كرم ،‌تروجان
۱۴-مرداد-۱۳۸۶ ۲۰:۱۴:۵۶
مشاهده وب سایت کاربر یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
lord_viper غایب
مدیر کل انجمن
*****

ارسال ها: 3,919
تاریخ عضویت: بهمن ۱۳۸۴

تشکرها : 4781
( 9306 تشکر در 2769 ارسال )
ارسال: #10
RE: تبدیل فایل های Word به تصویر (JPG)
برنامه in2pdfوofficeimage فکر نمیکنم فارسی رو پشتیبانی کنن ولی acrobat distilerخیلی کامله یه پرینتر مجازی میشازه و توی wordوقتی دکمه پرینتو میزنی متن رو به pdf تبدیل میکنه و فارسی رو هم پشتیبانی میکنه
۱۵-مرداد-۱۳۸۶ ۲۲:۱۵:۲۴
مشاهده وب سایت کاربر یافتن تمامی ارسال های این کاربر
نقل قول این ارسال در یک پاسخ
تشکر شده توسط : t3r!p3000
ارسال پاسخ 


موضوع های مرتبط با این موضوع...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
Rolleyes [سوال] پردازش محلی تصویر maryam_bme25 6 1,174 ۱۸-ارديبهشت-۱۳۹۲ ۱۰:۲۱:۱۶
آخرین ارسال: mandananaz
  پردازش تصویر محمد حسینی 38 14,306 ۲۰-مهر-۱۳۹۱ ۱۶:۵۵:۰۰
آخرین ارسال: salehjg
  آموزش پردازش تصویر و بررسی الگوریتم های آن salehjg 25 13,198 ۱۱-مهر-۱۳۹۱ ۱۴:۲۱:۴۳
آخرین ارسال: megatron
  راهنمایی در مورد الگوریتم تبدیل عبارت infix به prefix rebin ganjali 14 15,491 ۱۹-آبان-۱۳۹۰ ۲۰:۲۶:۳۴
آخرین ارسال: megatron
Question تبدیل کد اسکی به یونیکد The.Ghost 1 2,309 ۱۰-بهمن-۱۳۸۸ ۰۹:۵۲:۲۰
آخرین ارسال: lord_viper
  الگوریتم تبدیل infixبه prefix با استفاده از پشته گل چهره 2 2,179 ۲۶-آبان-۱۳۸۸ ۱۷:۱۲:۴۴
آخرین ارسال: hamed_Arfaee
  تبدیل فایل گرافیکی 24 بیتی به 8 بیتی reza120 2 1,426 ۱۹-آبان-۱۳۸۸ ۱۲:۰۰:۴۶
آخرین ارسال: 24670
  کاهش نویز تصویر mehdad.koulab 5 3,986 ۳-مهر-۱۳۸۷ ۰۵:۰۹:۵۲
آخرین ارسال: anesherli23

پرش به انجمن: