Skip to main content

AccessTr.neT


Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma

Herhangi Bir Dosyayı Ram'e Yükleyik Kullanma

Star #1
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...
.rar clsFileMapping.rar (Dosya Boyutu: 6 KB | İndirme Sayısı: 21)
Cevapla
#2
Yorumlarınızı Bekliyorum...
Cevapla
#3
40 kişi bakmış 2 indiren 0 yorum arkadaşlar emeğe saygı ben bunu yapabilmek için ne kadar uğraştım...
Cevapla
#4
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...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#5
Açıklaman İçin Teşekkürler...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da