запрос PG_CHAT_UIN

NT RnQ_GetUINCurrentChatTab( void ) {
	DWORD   iAPos, iPos,
			*pCommunication;
	BYTE	*bComm,
			bAnswer[ANSW_LEN],
			bMsgType;
	INT		iDestUIN,
			iLen;
 // -- отправка запроса клиенту
	iAPos = 4;
	bAnswer[ iAPos ++ ] = PM_GET;
	bAnswer[ iAPos ++ ] = PG_CHAT_UIN;

	iAPos -= 4;
	memcpy( bAnswer, &iAPos, 4 );
	pCommunication = funcCallback( ( DWORD* ) bAnswer );
 // -- разбор ответа
	if ( ! pCommunication )
		return 0;
 
	memcpy( &iLen, pCommunication, 4 );
 
	iPos = 4;
	bMsgType = bComm[ iPos ++ ];
	//if( bMsgType != PM_DATA ) {
	//	MessageBoxA( 0, "", "Error RnQ_GetUINCurrentChatTab: PM_DATA", 0 );
	//	return 0;
	//}

	bComm = ( BYTE* ) ( pCommunication );
	RQ_GetINT( bComm, &iPos, iLen, &iDestUIN );
 
	return iDestUIN;
}

function _byte_at(p:pointer; ofs:integer=0):byte;
begin
inc( integer(p), ofs);
result:=byte(p^)
end;

function RQ_GetChatUIN:integer;
var
 data:Pointer;
begin
 data:=CallStr(AnsiChar(PM_GET)+AnsiChar(PG_CHAT_UIN));
 if _byte_at(data, 4) = PM_DATA then
 try Result := _int_at(data,5) except Result:=0 end else Result:=0;
end;