안녕하세요
몇가지 궁굼해서요
지금 밑에 프로그램을 컴퓨터가 시작되면서 자동으로 실행되도록 했습니다
그래서 서버에서 특정파일을 가져와 실행하도록 하는 간단한 프로그램입니다
컴퓨터가 실행되면 프로그램이 서버로 접속하려 합니다 그런데 컴터가
켜지면서 바로 네트워크가 연결되는게 아니잖아요 사양에따라 조금에
딜레이가....
이때 네트워크가 연결될때까지 네트워크에 접속을 안시키도록 했습니다
그런데 한가지 궁굼한건 선이 랜선이 빠졌을땐 바로 error code 10065가 뜨네요
랜선이 빠졌을땐 랜선 빠졌다고 처리하고 싶은데 어떻게 해야 하나요?
procedure TForm1.FormCreate(Sender: TObject);
begin
btnping.click;
end;
procedure TForm1.ICMPReply(ASender: TComponent; const ReplyStatus: TReplyStatus);
begin
if ReplyStatus.ReplyStatusType = rsEcho then
begin
btnlgn.click;
end
else begin
sleep(3000);
btnping.click;
end;
end;
procedure TForm1.btnpingClick(Sender: TObject);
begin
ICMP.Ping;
end;
procedure TForm1.btnlgnClick(Sender: TObject);
begin
form1.Enabled := true;
idftp.Host := 'xxx.xxx.xxx.xxx
idftp.Username := 'aaaa
idftp.Password := 'bbbb
idftp.Connect;
idftp.ChangeDir('/home');
timer1.Enabled := true; (타이머가 실행되면 3초후에 수신받도록)
end;
end.
시작하자마자 로그인...
메신져들은 그냥 시작후 몇십초 동안 로그인을 시도해서 안되면
문제 있다 이렇게 에러 메세지 띄워주고 그렇죠?
이런거 저런거 신경쓰면 골치 아프니깐 접속하는부분은 예외 처리하시고
몇십초 동안 timer로 접속 시도 해보시는게 좋을거 같은데요..