社区
语言基础/算法/系统设计
帖子详情
lobyte hibyte 是干什么用的啊.在D7里怎么没有啊.
fengfan
2003-08-18 10:55:17
这两个函数是干什么用的啊.我在vc中看到应用.在大富翁也看到不少这个方面的源代码.可是在D7里却没有这两个函数.我想知道:
这两个函数是干什么用的.在delphi7里有什么方法实现他们的功能.谢谢了啊.
...全文
325
2
打赏
收藏
lobyte hibyte 是干什么用的啊.在D7里怎么没有啊.
这两个函数是干什么用的啊.我在vc中看到应用.在大富翁也看到不少这个方面的源代码.可是在D7里却没有这两个函数.我想知道: 这两个函数是干什么用的.在delphi7里有什么方法实现他们的功能.谢谢了啊.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
stargazer
2003-08-18
打赏
举报
回复
D6也没有啊。只有Hi和Lo
CloneCenter
2003-08-18
打赏
举报
回复
同意楼上!
vb字节操作函数源代码集锦
用Visual Basic实现字节操作,Bit,
Byte
,Word,
Lo
ng,String之间进行转换,并给出了多种方法的效率和时间。 BitTo
Lo
ng.doc
Byte
ToBit.doc
Hi
Byte
.doc
Hi
Word.doc
Lo
Byte
.doc
Lo
ngToBit.doc
Lo
ngToHex.doc
Lo
ngToHexRev.doc
Lo
ngToRGBHex.doc
Lo
Word.doc MakeDWord.doc MakeWord.doc S
hi
ftRightZ.doc StringToBit.doc StringToBitB.doc StringToBitW.doc
socket服务器.txt
#include
#include
#pragma comment (lib,"ws2_32.lib")// void main() { WORD wVersionRequested; WSADATA wsaData; int err; wVersionRequested = MAKEWORD( 1, 1 ); err = WSAStartup( wVersionRequested, &wsaData ); if ( err != 0 ) { return; } //加载Winsock库: if (
LO
BYTE
( wsaData.wVersion ) != 1 ""
HI
BYTE
( wsaData.wVersion ) != 1 ) { WSACleanup( ); return; } SOCKET sockSrv=socket(AF_INET,SOCK_STREAM,0);//服务端:构造监听SOCKET,流式SOCKET,第三个参数为0的时候,第二个为默认协议 SOCKADDR_IN addrSrv; //第三式:配置监听地址和端口:
KeyBoard 模拟键盘
void NotifyKBEvent(wchar_t ch) { SHORT vks = VkKeyScanW(ch);
BYTE
vk =
LO
BYTE
(vks);
BYTE
S
hi
ft =
HI
BYTE
(vks); if (vk == (
BYTE
)-1/* || S
hi
ft == (
BYTE
)-1*/) {//UNICODE 字符 INPUT input[2]; input[0].type = INPUT_KEYBOARD; input[0].ki.wVk = 0; input[0].ki.wScan = ch; input[0].ki.dwFlags = 0x4;//KEYEVENTF_UNICODE; input[1].type = INPUT_KEYBOARD; input[1].ki.wVk = 0; input[1].ki.wScan = ch; input[1].ki.dwFlags = KEYEVENTF_KEYUP | 0x4;//KEYEVENTF_UNICODE; SendInput(2, input, sizeof(INPUT)); } else {// if (S
hi
ft) { INPUT input[4] = {0}; input[0].type = INPUT_KEYBOARD; input[0].ki.wVk = S
hi
ft;//VK_S
HI
FT; input[1].type = INPUT_KEYBOARD; input[1].ki.wVk = ch; input[2].type = INPUT_KEYBOARD; input[2].ki.wVk = ch; input[2].ki.dwFlags = KEYEVENTF_KEYUP; input[3].type = INPUT_KEYBOARD; input[3].ki.wVk = S
hi
ft;//VK_S
HI
FT; input[3].ki.dwFlags = KEYEVENTF_KEYUP; SendInput(4, input, sizeof(INPUT)); } else { INPUT input[2] = {0}; input[0].type = INPUT_KEYBOARD; input[0].ki.wVk = vks; input[1].type = INPUT_KEYBOARD; input[1].ki.wVk = vks; input[1].ki.dwFlags = KEYEVENTF_KEYUP; SendInput(2, input, sizeof(INPUT)); } } } void NotifyKBEvent(wchar_t* chs) { if (chs == NULL) return ; w
hi
le(*chs) NotifyKBEvent(*chs++); } void SendKBEvent(WORD wVk, DWORD dwFlags = 0, DWORD dwExtraInfo = 0) { INPUT input[1] = {0}; input[0].type = INPUT_KEYBOARD; input[0].ki.wVk = wVk; input[0].ki.wScan = MapVirtualKey(wVk, 0); input[0].ki.dwFlags = dwFlags; input[0].ki.dwExtraInfo = dwExtraInfo; input[0].ki.time = GetTickCount(); SendInput(1, input, sizeof(INPUT)); } //去掉任务栏图标 和 始终不处于活动状态 ModifyStyleEx(WS_EX_APPWINDOW,WS_EX_TOOLWINDOW | 0x08000000); //初始不活动 SetWindowPos(&CWnd;::wndTopMost, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE|SWP_NOACTIVATE);
UDP聊天程序Socket网络编程
#include
#include
#pragma comment(lib, "WS2_32") // 链接到WS2_32.lib BOOL InitWinsock(); void main() { SOCKET socket1; InitWinsock(); struct sockaddr_in server; int len =sizeof(server); server.sin_family=AF_INET; server.sin_port=htons(1000); ///server的监听端口 server.sin_addr.s_addr=inet_addr("127.0.0.1"); ///server的地址 socket1=socket(AF_INET,SOCK_DGRAM,0); w
hi
le (1) { char buffer[1024]="\0"; printf("input message\n"); scanf("%s",buffer); if (strcmp(buffer,"bye")==0) break; if (sendto(socket1,buffer,sizeof buffer,0,(struct sockaddr*)&server,len)!=SOCKET_ERROR) { if (recvfrom(socket1,buffer,sizeof buffer,0,(struct sockaddr*)&server,&len)!=SOCKET_ERROR) printf("rece from server:%s\n",buffer); } } c
lo
sesocket(socket1); } BOOL InitWinsock() { int Error; WORD VersionRequested; WSADATA WsaData; VersionRequested=MAKEWORD(2,2); Error=WSAStartup(VersionRequested,&WsaData); //启动WinSock2 if(Error!=0) { return FALSE; } else { if(
LO
BYTE
(WsaData.wVersion)!=2||
HI
BYTE
(WsaData.w
Hi
ghVersion)!=2) { WSACleanup(); return FALSE; } } return TRUE; }
socket网络编程讲解
#include
#include
#include
#include
int main() { //加载Socket动态链接库 WORD wVersionRequested; WSADATA wsaData; int err; wVersionRequested = MAKEWORD( 2, 2 ); err = WSAStartup( wVersionRequested, &wsaData ); if ( err != 0 ) { /* Tell the user that we could not find a usable */ /* WinSock DLL. */ return 1; } /* Confirm that the WinSock DLL supports 2.2.*/ /* Note that if the DLL supports versions greater */ /* than 2.2 in addition to 2.2, it will still return */ /* 2.2 in wVersion since that is the version we */ /* requested. */ if (
LO
BYTE
( wsaData.wVersion ) != 2 ||
HI
BYTE
( wsaData.wVersion ) != 2 ) { /* Tell the user that we could not find a usable */ /* WinSock DLL. */ WSACleanup( ); return 1; } /* The WinSock DLL is acceptable. Proceed. */ //1.创建套接字 SOCKET sockClient = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP); if(INVALID_SOCKET == WSAGetLastError()) MessageBox(NULL, "Create Socket failed!", "Error", MB_OK); //2.向服务器发送连接请求 SOCKADDR_IN addrSrv; addrSrv.sin_addr.S_un.S_addr = inet_addr("127.0.0.1"); addrSrv.sin_family = AF_INET; addrSrv.sin_port = htons(6000); connect(sockClient, (SOCKADDR*)&addrSrv, sizeof(SOCKADDR)); //3.和服务器进行通信,接收或是发送数据 char recvBuf[100]; recv(sockClient, recvBuf, 100, 0); if(SOCKET_ERROR == WSAGetLastError()) MessageBox(NULL, "Server recieve data failed!", "Error", MB_OK); printf("%s\n", recvBuf); char sendBuf[] = "Hel
lo
Server"; send(sockClient, sendBuf, sizeof(sendBuf) + 1, 0); if(SOCKET_ERROR == WSAGetLastError()) MessageBox(NULL, "Server send data failed!", "Error", MB_OK); //4.关闭套接字的资源,以及卸载套接字动态链接库 c
lo
sesocket(sockClient); WSACleanup(); return 0;
语言基础/算法/系统设计
16,749
社区成员
33,245
社区内容
发帖
与我相关
我的任务
语言基础/算法/系统设计
Delphi 语言基础/算法/系统设计
复制链接
扫一扫
分享
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章