Slideshow A Buton Ile Resim Ekleme

[YoRuMcU]

Butondaki Kod:
[spoiler][code]strAd = Dialog.Input("Resim Ekleme", "Resmin ismini girin:", "", MB_ICONQUESTION)
strAdres = Dialog.Input("Resim Ekleme", "Resmin adresini girin:", "", MB_ICONQUESTION)
if strAd ~= "" and strAdres ~= "" then
strDosya = TextFile.ReadToString("AutoPlay\\Docs\\data.ini")
strAra = String.Find(strDosya, strAd, 1, false)
if strAra ~= -1 then
Dialog.Message("", "Bu resim zaten mevcut!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1)
else
INIFile.SetValue("AutoPlay\\Docs\\data.ini", strAd, "Resim", strAd)
INIFile.SetValue("AutoPlay\\Docs\\data.ini", strAd, "Adres", strAdres)
SlideShow.AddSlide("SlideShow1", "- "..strAd.."", "");
end
end[/code][/spoiler]

Bunda Yanlışlık varmı diye soracaktım.

Lütfen yardım edin

[KintaRo]

SlideShow.AddSlide("SlideShow1", "- "..strAd.."", "");

sadece bu satırda problem gördüm ben, position'a "" demişsiniz, orda sıra no belirtilmesi gerek sanırım, birde FilePath "- "..strAd.."" şeklinde olmuş yani dosya yolunun başına - eklenmiş, ordan veriyi alırken problem çıkartabilir

[DivaneTR]

[center][b]Resim Adresi Girin Yerine FileBrowser Kullanmak Daha Mantıklı. Sadece JPG resimleri seçebilecek şekilde hazırladım. Sen zenginleştirirsin.[/b][/center]

[b]Ekle Buttonu :[/b]
[codebox]
strAd = Dialog.Input("Resim Ekleme", "Resmin ismini girin:", "", MB_ICONQUESTION)
strAdres = Dialog.FileBrowse(true, "Resim Seçin", _DesktopFolder, "Resimler (.jpg)|*.jpg|", "", "dat", false, false);
if strAd ~= "" and strAdres ~= "" and (strAdres[1] ~= "CANCEL") and (strAdres ~= nil) then
strDosya = TextFile.ReadToString("AutoPlay\\Docs\\data.ini")
strAra = String.Find(strDosya, strAd, 1, false)
if strAra ~= -1 then Dialog.Message("", "Bu resim zaten mevcut!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1)
else
INIFile.SetValue("AutoPlay\\Docs\\data.ini", strAd, "Resim", strAd)
INIFile.SetValue("AutoPlay\\Docs\\data.ini", strAd, "Adres", strAdres[1])
adres = INIFile.GetValue("AutoPlay\\Docs\\data.ini", strAd, "Adres");
SlideShow.AddSlide("SlideShow1", adres, "");
end
end
[/codebox]

[b]
Slideshow'u Başlatmak İçin Button :[/b]
[code]SlideShow.Play("SlideShow1");[/code]

[b]Proje :[/b]
[code]http://www.mediafire.com/?o5l1q89bedldguq[/code]

[YoRuMcU]

saolun arkadaşlar