- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
下面的代码旨在通过线程内的套接字读取数据。
//main method from dll
function GetSocketData(const IP, Port: PChar): PChar; export; cdecl;
var
Thread: TMyThread;
DataIsRead: TEvent;
begin
DataIsRead := TEvent.Create(nil, True, False, '');
Thread:= TMyThread.Create(DataIsRead, IP, Port);
DataIsRead.WaitFor(INFINITE);
Result := BlockAlloc(Thread.ResultData);
DataIsRead.Free;
Thread.Free;
end;
TMyThreadBase = class(TThread)
protected
FResultData: string;
public
constructor Create;
property ResultData: string read FResultData;
end;
constructor TMyThreadBase.Create;
begin
inherited Create(False); // Suspended
FResultData := '';
FreeOnTerminate := False;
end;
TMyThread = class(TMyThreadBase)
private
FMyData: TMyData;
FSocketCom: TSocketCom;
//other params
protected
procedure Connect(Sender: TObject);
procedure Execute; override;
public
constructor Create(DataIsRead: TEvent; const IP, Port: PChar);
destructor Destroy; override;
end;
constructor TMyThread.Create(const IP, Port: PChar);
begin
inherited Create;
/init params/
CoInitialize(nil);
FSocketCom := ComCreate(FPort, FIP);
FSocketCom.OnConnect := Connect;//Connect method sends the special command to the port {`ClientSckt.Socket.SendBuf(B[0], Count)`}
FSocketCom.Reopen;
FMyData := TMyData.Create(DataIsRead, FSocketCom);//class used for received data interpretation
//DataIsRead event is being set when all data is interpreted
FSocketCom.SetRxFunc(FMyData.NCData);//set method for data interpretation
FMyData.InitData(...);//init values needed while data is being interpreted
end;
destructor TMyThread.Destroy;
begin
CoUninitialize;
inherited;
end;
procedure TMyThread.Execute;
begin
inherited;
while not Terminated do
Sleep(100);
//that is the place where I do not know what to do to wait while OnRead event is fired.
end;
TSocketCom = class(TCustomCom)
private
ClientSckt: TClientSocket;
procedure SocketConnect(Sender: TObject; Socket: TCustomWinSocket);
procedure SocketRead(Sender: TObject; Socket: TCustomWinSocket);
protected
procedure SetThread; override;
public
constructor Create;
destructor Destroy; override;
function Open:Boolean; override;
function Read( Buf:PAnsiChar; Size:Integer; Wait:Integer = 0 ):Integer; override;
end;
procedure TCustomCom.SetRxFunc(OnRxData: TRxDataEvent);
begin
...
SetThread;
...
end;
function TSocketCom.Open:boolean;
var
i,j:integer;
begin
...
ClientSckt:=TClientSocket.Create(nil);
ClientSckt.ClientType:=ctBlocking;
ClientSckt.HostAndAddress:='127.0.0.0';
ClientSckt.Port:=1234;
ClientSckt.OnConnect:=SocketConnect;
ClientSckt.Open;
...
end;
function TSocketCom.Read(Buf:PAnsiChar;Size:Integer; Wait:Integer):Integer;
begin
if Opened then
Result:=ClientSckt.Socket.ReceiveBuf(Buf^,Size);
if Result<0 then Result:=0;
end;
procedure TSocketCom.SetThread;
begin
inherited;
ClientSckt.OnRead:=SocketRead;
end;
最佳答案
这种代码是对线程的滥用(以及对FreeOnTerminate
属性的滥用),因为调用代码被阻塞等待线程终止,所以首先没有理由拥有线程。
话虽如此,默认情况下 TClientSocket
在非阻塞模式下运行,它在内部使用窗口消息来触发套接字事件。激活套接字的线程需要有一个消息循环,以便可以正确接收和发送这些套接字通知。否则,正如马丁所说,您必须在阻塞模式下使用套接字。
更新:
您显示的更新代码在多个级别上都是完全错误的。线程全错了。 TClientSocket
用法都是错的。鉴于您的 GetSocketData()
的阻塞性质函数,根本不需要在内部使用任何线程(特别是因为你说 GetSocketData()
本身是在一个线程中调用的,所以额外的线程是矫枉过正的),而且你不应该为 TClientSocket
而烦恼。事件,尤其是 OnRead
尤其是事件,因为它根本不会在阻塞模式下被调用(这是您问题的根源!)。
你让你的代码变得更复杂了。使用更像这样的东西:
function GetSocketData(const IP, Port: PChar): PChar; export; cdecl;
var
ClientSckt: TClientSocket;
//other params
begin
Result := nil;
try
/init params/
CoInitialize(nil);
try
ClientSckt := TClientSocket.Create(nil);
try
ClientSckt.ClientType := ctBlocking;
ClientSckt.HostAndAddress := IP;
ClientSckt.Port := Port;
ClientSckt.Open;
try
// send the special command to the port from here
// read all data and interpret from here
Result := BlockAlloc(...);
finally
ClientSckt.Close;
end;
finally
ClientSckt.Free;
end;
finally
CoUninitialize;
end;
except
end;
end;
关于multithreading - Delphi:在主线程外创建和使用套接字,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8834924/
我正在维护一些 Java 代码,我目前正在将它们转换为 C#。 Java 代码是这样做的: sendString(somedata + '\000'); 在 C# 中,我正在尝试做同样的事情: sen
如何确定函数中传递的参数是字符串还是字符(不确定如何正确调用它)文字? 我的函数(不正确): void check(const char* str) { // some code here }
我真的不知道如何准确地提出这个问题,但我希望标题已经说明了这一点。 我正在寻找一种方法(一个框架/库),它提供了执行 String.contains() 函数的能力,该函数告诉我给定的字符串是否与搜索
我正在尝试编写一些读取 Lambda 表达式并输出 beta 缩减版本的东西。 Lambda 的类型如下:\variable -> expression,应用程序的形式为 (表达式) (表达式)。因此
StackOverflow 上的第 1 篇文章,如果我没能把它做好,我深表歉意。我陷入了一个愚蠢的练习,我需要制作一个“刽子手游戏”,我尝试从“.txt”文件中读取单词,然后我得到了我的加密函数,它将
我想在 Groovy 中测试我的 Java 自定义注释,但由于字符问题而未能成功。 Groovyc: Expected 'a' to be an inline constant of type cha
当我尝试在单击按钮期间运行 javascript location.href 时,出现以下错误“字 rune 字中的字符过多”。 最佳答案 这应该使用 OnClientClick相反? 您可能还想停
我想要类似的东西: let a = ["v".utf8[0], 1, 2] 我想到的最接近的是: let a = [0x76, 1, 2] 和 "v".data(using: String.Encod
有没有办法在 MySQL 中指定 Unicode 字 rune 字? 我想用 Ascii 字符替换 Unicode 字符,如下所示: Update MyTbl Set MyFld = Replace(
阅读 PNG 规范后,我有点惊讶。我读过字 rune 字应该用像 0x41 这样的二进制值进行硬编码,而不是在(程序员友好的)'A' 中。问题似乎是在具有不同底层字符集的不同系统上编译期间字 rune
考虑一个具有 UTF-8 执行字符集的 C++11 编译器(并且符合要求 char 类型为有符号 8 位字节的 x86-64 ABI) . 字母 Ä(元音变音)具有 0xC4 的 unicode 代码
为什么即使有 UTF-8 字符串文字,C11 或 C++11 中也没有 UTF-8 字 rune 字?我知道,一般来说,字 rune 字表示单个 ASCII 字符,它与单字节 UTF-8 代码点相同,
我怎样才能用 Jade 做到这一点? how would I do this 我几乎可以做任何事情,除了引入一个 span 中间句子。 最佳答案 h3.blur. how would I do t
这似乎是一个非常简单的问题,但我只是想澄清我的疑问。我正在查看其他开发人员编写的代码。有一些涉及 float 的计算。 示例:Float fNotAvlbl = new Float(-99); 他为什
我想知道第 3 行“if dec:”中的“dec”是什么意思 1 def dec2bin(dec): 2 result='' 3 if dec:
我试图在字符串中查找不包含任何“a”字符的单词。我写了下面的代码,但它不起作用。我怎么能对正则表达式说“不包括”?我不能用“^”符号表示“不是”吗? import re string2 = "asfd
这个问题在这里已经有了答案: Is floating point math broken? (31 个答案) Is floating point arbitrary precision availa
我正在创建一个时尚的文本应用程序,但在某些地方出现错误(“字 rune 字中的字符太多”)。我只写了一个字母,但是当我粘贴它时,它会转换成许多这样的字母:“\uD83C\uDD89”,原始字母是“🆉
我正在尝试检查用户是否在文本框中输入了一个数字值,是否接受了小数位。非常感谢任何帮助。 Private Sub textbox1_AfterUpdate() If IsNumeric(textbox1
我知道一个 Byte 是 8 位,但其他的代表什么?我正在参加一个使用摩托罗拉 68k 架构的汇编类(class),我对目前的词汇感到困惑。 最佳答案 如 operator's manual for
我是一名优秀的程序员,十分优秀!