我想做一程序telnet到pop3 server并在連線後自動登錄,但為何失敗,請幫我看看.
procedure TForm1.TelnetConnected(Sender: TObject);
var
s:string;
i:integer;
begin
status.SimpleText:='Connected';
s:='user user18' ;
for i := 1 to length(s) do
telnet.SendCh(s[i]);
telnet.SendCh(#13);
s:='pass 123456';
telnet.SendCh(s[i]);
telnet.SendCh(#13);
end;
procedure TForm1.TelnetConnected(Sender: TObject);
var
s:string;
i:integer;
begin
status.SimpleText:='Connected';
s:='user user18' ;
for i := 1 to length(s) do
telnet.SendCh(s[i]);
telnet.SendCh(#13);
s:='pass 123456';
telnet.SendCh(s[i]);
telnet.SendCh(#13);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货