如果我将TServerSocket的端口设置成21,监听的IP是本机,然后在ftp中输入ftp://(本机IP)这样我的TServerSocket可以接受到信息吗??
我试了一下,好象不能接受到呀!!!!
我试了一下,好象不能接受到呀!!!!
解决方案 »
- textout把画的线覆盖了怎么办?
- 关于复选排队运行程序的实现
- delphi中怎么样将DataGrid 的数据导出到Excel
- IDudpserver中的send与sendbuff区别
- 请教关于rtti中的GetMethodProp
- DBgrid数据更新的定位问题,真急人阿?
- Dll问题
- 如何判断table是否存在?RemoveDir怎么不好使?
- 哪里能找到delphi自带例程的详细说明
- 拜托有谁可快点告诉我,改变某个字段在所有记录中的值??
- 我写了一个大头贴程序,大家抽空看看
- 如何在Access数据库中用SQL语句将某个字段修改为相当于SQL Server的decimal(18, 4)类型
你必须启动FTP服务,而不是简单的把断口改了
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
s:string;
begin
s:='hello!!!'#13#10;
Socket.SendText(s);
end;
var
ReceivedText : string;
MsgType : Integer;
MsgContent : string;
begin
ReceivedText := Socket.ReceiveText();
Memo1.Text := Memo1.Text + ReceivedText;
MsgType := StrToInt(LeftStr(ReceivedText, 3));
case state of
0:
case MsgType of
220:
begin
state := 1;
Socket.SendText('USER xxx'+chr(13)+chr(10));
end;
end;
1:
case MsgType of
331:
begin
state := 2;
Socket.SendText('PASS xxx'+chr(13)+chr(10));
end;
end;
2:
case MsgType of
530:
begin
state := 0;
MessageDlg('Can not log in!',mtinformation,[mbok],0);
end;
230:
begin
state := 3;
Socket.SendText('LIST'+chr(13)+chr(10));
end;
end;
end;end;