procedure
TForm1
.
clntsckt1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
mmo1
.
Lines
.
Add(clntsckt1
.
Socket
.
ReceiveText());
end
;
procedure
TForm1
.
btn1Click(Sender: TObject);
begin
clntsckt1
.
Host:=edt1
.
Text;
clntsckt1
.
Port:=
21
;
clntsckt1
.
Open;
end
;
procedure
TForm1
.
btn2Click(Sender: TObject);
begin
clntsckt1
.
Socket
.
SendText(
'USER '
+ edt2
.
Text + #
13
#
10
);
clntsckt1
.
Socket
.
SendText(
'PASS '
+ edt3
.
Text + #
13
#
10
);
end
;
procedure
TForm1
.
btn3Click(Sender: TObject);
begin
clntsckt1
.
Socket
.
SendText(
'CWD '
+ '\' + #
13
#
10
);
end
;
procedure
TForm1
.
btn4Click(Sender: TObject);
begin
portA := Random(
179
);
portB := IntToStr(portA);
clntsckt1
.
Socket
.
SendText(
'PORT '
+
'127,0,0,1,8,'
+ portB + #
13
#
10
);
clntsckt1
.
Socket
.
SendText(
'LIST'
+ #
13
#
10
);
end
;
procedure
TForm1
.
btn5Click(Sender: TObject);
begin
clntsckt1
.
Socket
.
SendText(
'QUIT'
+ #
13
#
10
);
end
;