WolfmanTR_ Posted December 7, 2012 Share Posted December 7, 2012 arkadaşlar, forumu araştırdım ama örnek çalışma vb. kod demeti bulamadım, nasıl ve neye göre yapabilirim ? Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted December 7, 2012 Editor Share Posted December 7, 2012 Help dosyasına bakmamışsınız ama. function kopyala(Source,Destination,Copied,Total,FileCopied,FileTotal) Toplam = Total; Kaynak = Source; Hedef = Destination; mevcutkopyalanan=FileCopied; Toplamdosya=FileTotal; end Bu kodları globa functions a kopyala File.Copy kmutunun callbackfunctions kısmına kopyala yaz.değişkenleri istediğin gibi kullan. Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted December 7, 2012 Author Share Posted December 7, 2012 (edited) edit: süre için hangisini tanımlayacağım ? vede Toplamboyut için byte cinsinden yazıyor, mb a nasıl çevirebilirim ? Edited December 7, 2012 by wolfman.tr_ Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted December 7, 2012 Share Posted December 7, 2012 String.getformattedsize ile yapabilirsin Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted December 8, 2012 Editor Share Posted December 8, 2012 Süre yok malesef görmedim ben. Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted December 8, 2012 Author Share Posted December 8, 2012 (edited) String.getformattedsize ile yapabilirsin neresine eklemeliyim ? function CopyCallback(Source,Destination,Copied,Total,FileCopied,FileTotal) Progress.SetCurrentPos("Progress1", (Copied / Total) * 100); yuzde = Math.Floor((Copied / Total) * 100); Progress.SetText("Progress1", "%"..yuzde.."") Toplam = Total; Kaynak = Source; Hedef = Destination; mevcutkopyalanan=FileCopied; Toplamdosya=FileTotal; nYol = INIFile.GetValue("AutoPlay\\Docs\\data.ini","Dosya","Konum") Label.SetText("Label3", ""..mevcutkopyalanan); end nYol = INIFile.GetValue("AutoPlay\\Docs\\data.ini","Dosya","Konum") sYol = INIFile.GetValue("AutoPlay\\Docs\\datac.ini","Dosya","Konum") File.Copy(nYol,sYol, true, true, false, true, CopyCallback); error = Application.GetLastError(); if error ~= 0 then Dialog.Message("Hata!", "Dosya İndirilirken Hata Oluştu.\r\nHata Kodu:"..error, MB_OK, MB_ICONSTOP); end Dialog.Message("Bilgi", sYol.." konumuna taşındı", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); Süre yok malesef görmedim ben. help dosyasında bir örnek buldum"SecontLeft yada SecontLeftFormat " işimize yarar mı ? ben denedim ama hata aldım -- Callback function for HTTP.Download function DownloadCallback (nDownloaded, nTotal, TransferRate, SecondLeft, SecondsLeftFormat, Message) -- Convert total and downloaded bytes into formatted strings sDownloaded = String.GetFormattedSize(nDownloaded, FMTSIZE_AUTOMATIC, true); sTotal = String.GetFormattedSize(nTotal, FMTSIZE_AUTOMATIC, true); -- Set statusdlg title and message StatusDlg.SetTitle("Downloading . . . "); -- Output time left, formatted. StatusDlg.SetMessage("Currently downloading file . . . Time Left: " .. SecondsLeftFormat); -- Output formatted sizes to user through statusdlg status text StatusDlg.SetStatusText("Downloaded: " .. sDownloaded .. " / " .. sTotal); -- Set meter range (max range = 65534) StatusDlg.SetMeterRange(0, 65534); -- Set meter position (fraction downloaded * max meter range) StatusDlg.SetMeterPos((nDownloaded / nTotal) * 65534); end -- Show the StatusDlg StatusDlg.Show(0, false); -- Download a file from the internet to the user's computer -- Uses DownloadCallback() as the callback function HTTP.Download("http://www.yourdomain.com/downloads/update.exe", _TempFolder .. "\\update.exe", MODE_BINARY, 20, 80, nil, nil, DownloadCallback); -- Hide the StatusDlg StatusDlg.Hide(); Edited December 8, 2012 by wolfman.tr_ Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted December 8, 2012 Editor Share Posted December 8, 2012 O örnek sadece http download için gerekli.Örnek AIO lara bak oradaki kopyalama işlemlerini senin projene uygula. Quote Link to comment Share on other sites More sharing options...
QJerry Posted December 8, 2012 Share Posted December 8, 2012 pairs kardeşim dosyaların linkini koydum apz koleksiyonu konusuna gözünden kaçtı heralde Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted January 19, 2013 Author Share Posted January 19, 2013 arkadaşlar, süre için Plugin, dll vesayre birşey yok mu ? Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 20, 2013 Share Posted January 20, 2013 Kalan süreyi hesaplamak için içler dışlar çarpımını kullandım. Yani eğer X MB 1 saniye de kopyalanıyorsa, Toplam MB kaç saniye de kopyalanır şeklinde. Tabi bu +/- 1 saniye farklılık gösterebilir ayrıca kopyalama esnasında başka bir program/işlem vs. işlemciye yük bindirirse süre uzayabilir. Buda sonucu saptırabilir. Bunu geliştirip her saniye de kopyalanan MB cinsinden ya da KB cinsinden veriyi alıp aynı şekilde bir matematiksel işlemle kesine yakın sonuç bulunabilir. http://www.mediafire.com/?b5ao34aw6jdnweo Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted January 20, 2013 Author Share Posted January 20, 2013 (edited) Kalan süreyi hesaplamak için içler dışlar çarpımını kullandım. Yani eğer X MB 1 saniye de kopyalanıyorsa, Toplam MB kaç saniye de kopyalanır şeklinde. Tabi bu +/- 1 saniye farklılık gösterebilir ayrıca kopyalama esnasında başka bir program/işlem vs. işlemciye yük bindirirse süre uzayabilir. Buda sonucu saptırabilir. Bunu geliştirip her saniye de kopyalanan MB cinsinden ya da KB cinsinden veriyi alıp aynı şekilde bir matematiksel işlemle kesine yakın sonuç bulunabilir. http://www.mediafire.com/?b5ao34aw6jdnweo akıllıca bir yöntem, Kendi projeme uyarladığımda bu hatayı alıyorum. kodlar: function CopyCallback(Source,Destination,Copied,Total,FileCopied,FileTotal) yuzde = Progress.GetCurrentPos("Progress1"); Progress.SetText("Progress1", " Kopyalaniyor - %"..yuzde.." - ["..sTamamlanan.."/"..sKopyalanacak.."]"); FileCopied = File.Getsize(secilendosyalar); boyut = String.GetFormattedSize(FileCopied,FMTSIZE_MB, true); Label.SetText("kalan", " ["..boyut.."/"..FileTotal.."]"); Progress.SetCurrentPos("Progress1", (Copied / Total) * 100); Label.SetText("ilerleme", Math.Floor(((Copied)/Total)*100) .. "% | " .. String.GetFormattedSize(Copied, FMTSIZE_AUTOMATIC, true) .. "/" .. String.GetFormattedSize(Total, FMTSIZE_AUTOMATIC, true)) return true end sTamamlanan = 1; sKopyalanacak = Table.Count(secilendosyalar); for i,v in pairs(secilendosyalar) do File.Copy(v,secilenklasor, true, true, false, true, CopyCallback); sTamamlanan = sTamamlanan+1; end error = Application.GetLastError(); if error ~= 0 then Dialog.Message("Hata!", "Dosya Kopyalanırken Hata Oluştu.\r\nHata Kodu:"..error, MB_OK, MB_ICONSTOP); end Progress.SetText("Progress1", ""); Progress.SetCurrentPos("Progress1", 0); Input.SetText("Input1", "") Label.SetText("Label2", "Hedef Klasörü Seçmek için Tıklayın") saniye = 0; Edited January 20, 2013 by wolfman.tr_ Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 20, 2013 Share Posted January 20, 2013 File.Getsize değil File.GetSize olacak. Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted January 20, 2013 Author Share Posted January 20, 2013 @Kintaro , teşekkürler :) , projemde birde arşivleyici var önceden arşivlediği dosyayı açıyordu şimdi ne olduysa hata veriyor. hatayı çözemiyorum, bakabilir misiniz ? http://www.mediafire.com/?h2457c3h4d2p96c Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted January 20, 2013 Share Posted January 20, 2013 (edited) Dosya sıkıştırmada bir sorun varmış onu düzeltmek için 79.satırdaki "result" yazan yeri _DesktopFolder olarak değiştirmen yeterli masaüstüne kaydetmek istiyorsan.. Zip açmaya bakıyorum şimdi.. Sorunlar çözüldü !! http://www.mediafire.com/?pc48hs18yps20x0 Yanlış anlaşılmasın Yakup ama ""..sifre.."" ile sifre arasında hiç fark yok gereksiz tırnak kullanmışsın :D Edited January 20, 2013 by nightmare3519 Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted January 20, 2013 Author Share Posted January 20, 2013 result = dialog result istediği yere kaydetmek için yaptım, Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted January 20, 2013 Share Posted January 20, 2013 (edited) Umarım istediğin gibi olmuştur http://www.mediafire.com/?e59emek80cn27a4 Bu arada page 1 deki label1 de bir kod eksikliği var sanırım nSecilen = Dialog.FileBrowse(true, "Program Seçiniz...", _DesktopFolder, "Tüm Dosyalar", "", "dat", true, false); değil nSecilen = Dialog.FileBrowse(true, "Program Seçiniz...", _DesktopFolder, "Tüm Dosyalar", "*.*", "*.*", true, false); olması gerekmiyormu? Edited January 20, 2013 by nightmare3519 Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 21, 2013 Share Posted January 21, 2013 "" .. degisken .. ""bu ibareyi kim ortaya attı, herkes kimden esinlendi onu bir bulursam çok fena yapacam zaten :devil: Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted January 21, 2013 Author Share Posted January 21, 2013 "" .. degisken .. "" bu ibareyi kim ortaya attı, herkes kimden esinlendi onu bir bulursam çok fena yapacam zaten :devil: galiba eğitim videolarından çıktı :Q Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted January 21, 2013 Share Posted January 21, 2013 "" .. degisken .. "" bu ibareyi kim ortaya attı, herkes kimden esinlendi onu bir bulursam çok fena yapacam zaten :devil: MostWanted'in AIO derslerinde öyle geçiyor. İlk öğrendiğimde ben de öyle yapıyorum :) Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 21, 2013 Share Posted January 21, 2013 talha yaktım seni :girl_devil: Quote Link to comment Share on other sites More sharing options...
superhalit Posted January 22, 2013 Share Posted January 22, 2013 :D gerçekten mantıksız ""..degisken.."" bu ne yaw bndede all in one dersleri var ama ben öyle birşey görmedim? Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted January 22, 2013 Author Share Posted January 22, 2013 :D gerçekten mantıksız ""..degisken.."" bu ne yaw bndede all in one dersleri var ama ben öyle birşey görmedim? aio dersleri koleksiyon videolarını izle bakalım var mı yok mu Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 22, 2013 Share Posted January 22, 2013 tamam abartmayın, MostWanted'a sordum, evet ben yazdım onları, yalnız o zamanlar 14 yaşındaydım yeni öğreniyordum dedi. Olur o kadar yani, ben 14 yaşındayken Atari salonlarında mortal kombat oynuyordum, adam burada kod yazıyormuş :) Quote Link to comment Share on other sites More sharing options...
WolfmanTR_ Posted January 22, 2013 Author Share Posted January 22, 2013 tamam abartmayın, MostWanted'a sordum, evet ben yazdım onları, yalnız o zamanlar 14 yaşındaydım yeni öğreniyordum dedi. Olur o kadar yani, ben 14 yaşındayken Atari salonlarında mortal kombat oynuyordum, adam burada kod yazıyormuş :) ben kimseyi şuçlamıyorum olabilir, ben gördüğüm şeyi kolay unutamam. öyle gördüğüm içinde öyle yapmışım :) Quote Link to comment Share on other sites More sharing options...
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.