Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html) +--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html) +--- Konu Başlığı: Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma (/konu-herhangi-bir-dosyayi-ram-e-yukleyik-kullanma.html) |
Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma - efegfs - 10/08/2013 Dim mem As New clsFileMapping Dim retval As Long If mem.OpenFile("Dosya Yolu", FileAllAccess, FileShareReadWrite, FileOpenAlways, FileAttributeAll) = True Then If mem.MapFile("") = True Then If mem.OpenView(FileMapAll) = True Then Dim veri As Byte veri = mem.ReadData(DefineByte) ' -> Byte Türünde 1 Byte Çeker, Otomatikman 1 Artar. MsgBox "Dosya Çalıştı..." 'Dosya Kapanıyor... mem.CloseView False ' True Yaparsanız Yapdığınız Değişiklikler Dosyaya Kaydolur. mem.CloseMap mem.CloseFile Else retval = -3 End If Else retval = -2 End If retval = -1 End If If retval < 0 Then MsgBox "Hatalı Dosya Açılışı, " & retval End If Not: ClsFileMapping Alıntıdır... Cvp: Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma - efegfs - 11/08/2013 Yorumlarınızı Bekliyorum... Cvp: Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma - efegfs - 11/08/2013 40 kişi bakmış 2 indiren 0 yorum arkadaşlar emeğe saygı ben bunu yapabilmek için ne kadar uğraştım... Cvp: Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma - benremix - 12/08/2013 Sn efegfs emek ve paylaşım için teşekkürler. Bu günler ilginin en az olduğu dönemdir. Bayram ve yaz tatili döneminde bu tür sitelere ilgi azalmaktadır. Bu nedenle gereken ilgiyi göremediniz. İlerleyen günlerde mutlaka yorum yazan olacaktır. İsterseniz siteye ilginin arttığı günlerde konuyu güncelleyiniz. Saygılar... Cvp: Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma - efegfs - 12/08/2013 Açıklaman İçin Teşekkürler... |