Skip to main content

AccessTr.neT


Resmin Boyutlarını Almak

Resmin Boyutlarını Almak

#7
Sayın alpeki, mümkünse ikiside olsun.
Teşekkürler
Cevapla
#8
Merhaba,Konu açamıyorum tarayıcılarda yardıma girince fotoğraf gözükmüyor.
Cevapla
#9
Sayın nane mesajı yanlış yere yazmişsınız. ;)
Cevapla
#10
(14/03/2018, 16:08)ates2014 yazdı: Sayın alpeki, mümkünse ikiside olsun.
Teşekkürler

Çözünürlük için MediaInfo'nun DLL dosyasını kullanmak lazım bunun dışında alabileceğiniz benim bildiğim bir yöntem yok. Dosya boyutunu öğrenmek için ise aşağıdaki fonksiyonu kullanabilirsiniz:

'---------------------------------------------------------------------------------------
' Procedure : GetFileInfo
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Purpose   : Retrieve some basic file information
' Copyright : The following may be altered and reused as you wish so long as the
'             copyright notice is left unchanged (including Author, Website and
'             Copyright).  It may not be sold/resold or reposted on other sites (links
'             back to this site are allowed).
' Req'd Refs: Uses Late Binding, so none required
'
' Input Variables:
' ~~~~~~~~~~~~~~~~
' sFile     : Fully qualified path & filename with extension of the file to report on
'
' Usage:
' ~~~~~~
' GetFileInfo "c:\Tests\myXLS.xls"
' GetFileInfo "c:\Tests\myMDB.mdb"
'
' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1         2017-09-01              Initial Release
'---------------------------------------------------------------------------------------
Public Function GetFileInfo(ByVal sFile As String)
   On Error GoTo Error_Handler
   Dim fso                   As Object
   Dim f                     As Object

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFile(sFile)

   msgbox f.Name               'Could also use f.Name if we wanted to
   msgbox "Size: " & f.Size              'We could just as easily use FileLen(sFile)

Error_Handler_Exit:
   On Error Resume Next
   Set f = Nothing
   Set fso = Nothing
   Exit Function

Error_Handler:
   MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
          "Error Number: " & Err.Number & vbCrLf & _
          "Error Source: GetFileInfo" & vbCrLf & _
          "Error Description: " & Err.Description, _
          vbCritical, "An Error has Occured!"
   Resume Error_Handler_Exit
End Function


Kullanımı:

Kod:
GetFileInfo ("C:\Users\Quality\Desktop\7. Realm Veri Tabanı\1. Giriş.mp4")
şeklinde
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#11
Sayın alpeki, ilginiz için tekrar teşekkür ederim,
bu eklentiyi kullandım çok sağolun...
Son Düzenleme: 17/03/2018, 00:20, Düzenleyen: ates2014.
Cevapla
#12
Me.cerceve.Picture = Me.resimlink
Me.ResimBoyut = GetProperties(Me.resimlink, 1)
End Sub


Function GetProperties(file As String, propertyVal As Integer) As Variant
Dim varfolder, varfile
With CreateObject("Shell.Application")
Set varfolder = .Namespace(Left(file, InStrRev(file, "\") - 1))
Set varfile = varfolder.ParseName(Right(file, Len(file) - InStrRev(file, "\")))
GetProperties = varfolder.GetDetailsOf(varfile, propertyVal)
End With
End Function


Me.resimlink, 1) burdaki rakamı 1 den bilmem kaça kadar değiştirisen resmin boyutunu özelliklerini değiştirilme tarihini yerini falanını filanını veriyor
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task