-
Similar Content
-
By DivaneTR
Quick Installer AIO [29.09.2014]
Her bilgisayarda olması gereken temel programlar tek noktada bu pakette. Kendi programlarını ekleyip çıkarabileceğiniz, kategoriler oluşturup daha kolay kılabileceğiniz bir platform uygulamasıdır. Her türden dosyaları araçlar klasörüne kopyalayıp, program içinden çalıştırabilirsiniz. Programlar klasörü içine oluşturacağınız klasörler kategori şeklinde programda tanımlanacaktır. İçerisinde bulunan exe formatındaki katılımsız programlar da kategoriler altında listelenecektir. Ayarlar menüsünden dilerseniz kategori görünümünü devredışı bırakabilirsiniz. Hızlı erişim menüsünden gerekli windows araçlarına ulaşabilmeniz mümkün.
İçerdiği Program Listesi :
Sağlıklı bir kurulum için uygulamayı yönetici olarak çalıştırın ve kullanıcı hesabı denetimi (UAC) kapatın.
https://mega.co.nz/#!GlQziC6S!XJUtzV1E5Rr7ypew8K7jeUwQ7gWizCjociUS-KFccP4 Sadece platform uygulamasını indirmek için burayı tıklayınız.
-
By taha1988
5n5 Music interviews Guest DJ Nicola Fasano & Miami Rockets
https://www.youtube.com/watch?v=CuJNtwyQYDo
-
By DivaneTR
Saygıdeğer ağabeyim, hocam, belediyemizin süper moderatörü. Doğum gününü en içten dileklerimle kutluyorum. Yeni yaşında sağlık ve huzur diliyorum.
-
By DivaneTR
Bir istek üzerine yazdığım fonksiyon. Ne işe yaradığı resimde açıkça görünmektedir. Belirttiğiniz klasörün/sürücünün içeriğini tüm alt klasör ve dosyalarla birlikte listelemenize yarar.
:download1:
-
By DivaneTR
_ImageResize fonksiyonunu birçok kişi bilir. Fonksiyonu geliştirerek, belirtilen dosyayı belirtilen boyuta indirgemek için ek bir fonksiyon yazdım. Maximum dosya boyutu koşulu sunan servisler için kullanılması amaçlanarak yazılmıştır. Örneğin Windows logon ekranı için en fazla 245KB boyutunda bir grafik koyabilirsiniz. Bu gibi durumlarda bu fonksiyon işimize yaramaktadır. Fonksiyon belirttiğiniz resim dosyasını en*boy oranını koruyarak adım adım küçültür, ta ki istediğimiz boyuta gelene kadar.
Fonksiyon;
Func _ResizeToSize($Input, $Output, $ToSize) $Temp = _TempFile(@TempDir & "\", "", ".jpg") FileCopy($Input, $Temp, 9) $Size = FileGetSize($Temp) $Boyutlar = _GetWHI($File) While $Size >= $ToSize _ImageResize($Input, $Temp, Floor($Boyutlar[0] / 1.05), Floor($Boyutlar[1] / 1.05)) $Boyutlar = _GetWHI($Temp) $Size = FileGetSize($Temp) WEnd FileMove($Temp, $Output, 9) EndFunc ;==>_ResizeToSize Parametreler; $Input = İşlenecek dosyanın tam yolu (Örn : C:\deneme.jpg) $Output = İşlem sonrası kaydedilecek dosya (Örn : C:\deneme_resized.jpg) $ToSize = Kilobyte cinsinden belirleyeceğiniz dosya boyutu (Örn : 250) Gerekli Diğer Fonksiyonlar ;
Func _GetWHI($sImage) Local $HIMAGE, $aRet[3] _GDIPlus_Startup() $HIMAGE = _GDIPlus_ImageLoadFromFile($sImage) $aRet[0] = _GDIPlus_ImageGetWidth($HIMAGE) $aRet[1] = _GDIPlus_ImageGetHeight($HIMAGE) $aRet[2] = _GDIPlus_BitmapCreateHBITMAPFromBitmap($HIMAGE) _GDIPlus_ImageDispose($HIMAGE) _GDIPlus_Shutdown() Return $aRet EndFunc ;==>_GetWHI Func _ImageResize($sInImage, $sOutImage, $iW, $iH) Local $sOP, $sOF, $sInExt, $Ext, $hBitmap, $hImage1, $hImage2, $hGraphic, $CLSID, $i = 0 Local $sType = "BMP|GIF|ICO|JPG|JPEG|PNG|TIF|TIFF" If Not FileExists($sInImage) Then Return SetError(1, 0, 0) $sInExt = StringUpper(StringTrimLeft($sInImage, StringInStr($sInImage, ".", 0, -1))) If Not StringRegExp($sInExt, "\A(" & $sType & ")\z", 0) Then Return SetError(2, 0, 0) $sOP = StringLeft($sOutImage, StringInStr($sOutImage, "\", 0, -1)) If Not FileExists($sOP) Then Return SetError(3, 0, 0) $sOF = StringTrimLeft($sOutImage, StringInStr($sOutImage, "\", 0, -1)) $Ext = StringUpper(StringTrimLeft($sOutImage, StringInStr($sOutImage, ".", 0, -1))) If Not StringRegExp($Ext, "\A(" & $sType & ")\z", 0) Or $Ext = "ICO" Then Return SetError(4, 0, 0) If Not IsInt($iW) And Not IsInt($iH) Then Return SetError(5, 0, 0) $hBitmap = _WinAPI_CreateBitmap($iW, $iH, 1, 32) _GDIPlus_Startup() $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap) $hImage2 = _GDIPlus_ImageLoadFromFile($sInImage) $hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1) _GDIPlus_GraphicsSetInterpolationMode($hGraphic, 2) _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage2, 0, 0, $iW, $iH) $CLSID = _GDIPlus_EncodersGetCLSID($Ext) Do $i += 1 Until (Not FileExists($sOP & $i & "_" & $sOF)) $sOutImage = $sOP & $sOF _GDIPlus_GraphicsSetInterpolationMode($hImage1, 2) _GDIPlus_ImageSaveToFileEx($hImage1, $sOutImage, $CLSID) _GDIPlus_ImageDispose($hImage1) _GDIPlus_ImageDispose($hImage2) _GDIPlus_GraphicsDispose($hGraphic) _WinAPI_DeleteObject($hBitmap) _GDIPlus_Shutdown() Return SetError(0, 0, 1) EndFunc ;==>_ImageResize Örnek Kullanım ;
$File = @DesktopDir & "\test.jpg" ; full path of file to resize $MaxSize = 250 ; as kilobyte If FileExists($File) And IsNumber($MaxSize) Then $tim = TimerInit() _ResizeToSize($File, @DesktopDir & "\resized.jpg", $MaxSize*1024) MsgBox(64, "Geçen süre", Floor(TimerDiff($tim)) / (1000) & " saniye") Else MsgBox(48,"","hata") EndIf :download1:
-
-
Recently Browsing 0 members
No registered users viewing this page.
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.