delphi开发的客户端怎么无法连接9730端口?
服务器是一个网络设备，目前在内网，IP固定为192.168.1.123，开放9707~9738共31个连续端口(用XP自带的超级终端试过了，这些端口都可以正常连接、通讯)。
用TcpClient控件写的客户端软件，就9730这个端口无法建立连接、通讯，代码如下，程序运行到 “MyTcpClient.Open;”时就报错，MyTcpClient.OnError返回10061和10057两个错误代码。请问是怎么回事？
procedure TFormSMS.E1SendClick(Sender: TObject);
var
MyTcpClient:TTcpClient;
ID:DWORD;
Rec:string;
index:Integer;
begin
MyTcpClient :=TTcpClient.Create(nil);
MyTcpClient.BlockMode := bmBlocking;
MyTcpClient.Name := 'MyTempTcpClient';
MyTcpClient.OnError := TcpClient1Error;
MyTcpClient.RemoteHost := RzEditE1IP.Text;
MyTcpClient.RemotePort := RzEditE1Port.Text;
MyTcpClient.Open;
Sleep(100);
if MyTcpClient.Active then
begin
if MyTcpClient.Sendln(RzEditE1Command.Text) > 0 then
begin
...
end;
end;
MyTcpClient.Close;
MyTcpClient.Free;
end;
看看9730端口是不是被其他程序占用了。
没有被占用，占用了超级终端应该也连不上才对。
是否有防火墙？
在客户端，用tel 看一下是否可以？
没有防火墙，主要是用超级终端可以，而自己写的客户端就那个端口不行才奇怪。
有没有哪个大哥知
相关问答：
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
mov eax,[eax]
xor eax,[ecx+4]
cmp eax,0
je @b
end;
这样写编译不过去。请问如何� ......
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
Delphi(Pascal) code:
function DBGridEhToExportFile(dbgrideh:TDBGridEh;filename:string='导出的文件'):boolean ;
var ExpClass:TDBGridEhExportClass;
Ext:String;
savedialog1:tsavedialog;
b ......
MessageBox(0,PChar('L'),PChar('LL'),0);
结果：PChar('LL') 显示 ，但PChar('L') 不显示．
var
p1, p2: PChar;
begin
p1 := PChar('L');
p2 := PChar('LL');
MessageBo ......
