| tq0evqv
42462
|
2012/5/15 16:30:44 |
| http://download2.pudn.com/downloads188/sourcecode/windows/network/46158354AFC910.4.rar |
| wynney
37800
|
2009/6/24 22:52:19 |
| 无法下载 |
| jiangwang
37408
|
2009/5/5 14:00:42 |
| 不能下载了？ |
| fffddd
37161
|
2009/4/10 19:44:25 |
| 不知道是用是d几编译的？ |
| smll8402
37157
|
2009/4/10 10:59:17 |
| 。。。如果改进带下载文件所在目标目录就更好了。。 |
| skywings
37138
|
2009/4/9 12:52:38 |
//-------如下就好。
with idtcpsrvr1 do
begin
try
Bindings.Clear;
Bindings.Add;
Bindings.Items[0].IP := '127.0.0.1';
Bindings.Items[0].Port := ListenPort;
if 0< lIpStr.Count then
begin
for I:= 0 to lIpStr.Count - 1 do
begin
if 0 <> CompareStr(Trim(lIpStr[I]),'127.0.0.1') then
begin
Bindings.Add;
Bindings.Items[I+1].IP := lIpStr[I];
Bindings.Items[I+1].Port := ListenPort;
end;
end;
end;
except
lIpStr.Free;
Result:= False;
Exit;
end;
end; |
| skywings
37136
|
2009/4/9 12:34:03 |
说个bug...TidTcpServer在binds上要遍历机器的所有网络接口。。。
使用默认lo 127.0.0.1 可能会有些问题，看下面代码，改改就可以了
with idtcpsrvr1 do
begin
try
Bindings.Clear;
// Bindings.Add;
// Bindings.Items[0].IP := '127.0.0.1';
// Bindings.Items[0].Port := ListenPort;
if 0< lIpStr.Count then
begin
for I:= 0 to lIpStr.Count - 1 do
begin
Bindings.Add;
Bindings.Items[I].IP := lIpStr[I];
Bindings.Items[I].Port := ListenPort;
end;
end;
except
lIpStr.Free;
Result:= False;
Exit;
end; |
