求助高手：用indy的tcp控件发送和接收数组该用什么函数？

2008-03-13 04:45:33 211 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python4Delphi：在Delphi应用中嵌入Python解释器的完整指南在软件开发中，脚本语言嵌入是扩展原生应用能力的常见技术方案，其核心原理是通过桥接层在宿主进程中加载并控制外部解释器。这种技术能显著提升开发效率，允许开发者复用成熟的第三方生态库，实现“专业工具做专业事”的架构优势。Python作为当前最流行的胶水语言，拥有丰富的数据科学、机器学习与网络爬虫库，而Delphi则是经典的Windows原生应用开发平台。Python4Delphi（P4D）正是连接这两大生态的桥梁，它通过在Delphi进程中嵌入完整的Python解释器，让开发者能在保持VCL/FireMonkey 阅读详情

write（） writeln（）都是发送字符串
writestream（）发送流，也是字符串
witeinteger（）发送整数
~~~~~~

我想发送数组，还有接收？请问该用哪个函数？

...全文

逆强化学习：从专家示范中学习策略逆强化学习（Inverse Reinforcement Learning，简称IRL）是强化学习（Reinforcement Learning，简称RL）的一个子领域，它的目标是从专家的行为中学习策略。在传统的强化学习中，智能体通过与环境交互，根据奖励信号来学习一个策略。而在逆强化学习中，我们没有直接的奖励信号，而是通过观察专家的行为来推断出奖励函数，从而学习到一个与专家类似的策略。逆强化学习作为强化学习的一个重要子领域，在许多实际应用场景中都取得了显著的成功。阅读详情

renxucai

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

renxucai 2008-03-31

打赏
举报

应该是数组的定义上的问题，后来不用变体，我改成
Sendarray:array[0..9]of byte;
用idtcpclient.writebuffer(sendarray,10);
接收到的数据都正常了。
接收的时候用的
idtcpclient.readbuffer();
idtcpclient.readbuffer(),要指明读取的数据的长度，可以读取长度再读取数据的，用的size:=idtcpclient.readfromstack(false,-1,false);
算是可以结贴了，谢谢大家的鼓励。

renxucai 2008-03-14

打赏
举报

对。
我用socket.send 发送用 Socket.Recv()接收，可以收到数据。
可问题是：
为什么发送和接收到的不一致呢？？
我的发送端：
procedure TForm1.BtnSendClick(Sender: TObject);
var
sendarray: variant;

begin

with IdTCPClient do
begin
try

fillchar(sendarray,10,0);
sendarray:=varArrayCreate([0,9],varbyte);
sendarray[0]:=byte($FF);
sendarray[1]:=byte($FF);
sendarray[2]:=byte($FF);
sendarray[3]:=byte($FF);
sendarray[4]:=byte($FF);
sendarray[5]:=byte($FF);
sendarray[6]:=byte($FF);
sendarray[7]:=byte($FF);
sendarray[8]:=byte($FF);
sendarray[9]:=byte($FF);

idtcpclient.Socket.Send(sendarray,10);
end;
end;
我的接收端：
procedure TForm1.IdTCPServerExecute(AThread: TIdPeerThread);
var
received: array[0..9] of byte;

begin
with AThread.Connection do
begin
AThread.Connection.Socket.Recv(received,10);
end；
end;

不管发送数据是什么接收到 17 32 * * * * * ,前两个字节是17 32
请问为什么？怎么改？
非常感谢。

UndefinedCoder 2008-03-14

打赏
举报

sendarray:=varArrayCreate([0,9],varbyte);
sendarray[0]:=byte($FF);
sendarray[1]:=byte($FF);
sendarray[2]:=byte($FF);
sendarray[3]:=byte($FF);
sendarray[4]:=byte($FF);
sendarray[5]:=byte($FF);
sendarray[6]:=byte($FF);
sendarray[7]:=byte($FF);
sendarray[8]:=byte($FF);
sendarray[9]:=byte($FF);
既然都是Byte数据，为什么要创建变体数组？不管你传什么数据，字符串也好，常规数组也好，传递的都是一块内存，你不会不知道你所要传递的数据的内存起始地址和长度吧？

renxucai 2008-03-14

打赏
举报

很着急，有知道的么？

delphiboy_lwb 2008-03-13

打赏
举报

其实这几个都一样
数组就是字符串，在内存单元中的结构是一样的
procedure TForm1.Button1Click(Sender: TObject);
var
s: array [1..100] of byte;
len: integer;
begin
fillchar(s, 100, 0);
//数组付值
IdTCPClient1.Socket.Send(s, len );
end;

求助高手：用indy的tcp控件发送和接收数组该用什么函数？

相关推荐