delphi 问题求助 - Delphi / 网络通信/分布式开发
问题是这样子的
我在form1中定义了一个sk1:tsocket
然后在form2中
用sk1 发送东西 发完后 socket 自动关闭了~
但是在form1中发东西 如果我不运行 closesocket 的话 是不会断掉的
问下 这是怎么回事
另我在 form2 里加了个
uses Unit1;
直接调用 sk1~
这样子应该没问题吧~
单步调试了下~
type
test_array=array[0..211] of Byte;
var
re:integer;
message_headpack:array[0..3] of Byte;
test_byte:array[0..207] of Byte;
send_pack:test_array;
psend_pack:^test_array;
~~~~~~~~~~~~~~~~~~~~
前边是些赋值语句就不复制了
for i:=0 to sizeof(message_headpack)-1 do
send_pack[i]:=message_headpack[i];
for i:=SizeOf(message_headpack)to SizeOf(send_pack)-1 do
send_pack[i]:=test_byte[i-sizeof(message_headpack)];
re:=send(sk1,psend_pack^,Length(psend_pack^),0);
//单步运行到这一步 就发现信息包发出去后 然后socket也自动关闭了~sk1是套接字~我在unit1中定义的
if(Re=SOCKET_ERROR)then
begin
ShowMessage('发送错误');
exit;
end;
form2.Release;
close;
高手帮我看下
顶起来~
这个到底是怎么回事啊~
服务器是用C写的
我在unit1 下发送 是不会断开的~
但在unit2 下发送 socket就断开了~
加个输出错误信息看下
uses
Winsock2;
try
re:=send(sk1,psend_pack^,Length(psend
相关问答：
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
有没有办法实现跟QQ邮箱一样的效果，点击左边的菜单，右边刷新，多个页面间切换，而左边的菜单栏不变
有很多控件可以实现
等你分加分，我给你写个源码。这点分实在没有动力回答。
ExpressBars
看看。
� ......
adoconnection1.ConnectionString := 'driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=111111;database=xiamen';
adoconnection1.Open;
adodataset1.Connection := adoconne ......
