PDA

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 راستش می خواستم بودونم این کد قابلیت زوم (بزرگنمایی) هم داره یا نه ؟