Jump to content

Film Kisayolu

halil355

By halil355,
in AutoPlay Media Studio

Recommended Posts

halil355 Newbie

halil355

Posted
Posted

arkadaslar lütfen bana yardimci olun...

711.jpg

yukardaki islemi nasil yapabilirim.islem bittiginde alttaki su hali nasil aldirabilirim?

tabiki filmin resmine tikladigimda filmi nasil baslatirim.

723.jpg

bunu cözmem lazim yeni projem icin,formda arastirma yaptim ama bisey bulamdim buna benzer...

biraz zor bi olay ama arkadasin birisi mutlaka anliyodur bundan...

Link to comment
Share on other sites
halil355 Newbie

halil355

Posted
  • Author
Posted
O kutucuğa tıkladığında kutucuk yerine film resmi mi gelecek?

normalde kutular bos olucak ama elime film gectikce programa eklemek icin siradaki bos kutuya tiklyinca bana filmin resmini,filmin kisa yolunu,ve ismini sormasini istiyorum ve kaydedince resmin orda kalmasini istiyorum.yani su

Please register to see this content.
sitedeki gibi bisey yapmak istiyorum...

Link to comment
Share on other sites
KintaRo Newbie

KintaRo

Posted
Posted

İstediklerini ekledim. Şu an programın şunları yapmakta:

Resmin üzerine tıklayınca, Filmin ismini soruyor, Filmin Linkini soruyor ve Resmi seçmeni istiyor. Bu işlemleri yaptıktan sonra gerçek zamanlı değişiklikleri gösteriyor. Yalnız filmin linki ne? onu ne için istedin? o kısmı kavrayamadım bende resmin altına filme gitr diye bir button koydum, oraya resmin üstüne tıkladığında girdiğin film linkine gitmesini sağladım. Artık sen o kısmı isteğine göre düzenlersin. Dosya:

http://www.yer6.org/dosya/Divx_Movie_v1.0_kintaro.rar[/CODE]

Yapılanlar:

- Sayfayı Script bölümündeki On Preload evresine şu kodları ekledim:


[CODE]-- 1. filmin adını al

filmAdi1 = INIFile.GetValue("AutoPlay\\Docs\\data.ini", "FILM_ISMI", "film1")

-- Label'a yazdır.

Label.SetText("label.film1", filmAdi1)[/CODE]

- Autoplay\Docs\ klasorune data.ini adlı bir dosya oluşturdum. Bu dosyada filmlerin bilgilerini saklayacaksın. Film adı, film linki gibi... Dosya içeriği şu şekilde:


[CODE][FILM_ISMI]

film1=Test Filmi


[FILM_LINKI]

film1=www.tnctr.com[/CODE]

- Resmin On Click evresine şu kodları yazdım:


[CODE]-- Film ismini girmek için bir dialog penceresi aç ve gelen veriyi "isim" değişkeninde sakla

isim = Dialog.Input("İsim Düzenleme", "Lütfen Filmin İsmini Giriniz:", "", MB_ICONQUESTION)

-- Film linkini girmek için bir dialog penceresi aç ve gelen veriyi "link" değişkeninde sakla

link = Dialog.Input("Link Düzenleme", "Lütfen Filmin Linkini Giriniz:", "", MB_ICONQUESTION)


-- isim değişkeninde saklanan veriyi data.ini dosyasındaki FILM_ISMI sekmdesindeki film1 öğesine yaz

INIFile.SetValue("AutoPlay\\Docs\\data.ini", "FILM_ISMI", "film1", isim)

-- isim değişkeninde saklanan veriyi data.ini dosyasındaki FILM_LINKI sekmdesindeki film1 öğesine yaz

INIFile.SetValue("AutoPlay\\Docs\\data.ini", "FILM_LINKI", "film1", link)


-- Film resmini seçmek için bir dialog penceresi aç 

dosyaSec = Dialog.FileBrowse(true, "Resim Seçimi", _DesktopFolderCommon, "PNG Dosyaları (*.Png)|*.png|", "", "*.png", false)


-- Seçilen resmi Images klasöründeki film1.png dosyası ile değiştir.

File.Copy(dosyaSec[1], _SourceFolder .. "\\AutoPlay\\Images\\film1.png", false, true, false, true)


-- isim değişkeninde saklanan veriyi Film1 in labelina yazdır.

Label.SetText("label.film1", isim)


-- Yeni resmi göstermek için resim özelliklerini tekrar yazdır.

tblImageProps = {};

tblImageProps.ImageFile = _SourceFolder .. "\\AutoPlay\\Images\\film1.png";

tblImageProps.Height = 190;

tblImageProps.Width = 137;

Image.SetProperties("image.film1", tblImageProps)[/CODE]

- Filme git buttonu On Click evresine şu kodları yazdım:


[CODE]-- Film1 in linkini data.ini dosyasından al

film_linki = INIFile.GetValue("AutoPlay\\Docs\\data.ini", "FILM_LINKI", "film1")


-- alınan linki internet explorer la çalıştır.

Shell.Execute(_ProgramFilesFolder.."\\Internet Explorer\\iexplore.exe", "open", film_linki, _ProgramFilesFolder.."\\Internet Explorer", SW_MAXIMIZE, false);[/CODE]
Link to comment
Share on other sites
halil355 Newbie

halil355

Posted
  • Author
Posted

kardesim cok cok tesekkürler filmin linki derken kendi sabit diskimden bi yol nasil gsterebilirim internetten degil.

bu islemleri hepsi bitip hazir oldugunda resim üzerine tiklayinca bidaha sormasin sag tiklayinca degistirmek icin sorsun,kafani yormuyorum insallah kardesim kusura bakma...

Link to comment
Share on other sites
KintaRo Newbie

KintaRo

Posted
Posted

yok yok sorun değil işlemimiz kolay. Şimdi Resmin On Click evresindeki kodlari sil, On Right Click evresine şu kodları yaz:

isim = Dialog.Input("İsim Düzenleme", "Lütfen Filmin İsmini Giriniz:", "", MB_ICONQUESTION)

link = Dialog.FileBrowse(true, "Film Dosyasını Seçiniz:", "_De", "Tüm Dosyalar (*.*)|*.*|", "Film Dosyasını Seçiniz...", "*.*", false, false)

INIFile.SetValue("AutoPlay\\Docs\\data.ini", "FILM_ISMI", "film1", isim)

INIFile.SetValue("AutoPlay\\Docs\\data.ini", "FILM_LINKI", "film1", link[1])

dosyaSec = Dialog.FileBrowse(true, "Resim Seçimi", _DesktopFolderCommon, "PNG Dosyaları (*.Png)|*.png|", "", "*.png", false)

File.Copy(dosyaSec[1], _SourceFolder .. "\\AutoPlay\\Images\\film1.png", false, true, false, true)

Label.SetText("label.film1", isim)

-- Image object properties table.

tblImageProps = {};

tblImageProps.ImageFile = _SourceFolder .. "\\AutoPlay\\Images\\film1.png";

tblImageProps.Height = 190;

tblImageProps.Width = 137;

Image.SetProperties("image.film1", tblImageProps)[/CODE]

Resmin On Click evresine de şu kodları yaz:


[CODE]film_linki = INIFile.GetValue("AutoPlay\\Docs\\data.ini", "FILM_LINKI", "film1")

File.Open(film_linki, "", SW_SHOWNORMAL)[/CODE]

İşte bu kadar. Filme Git buttonunu silebilirsin. Şimdi resme sağ tıkladığında düzenleyebileceksin, sol tıkladığında çalıştırabilieceksin.

Örnek dosya:


[CODE]http://www.yer6.org/dosya/Divx_Movie_v1.0_2.rar[/CODE]
Link to comment
Share on other sites
halil355 Newbie

halil355

Posted
  • Author
Posted

kardesim süpersin ya sayende biseyler ögreniyorum,verdigin bilgiler icin cok sagol,sen bunlari nasil ögrendin bu kodlari ögrenmemin kolay bi yolu varmi cünki cok karisik.

projede resim secerken png olarak istiyor bunu jpg olarak nasil alabilirim,

tekrar cok ama cok tesekkür ederim kardesim...

Link to comment
Share on other sites
KintaRo Newbie

KintaRo

Posted
Posted

Rica ederim ne demek. Kodları öğrenmek için eğer biraz ingilizcen varsa help dosyasında tüm kodların açıklamaları mevcut. Gerisini mantığını kullanarak yapıyorsun. Yani bizde böyle öğrendin. Ya da daha önce yapılmış projelerin kaynağına bakarak ne nasıl yapılmış, neyi nerde kulllanmış gibi kendin çözebilirsin. Soruna gelince;

Şu satırı: 

dosyaSec = Dialog.FileBrowse(true, "Resim Seçimi", _DesktopFolderCommon, "PNG Dosyaları (*.Png)|*.png|", "", "*.png", false)[/CODE]

Şu Satırla Değiştir:


[CODE]dosyaSec = Dialog.FileBrowse(true, "Resim Seçimi", _DesktopFolderCommon, "PNG Dosyaları (*.Png)|*.png|JPG Dosyaları (*.Jpg)|*.jpg|GIF Dosyaları (*.Gif)|*.gif|", "", "*.png", false)[/CODE]
Link to comment
Share on other sites
halil355 Newbie

halil355

Posted
  • Author
Posted

iste simdi oldu :good: cok sagol kardesim,simdi bunu her film icin cogaltmam lazim.

bende su help kismini türkceye cevimem lazim baktim hersey yaziyor süper ama ingilizcem yok.almanyada yasiyorum ben almanca olsaydi yine isime yarardi...

Link to comment
Share on other sites
peerfen Newbie

peerfen

Posted
Posted

Eline saglik @KintaRo nefis bisey cikarmissin ortaya

yanliz 2 ci bir filim ekleme imkani olmuyor sanirim

1 ci labeli imageyi plugni cogaltip ismilerini degistirdim

2 ci filme degerleri yazinca direk 1 ciye yaziyor 2 ci bos kalyior yani

data2 diye ini dosyasi acip dock klasörüne attim imagenin script bölümünü data 2 diye degistirdim yinede olmadi

Link to comment
Share on other sites
halil355 Newbie

halil355

Posted
  • Author
Posted
Eline saglik @KintaRo nefis bisey cikarmissin ortaya

yanliz 2 ci bir filim ekleme imkani olmuyor sanirim

1 ci labeli imageyi plugni cogaltip ismilerini degistirdim

2 ci filme degerleri yazinca direk 1 ciye yaziyor 2 ci bos kalyior yani

data2 diye ini dosyasi acip dock klasörüne attim imagenin script bölümünü data 2 diye degistirdim yinede olmadi

ayni sorun bendede var,ben birini yapinca kopyaliyarak covaltirim isimlerini degisririm diye düsündüm ama olmadi.ikinciye bilgi giriyorum birinci kutudan cikiyor...

Link to comment
Share on other sites
KintaRo Newbie

KintaRo

Posted
Posted

Şu an AMS kurulu olmayan bir bilgisayardan yazıyorum hatam olursa affola;

2. Film için image.film2 adında bir resim dosyası ekleyin, Autoplay\Images klasorundeki ismide film2.png olsun. Daha sonra Sayfaya label.film2 adında bir label ekleyin ve resmin altına koyun. Yani film1 gibi görünecek. film2 nin kodları soyle olacak:

- Sayfayı Script bölümündeki On Preload evresine :

-- 2. filmin adını al

filmAdi2 = INIFile.GetValue("AutoPlay\\Docs\\data.ini", "FILM_ISMI", "film2")

-- Label'a yazdır.

Label.SetText("label.film2", filmAdi2)[/CODE]

Data.ini içeriği


[CODE][FILM_ISMI]

film1=Test Filmi

film2=Test Filmi2


[FILM_LINKI]

film1=

film2=[/CODE]

- Resmin On Right-Click Evresine (image.film2):


[CODE]isim = Dialog.Input("İsim Düzenleme", "Lütfen Filmin İsmini Giriniz:", "", MB_ICONQUESTION)

link = Dialog.FileBrowse(true, "Film Dosyasını Seçiniz:", "_De", "Tüm Dosyalar (*.*)|*.*|", "Film Dosyasını Seçiniz...", "*.*", false, false)

INIFile.SetValue("AutoPlay\\Docs\\data.ini", "FILM_ISMI", "film2", isim)

INIFile.SetValue("AutoPlay\\Docs\\data.ini", "FILM_LINKI", "film2", link[1])

dosyaSec = Dialog.FileBrowse(true, "Resim Seçimi", _DesktopFolderCommon, "PNG Dosyaları (*.Png)|*.png|JPG Dosyaları (*.Jpg)|*.jpg|GIF Dosyaları (*.Gif)|*.gif|", "", "*.png", false)

File.Copy(dosyaSec[1], _SourceFolder .. "\\AutoPlay\\Images\\film2.png", false, true, false, true)

Label.SetText("label.film2", isim)

-- Image object properties table.

tblImageProps = {};

tblImageProps.ImageFile = _SourceFolder .. "\\AutoPlay\\Images\\film2.png";

tblImageProps.Height = 190;

tblImageProps.Width = 137;

Image.SetProperties("image.film2", tblImageProps)[/CODE]

Resmin On Click evresine(image.film2):


[CODE]film_linki = INIFile.GetValue("AutoPlay\\Docs\\data.ini", "FILM_LINKI", "film1")

File.Open(film_linki, "", SW_SHOWNORMAL)[/CODE]

Bu şekilde film3,4,5 diye çoğaltacaksınız, kodlar aynı ama film1 öğelerini film2 film3 diye eklediğiniz filme gore değiştireceksiniz.
Link to comment
Share on other sites
KintaRo Newbie

KintaRo

Posted
Posted
ellerine saglik yaptim kardesim ama bu seferde ikinci resimde video ekle diye soruyor ama video dosyasinin bölümüne gidince videoyu görmüyor...

Resim On Right-Click evresinin ilk iki satırı şöylemi :

isim = Dialog.Input("İsim Düzenleme", "Lütfen Filmin İsmini Giriniz:", "", MB_ICONQUESTION)

link = Dialog.FileBrowse(true, "Film Dosyasını Seçiniz:", "_De", "Tüm Dosyalar (*.*)|*.*|", "Film Dosyasını Seçiniz...", "*.*", false, false)[/CODE]
Link to comment
Share on other sites
halil355 Newbie

halil355

Posted
  • Author
Posted

Tamam diger pencerelerdeki sorunlar cözdüm bi kac tane ekledim arka arkaya ama şöyle bi sorun var,resme sag tıkladıgımda isleme devam etmek icin evemi hayırmı diye sormasını istiyorum.bu nedenmi yanlıslıkla saga tıklıyorum cıkmak istesemde bu seferde islemi devam ettiriyor labele kendi yazı ekliyor bu kodu nasıl girebilirim?...

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...