Windows7 işletim sisteminiz var ve IIS web sunucusunu bilgisayarınıza kurmak istiyorsunuz. İnternete baktınız yeterince kaynak yok ya da çoğu İngilizce, anlamadınız.

3 gündür ben de uğraşıyorum, internette falan da bulmak için epeyce bi çaba sarfettim. Bu konuda henüz yeterince Türkçe kaynak yok. Muhtemelen siz de bulamayıp buralara kadar gelmişsiniz.

Aşağıdaki Windows Ultimate 7 için IIS Kurulumunun videosunu aynen takip edin, IIS kurulumunu tamamlamış olacaksınız:

Bunun haricinde World Wide Web Hizmetlerinin altında Uygulama Geliştirme Özellikleri sekmesinin altında istediğiniz uygulamaları da aktif etmeyi unutmayınız.

Oxxi.net’te anlattığım ffmpeg kurulumunu blog’tan da anlatayım.

Öncelikle ffmpeg nedir onu açıklayalım:
FFMPEG hareketli görüntü ve sesleri dönüştürmemize yarayan dönüştürücüdür. mp3 dosyalarını flv’ye dönüştürmede, wmv dosyalarını flv’ye ya da istediğin dosya uzantılarına dönüştürmede ffmpeg’i kullanabilirsiniz.

Kullanım:

Öncelikle burdan uygulamayı indirin
Rar şifremiz: oxxi

Sonrasında rar’ı açalım. İçinde dynucom programı, ffmpeg.exe, ffplay.exe, pthreadGC2.dll ve asp kodlaması için örnek bulunuyor.

Dynucom’u kurduğunuzda bilgisayarınızın yeniden başlamasını isteyecek, başlatın.

ffmpeg.exe ve ffplay.exe’yi çalıştırın.

dll’yi yüklediğiniz alanı tanımlayın, şöyle:

Çalıştır > regsvr32 c:\windows\system32\pthreadGC2.dll (windows klasöründe system32′nin içine atmışım ben)

bu tanımlamaları yaptıktan sonra asp kodlarımıza dönelim:

<%
Set myexec = Server.Createobject("Dynu.Exec")


inputvideo="D:\wwwroot\domain.com\httpdocs\Ron\oxxi.wmv"
outputvideo="D:\wwwroot\domain.com\httpdocs\Ron\cikti.flv"
outputfile="D:\wwwroot\domain.com\httpdocs\Ron\resim.jpg"
ffmpegroot="D:\wwwroot\domain.com\httpdocs\Ron\"


Response.Write(myExec.execute(""&ffmpegroot&"ffmpeg -s 320x240 -i "&inputvideo&" -ss 00:00:05 -s 320x240 -vframes 1 -f mjpeg "&outputfile&""))
'buradaki 00.00.05 ekran görüntümüzün alınacağı süre ayarıdır.
Response.Write(myExec.execute(""&ffmpegroot&"ffmpeg -i "&inputvideo&" -ab 16 -ar 22050 -b 600 -s 320x240 -r 23 "&outputvideo&""))
%>

Şimdi tanımlamaları anlatalım:

inputvideo: wmv’mizin bulunduğu yol (asp upload ile dosya yükleme işlemi yaptırılırsa bu yol işlemi yukarıda yapılmalı)

outputvideo: flv dosyamızın çıkacağı yer.

outputfile: ekran görüntümüzün alınacağı resim dosyası

ffmpegroot: fffmpeg uygulamamızın olduğu klasör.

Burada önemli olan Ron klasöre yazma-okuma yetkisi vermeniz. Uygulamada adres yollarının çok uzun olması durumunda hata veriyor. Onun için de FSO ile kopyalama yapmanız gerekebilir. Ayrıca windows’un içindeki cmd.exe’ye de kullanacağınız domaininiz için yetki vermelisiniz. Kullandığım şekliyle anlatımım bu kadar. Umarım yardımcı olabilmişimdir.

Üyelik işlemlerinizde, iletişim sayfalarınızda kullanabileceğiniz ASP kodları:

Siteniz üzerinden gmail’i kullanarak mail gönderin:

body=”Maile gidecek yazı burada olsun”
Dim iMsg, iConf, Flds
Set iMsg = CreateObject(“CDO.Message”)
Set iConf = CreateObject(“CDO.Configuration”)
Set Flds = iConf.Fields
schema = “http://schemas.microsoft.com/cdo/configuration/”
Flds.Item(schema & “sendusing”) = 2
Flds.Item(schema & “smtpserver”) = “smtp.gmail.com”
Flds.Item(schema & “smtpserverport”) = 465
Flds.Item(schema & “smtpauthenticate”) = 1
Flds.Item(schema & “sendusername”) = “googlehesabın@gmail.com”
Flds.Item(schema & “sendpassword”) = “sifren”
Flds.Item(schema & “smtpusessl”) = 1
Flds.Update
With iMsg
.To = email
.From = “googlehesabın@gmail.com”
.Subject = “Mail konusu”
.HTMLBody = Body ‘yukarıdaki body kısmı
.Sender = “gonderen@mailburda.com”
.Organization = “http://www.siteniz.com”
.ReplyTo = “cevapyazma@siteniz.com”
Set .Configuration = iConf
SendEmailGmail = .Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

Kendinize göre değiştireceğiniz alanlar:

Flds.Item(schema & “sendusername”) = “googlehesabın@gmail.com”
Gmail hesabınızı buraya yazın.

Flds.Item(schema & “sendpassword”) = “sifren”
Gmail şifrenizi buraya yazın.

Body
Mail alanınız, tavsiye formu oluştururduğunuzda bu alanı kullanabilirsiniz. Örnek:
body=”Merhaba,
Arkadaşınız xxx size [url]www.xxx.com/[/url] sayfasını tavsiye etti …”

.To = request.form(“email”)
Formdan gelen email değeri burda

.From = “cevapyazma@siteniz.com”
Gönderdiğiniz mailde gönderen olarak görünen mail adresiniz

.Subject = “Mail konusu”
Mailizin konusu

.HTMLBody = Body
Tanımladığımız mail alanı

.Sender = “gonderen@mailburda.com”
Gönderen mail

.Organization = “http://www.siteniz.com”
Burası gayet açık

.ReplyTo = “cevapyazma@siteniz.com”
Cevap yazılmasını istediğiniz alan

Kolay gelsin, iyi çalışmalar.

Kullanıcının doğum tarihini veritabanınıza kaydettiniz. Ayrıca burcunu da kaydetmenize gerek kalmadan bu kodlarla kullanıcının burcunu hesaplayabilirsiniz. İsterseniz formdan aldığınız veriyi de bu kodları uyarlayarak veritabanına kaydedebilirsiniz.

Kodda yazdığımız RecordSet(“ay”) veritabanından çektiğimiz kullanıcının doğduğu ay ve aynı şekilde RecordSet(“gun”) de kullanıcının doğum günü. RecordSet yerine kendi rs kodunuzu yazabilirsiniz.

<%
ay=RecordSet(“ay”)
gun=RecordSet(“gun”)

If ay=12 And gun=>23 Or ay=1 And gun=<20 Then
response.write(“Oğlak”)
End If

If ay=1 And gun=>21 Or ay=2 And gun=<19 Then
response.write(“Kova”)
End If

If ay=2 And gun=>20 Or ay=3 And gun=<20 Then
response.write(“Balık”)
End If

If ay=3 And gun=>21 Or ay=4 And gun=<20 Then
response.write(“Koç”)
End If

If ay=4 And gun=>21 Or ay=5 And gun=<21 Then
response.write(“Boğa”)
End If

If ay=5 And gun=>22 Or ay=6 And gun=<21 Then
response.write(“İkizler”)
End If

If ay=6 And gun=>22 Or ay=7 And gun=<23 Then
response.write(“Yengeç”)
End If

If ay=7 And gun=>24 Or ay=8 And gun=<23 Then
response.write(“Aslan”)
End If

If ay=8 And gun=>24 Or ay=9 And gun=<23 Then
response.write(“Başak”)
End If

If ay=9 And gun=>24 Or ay=10 And gun=<22 Then
response.write(“Terazi”)
End If

If ay=10 And gun=>23 Or ay=11 And gun=<22 Then
response.write(“Akrep”)
End If

If ay=11 And gun=>23 Or ay=12 And gun=<22 Then
response.write(“Yay”)
End If
%>