View Full Version : نمایش تصاویر TIF در برنامه
mohammad-gh
سه شنبه 06 اردیبهشت 1390, 09:29 صبح
با سلام
کامپوننت یا DLL یا امکانی نیاز دارم که با آن بتوانم در برنامه فایلهای TIF رو نمایش بدم, از آن پرینت بگیرم و ...
منتظر کمک دوستان هستم!
mohammad-gh
پنج شنبه 08 اردیبهشت 1390, 12:37 عصر
آقا هیچ کس همچین امکانی برای تصاویر با فرمت tif نداره!!!
mohammad-gh
یک شنبه 22 خرداد 1390, 09:36 صبح
برای مشاهده تصاویر tif قبل dll ای تو سایت بود اما الان پیداش نمی کنم , لطفا یکی کمک کنه
mhmoein
یک شنبه 22 خرداد 1390, 10:55 صبح
این کد رو تو یه کلاس قرار بده
Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO
Public Class TiffImage
Public Sub New(ByVal fileName As String)
_fileName = fileName
End Sub
Private _fileName As String
Public ReadOnly Property FileName() As String
Get
Return _fileName
End Get
End Property
Public ReadOnly Property PageCount() As Integer
Get
' Get the frame dimension list from the image of the file and
Dim image As Image = Image.FromFile(FileName)
' Get the globally unique identifier (GUID)
Dim objGuid As Guid = image.FrameDimensionsList(0)
' Create the frame dimension
Dim frameDimension As New FrameDimension(objGuid)
'Gets the total number of frames in the .tiff file
Return image.GetFrameCount(frameDimension)
End Get
End Property
' Return the memory stream of a specific page
Public Function GetSpecificPage(ByVal pageNumber As Integer) As Image
Dim image As Image = Image.FromFile(Me.FileName)
Using ms As New MemoryStream()
Dim objGuid As Guid = image.FrameDimensionsList(0)
Dim objDimension As New FrameDimension(objGuid)
image.SelectActiveFrame(objDimension, pageNumber)
image.Save(ms, ImageFormat.Bmp)
Dim retImage As Image = Image.FromStream(ms)
Return retImage
End Using
End Function
End Class
طریقه استفاده :
Dim tiff As New TiffImage("C:\Temp\Test.tif")
For index As Integer = 1 to tiff.PageCount
Dim img As Image = tiff.GetSpecificPage(index)
Next index
pouyansaraf
دوشنبه 23 خرداد 1390, 14:00 عصر
سلام
تو vb2010 که راحت تو picturebox می آید
مثل jpg و ...
mohammad-gh
دوشنبه 23 خرداد 1390, 20:37 عصر
و vb2010 که راحت تو picturebox می آید
آخه وقتی صفحه , چند صفحه ای باشه مشکله
ممنون از کدتون جناب mohmoein راستش می خواستم بودونم این کد قابلیت زوم (بزرگنمایی) هم داره یا نه ؟
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.