تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قراءة بيانات من الذاكرة
#1
كاتب الموضوع : sniperser

مرحبا أقدم لكم كود لـ [[العنوان]]
أضف 2 تكست و2 كومند

كود :
Const DataLength = 40

Dim outbuffer As String * DataLength
Dim inbuffer As String * DataLength

Private Sub Command1_Click()

outbuffer = Text1.Text

hMemory = GlobalAlloc(GMEM_MOVEABLE, DataLength)
hMemoryPointer = GlobalLock(hMemory)

Call MoveMemory(hMemoryPointer, outbuffer, DataLength)
End Sub

Private Sub Command2_Click()
Call MoveMemory(inbuffer, hMemoryPointer, DataLength)

Text2.Text = inbuffer

GlobalUnlock (hMemoryPointer)
GlobalFree (hMemory)
End Sub
شكرا جزيلا
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم