+- 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...