- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
嗯,我有这段代码,我尝试从客户端接收数据,但碰巧 GetLastError()
返回:
10038 -
WSAENOTSOCK
An operation was attempted on something that is not a socket.
我怀疑这个问题与将 Pointer
转换为 TSocket
有关,已经是 ClientThread()
下面的函数通过您的参数接收套接字。
如何解决这个问题?
const
Buffer: array [0 .. 9] of AnsiChar = ('A', 'B', 'C', 'D', 'E', 'F', 'G',
'H', 'I', #0);
function ClientThread(P: Pointer): Integer;
var
Buf: array [0 .. SizeOf(Buffer) - 1] of AnsiChar;
Sock: TSocket;
begin
Result := 0;
Writeln('New thread started.' + #13#10);
Sock := TSocket(P);
if recv(Sock, Buf, SizeOf(Buffer), 0) <= 0 then //My trouble is here.
begin
Writeln(GetLastError);
closesocket(Sock);
Result := 0;
Exit;
end;
if not CompareMem(@Buf, @Buffer, SizeOf(Buffer)) then
begin
closesocket(Sock);
Result := 0;
Exit;
end;
end;
function StartServer(Port: Integer): Boolean;
var
_wsdata: WSAData;
serverSocket, S: TSocket;
_addrIn, _addr: sockaddr_in;
addrSize: Integer;
tid: Cardinal;
begin
Result := False;
if WSAStartup(MakeWord(2, 2), _wsdata) <> 0 then
Exit;
serverSocket := socket(AF_INET, SOCK_STREAM, 0);
if serverSocket = INVALID_SOCKET then
Exit;
_addrIn.sin_family := AF_INET;
_addrIn.sin_addr.S_addr := INADDR_ANY;
_addrIn.sin_port := htons(Port);
if bind(serverSocket, _addrIn, SizeOf(_addrIn)) = SOCKET_ERROR then
Exit;
if listen(serverSocket, SOMAXCONN) = SOCKET_ERROR then
Exit;
addrSize := SizeOf(_addrIn);
getsockname(serverSocket, _addrIn, addrSize);
Writeln(Format('Listening on port %d' + #13#10, [ntohs(_addrIn.sin_port)]));
while True do
begin
S := accept(serverSocket, @_addr, @addrSize);
CreateThread(nil, 0, @ClientThread, @S, 0, tid);
end;
Result := True;
end;
用法:
StartServer(1234);
最佳答案
你犯了几个错误。
您的 ClientThread()
签名错误。它必须像这样定义:
function ClientThread(P: Pointer): DWORD; stdcall;
如果没有stdcall
,P
参数将无法正确传入。
您正在将指向本地 TSocket
变量的指针传递给您的线程。在您的 ClientThread()
中,您没有取消引用该指针来访问原始 TSocket
,这就是导致错误消息的原因。
但更重要的是,您为多个客户端线程重复使用相同的 TSocket
变量。所有线程都指向同一个物理 TSocket
。不要使用 @
运算符,将 TSocket
的副本传递给每个客户端线程。幸运的是,TSocket
只是一个 UINT
,它的值将按原样放入指针内部。
并且您需要在线程退出之前关闭该TSocket
。如果 CompareMem()
返回 true,则不会调用 closesocket()
。
您正在泄漏线程,因为您从未关闭 CreateThread()
返回的 THandle
。
话虽如此,试试这个:
const
Buffer: array [0 .. 9] of AnsiChar = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', #0);
function ClientThread(P: Pointer): DWORD; stdcall;
var
Buf: array [0 .. SizeOf(Buffer) - 1] of AnsiChar;
Sock: TSocket;
Ret, NumRead: integer;
begin
Result := 0;
Sock := TSocket(P);
try
WriteLn('New thread started.');
NumRead := 0;
repeat
Ret := recv(Sock, @Buf[NumRead], SizeOf(Buffer)-NumRead, 0);
if Ret <= 0 then
begin
if Ret = SOCKET_ERROR then
begin
Ret := WSAGetLastError;
Writeln('recv error: ', Ret);
end;
Exit;
end;
Inc(NumRead, Ret);
until NumRead = Sizeof(Buffer);
if not CompareMem(@Buf, @Buffer, SizeOf(Buffer)) then
begin
WriteLn('Buf does not match Buffer');
Exit;
end;
WriteLn('Buf matches Buffer');
finally
closesocket(Sock);
end;
end;
function StartServer(Port: Integer): Boolean;
var
_wsdata: WSAData;
serverSocket, S: TSocket;
_addrIn, _addr: sockaddr_in;
addrSize, Ret: Integer;
tid: Cardinal;
h: THandle;
begin
Result := False;
Ret := WSAStartup(MakeWord(2, 2), _wsdata);
if Ret <> 0 then
begin
WriteLn('WSAStartup error: ', Ret);
Exit;
end;
try
serverSocket := socket(AF_INET, SOCK_STREAM, 0);
if serverSocket = INVALID_SOCKET then
begin
Ret := WSAGetLastError;
WriteLn('socket error: ', Ret);
Exit;
end;
try
_addrIn.sin_family := AF_INET;
_addrIn.sin_addr.S_addr := INADDR_ANY;
_addrIn.sin_port := htons(Port);
if bind(serverSocket, _addrIn, SizeOf(_addrIn)) = SOCKET_ERROR then
begin
Ret := WSAGetLastError;
WriteLn('bind error: ', Ret);
Exit;
end;
if listen(serverSocket, SOMAXCONN) = SOCKET_ERROR then
begin
Ret := WSAGetLastError;
WriteLn('listen error: ', Ret);
Exit;
end;
addrSize := SizeOf(_addrIn);
getsockname(serverSocket, _addrIn, addrSize);
WriteLn('Listening on port ', ntohs(_addrIn.sin_port));
while True do
begin
addrSize := SizeOf(_addr);
S := accept(serverSocket, @_addr, @addrSize);
if S <> INVALID_SOCKET then
begin
WriteLn('Client connected.');
h := CreateThread(nil, 0, @ClientThread, Pointer(S), 0, tid);
if h = 0 then
begin
Ret := GetLastError;
closesocket(S);
WriteLn('CreateThread error: ', Ret);
end;
end;
end;
finally
closesocket(serverSocket);
end;
finally
WSACleanup;
end;
Result := True;
end;
关于delphi - WinSock:10038 - WSAENOTSOCK 尝试对非套接字的操作,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55821472/
在 Windows 世界中,什么是正确的名称。具有导出函数的老式 C++ DLL?不是 COM DLL,也不是 .NET DLL。我们以前通过调用 LoadLibrary() 和 GetProcAdd
目前我正在使用javaEE7,我有一个场景如下。在我的 JSF Web 应用程序中,我有一个事件监听器(不是 JSF 事件),当事件调用时,它会执行某些操作,然后将这些信息更新到我的 Web 应用程序
这不是 AJAX 请求/响应回调问题... 我正在使用 Dojo 1.5 构建网格。我正在尝试 dojo.connect具有功能的扩展/收缩按钮。我的问题是 grid.startup()在创建实际 D
非 Webkit Opera 是 very specific在某些功能中,因此通常通过 JavaScript 检测到 the following way . 但是,Opera Next 几乎是 Goo
我已查看以下链接中给出的所有日志,但未能找到 IP 地址: https://developer.couchbase.com/documentation/server/3.x/admin/Misc/Tr
我有一个命令行程序,它根据一组源文件生成一个我想在我的 Android gradle 构建 (A) 中使用的 jar 文件。这个命令行程序只是将一个 jar 文件存储在磁盘上的一个目录中。 我如何创建
下面的 htaccess 命令将所有非 www 转移到 http www RewriteEngine On RewriteCond %{HTTP_HOST} !^www\. RewriteRule ^
我正在使用自定义链接器脚本将内核镜像分为两部分。第一个是普通代码和数据,第二个是初始化代码和不再需要时将被丢弃的数据。初始化部分也不像内核本身那样在地址空间之间共享,因此如果 fork() 仍然存在(
这个问题在这里已经有了答案: Several unary operators in C and C++ (3 个答案) What is the "-->" operator in C++? (29
假设我有一个类设置如下: class A { public: virtual void foo() { printf("default implementation\n"); } }; c
#include using namespace std; int main(int argc, char *argv[]) { int i=-5; while(~(i)) {
近期,百度搜索引擎变化无常,很多企业站、行业站、门户站、论坛等站点遭到了降权,特别是比比贴分类信息网直接遭到了拔毛,这对于广大站长来说是一种打击,也是各个企业、行业的打击。 至今,很多网站已经恢复
我现在正在使用 IBM TPM v1332 + IBM TSS v1470 并尝试将一些基本关键字/密码存储到 TPM 上的非 volatile 内存中。我找到了两种方法。一种是创建一个密封对象并使用
我的 PHP 脚本中有一个正则表达式,如下所示: /(\b$term|$term\b)(?!([^)/iu 这与 $term 中包含的单词匹配,只要前后有单词边界并且它不在 HTML 标记内即可。 但
我想显示用户名称地址(请参阅 www.ipchicken.com ),但我唯一能找到的是 IP 地址。我尝试了反向查找,但也没有用: IPAddress ip = IPAddress.Parse(th
只有 UI 线程能够显示到屏幕上,还是其他线程也可以这样做? 最佳答案 不,您只能直接从 UI 线程访问 UI,但您可以编码来自其他线程的结果,例如使用 Control.Invoke 或 contro
我正在使用现代 Excel 滚动条(不是旧的 ActiveX 类型,即开发人员 > 插入 > 表单控件 > 滚动条)并且想检测它的值何时更改。我找不到有关此类对象的更改事件的任何信息。您可以在单击时分
当我使用这段代码时 IE 6 确实正确使用了指定的样式表,但所有其他浏览器在应该使用基本上声明的样式表时会忽略这两种样式表,如果您不是 IE,请使用此样式表。 有什么想法吗? 最佳答案 n
我想指定 2 mssql 表之间的关系。 付款类别和付款。 paymentcategory.id 加入 payout.category 列。 在 payout.json 模型中 我指定为外键:id,
我正在尝试制作非 volatile UDF,但似乎不可能。因此,这是我非常简单的test-UDF: Option Explicit Dim i As Integer Sub Main() i = 0
我是一名优秀的程序员,十分优秀!