Code: Select all
SeekProc(stream, offset, type)
{
stream.Seek(offset)
VarSetCapacity(v,8)
bytesToRead := NumPut(0,v,0,type) - &v ; Numput returns the address to the "right" of item just written
bytesRead := stream.RawRead(v, bytesToRead)
if (v)
{
MsgBox, 4096, , % " Read failed"
return 0
}
else
{
if (offset)
{
if (offset)
{
absOffset := NumGet(v, 0, type)
stream.Seek(absOffset)
Pos := stream.Tell()
v := 0
VarSetCapacity(v,8)
bytesToRead := NumPut(0,v,0,type) - &v
bytesRead := stream.RawRead(v, bytesToRead)
}
MsgBox, 4096, , % "NumGet(v, 0, type): " NumGet(v, 0, type) " v: " v " Curr. Pos: " Pos " bytesToRead: " bytesToRead " offset: " offset " absOffset: " absOffset
return % NumGet(v, 0, type)
}
}
Thanks for response.