سلام کسی میدونه این چند خط را چطوری میشه تبدیل کرد به opengl این مثال ها مربوط به directx هست اما برخی توابع به نظر میرسه یا وجود نداره یا باید به شکل دیگه کد نویسی بشه
Dim lrc As D3DLOCKED_RECT
Private texRefl As Direct3DTexture8
.
.
.
'srfOff.LockRect lrc, ByVal 0&, 0
'SetDIBitsToDevice Me.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, 0, Me.ScaleHeight, ByVal lrc.pBits, biWnd, 0
'srfOff.UnlockRectو همچنین این :
texRefl.LockRect 0, lrc, ByVal 0&, D3DLOCK_DISCARD
and
StretchBlt dstDc, 0, 0, refQ, refQ, srcDc, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, vbSrcCopy
memcpy ByVal lrc.pBits, ByVal lpDat, refQ * refQ * 4
پاسخ با نقل قول