Q&A

  • 네트워크 연결(ping) 관련해서요
안녕하세요
몇가지 궁굼해서요
지금 밑에 프로그램을 컴퓨터가 시작되면서 자동으로 실행되도록 했습니다
그래서 서버에서 특정파일을 가져와 실행하도록 하는 간단한 프로그램입니다

컴퓨터가 실행되면 프로그램이 서버로 접속하려 합니다 그런데 컴터가
켜지면서 바로 네트워크가 연결되는게 아니잖아요 사양에따라 조금에
딜레이가....
이때 네트워크가 연결될때까지 네트워크에 접속을 안시키도록 했습니다

그런데 한가지 궁굼한건 선이 랜선이 빠졌을땐 바로 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.
1  COMMENTS
  • Profile
    모영철 2005.05.13 18:01
    보통 그런거 메신져에서 많이 사용하자나요?

    시작하자마자 로그인...

    메신져들은 그냥 시작후 몇십초 동안 로그인을 시도해서 안되면

    문제 있다 이렇게 에러 메세지 띄워주고 그렇죠?

    이런거 저런거 신경쓰면 골치 아프니깐 접속하는부분은 예외 처리하시고

    몇십초 동안 timer로 접속 시도 해보시는게 좋을거 같은데요..


    • 모영철
      2005.05.13 21:57
      FormCreate 에서 초기화 해 주시면 되겠습니다. 아니면 Const    check1 : integer = 1; ...
    • 김종윤
      2005.05.13 23:10
      정말정말 감사합니다 ^^
    • 메니아
    • 2005.05.13 02:10
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 2005.05.13 01:34
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 모영철
      2005.05.13 18:01
      보통 그런거 메신져에서 많이 사용하자나요? 시작하자마자 로그인... 메신져들은 그냥 시작후 몇십초...
    • 몰파이
    • 2005.05.12 22:51
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2005.05.13 01:28
      안녕하세요. 최용일입니다. 바꾸시는것은 간단합니다. 자동으로 만들어진 DBEdit의 DataSource와 Dat...
    • 도깨비
      2005.05.13 01:08
      query컴포넌트의 SQL property에 select * from table where id=:ID 라고 넣으시고, 소스코딩시 ...
    • 김종윤
      2005.05.13 01:26
      아 정말 너무 너무 원하던 답이었어요. 가슴이 시원해 지네요 ^^ 너무 고맙습니다.
    • 성길
    • 2005.05.12 18:15
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 성길
      2005.05.12 19:51
      코드를 아래와 같이 수정해서 성공했습니다 ^^v <!--CodeS--> procedure TActiveFormX.Button1Cl...
    • 홍홍
    • 2005.05.12 04:08
    • 5 COMMENTS
    • /
    • 0 LIKES
    • 주웰
      2005.05.12 20:32
      책에서 봤는데요 컴퓨터는 0, 1로만 계산을 해서 그러하다고 하더군요. 한예로 currency type으로 선언...
    • 최용일
      2005.05.12 19:50
      안녕하세요. 최용일입니다. 이러한 문제는 델파이 뿐만아니라 C, VB, ... 등등 모든 컴파일러가 가지고 ...
    • 홍홍
      2005.05.12 22:01
      먼저 답변을 달아주셔서 감사합니다. 하지만 의문이 풀리지 않아 시삽님께 다시 여쭤봅니다. 해당 문제는...
    • 최용일
      2005.05.13 01:06
      글쎄요... VB에[서 소수로 인한 문제가 발생된적이 없다는것은.. 좀처럼 믿기 힘들군요... VC도 이러한 문...
    • 홍홍
      2005.05.13 03:31
      답변 감사합니다. 소수이하 4번째 자리에서 반올림 해서 사용하는 방법외에는 없는 것 같네요... 혹시나 ...
    • 윤수아
      2005.05.12 19:30
      SQLINT32.DLL InterBase SQL Links driver 라고 하는군요.. BDE 설치하면 깔리는 화일인데... BDE를 최...
    • 몰파이
      2005.05.12 22:44
    • akc
    • 2005.05.11 20:44
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 윤수아
      2005.05.12 01:05
      윗분 답변처럼 해주시면 되요.. 그리고 동적으로 생성하면...property도 다 코딩으로 하셔야 하니까... ...
    • 주웰
      2005.05.11 23:45
      허접한 실력으로 한번 코딩 해봤습니다. 저두 델파이가 미흡해서요 먼저 알아 두셔야 할것은 ondblcl...
    • akc
      2005.05.20 16:36
    • 고진중
    • 2005.05.11 19:40
    • 3 COMMENTS
    • /
    • 0 LIKES
    • leesteel
      2005.05.11 22:02
      keypress Event 에 아래와 같이 해주시면... <!--CodeS-->   if (Key >= 'a') and ...
    • 엠피쓰리
      2005.05.11 22:57
      반대는 어떻게 할까요......??
    • 윤수아
      2005.05.14 02:31
      procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin   if key < #164...
    • 주웰
      2005.05.11 22:45
      퀵레포트 말고 Rave 레포트는 바코드 가능합니다. 프로젝트도 해봤고요. 자료가 많이 없을것입니다. To...
    • 김재현
    • 2005.05.11 02:23
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 메니아
    • 2005.05.11 02:04
    • 7 COMMENTS
    • /
    • 0 LIKES
    • 권태훈
      2005.05.11 02:22
    • 메니아
      2005.05.11 05:19
    • 권태훈
      2005.05.11 20:52
    • 메니아
      2005.05.11 22:07
    • 권태훈
      2005.05.12 03:45
    • 메니아
      2005.05.13 02:07
    • 권태훈
      2005.05.14 21:47
    • 이광준
    • 2005.05.11 01:25
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 도끼로이마까
      2005.05.11 01:35
      <!--CodeS--> var   fm: TNewForm; begin   fm := TNewForm.Create(Self); ...
    • 이광준
      2005.05.13 21:18
      답변감사합니다...
    • 이중철
      2005.05.10 21:48
    • 김종윤
      2005.05.10 22:24
    • 주웰
      2005.05.10 23:02
    • 김종윤
      2005.05.11 01:12
    • 주웰
      2005.05.11 22:27
    • 김종윤
      2005.05.12 01:29
    • 갑도리
    • 2005.05.10 19:24
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 윤수아
      2005.05.12 01:11
      ocx 화일 자체를 올리시면 답변이 많아질거에요... 저도 직접 등록해봐야지..알 수 있을 것 같구요.. 저 ...
    • 갑도리
    • 2005.05.10 19:13
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 권황중
      2005.05.11 22:14
      내 생각에는 요번에 나온 델파이 2005가 좋을듯 하네요. 닷넷과 WIN32 둘다 되니.. 오히려 2개를 구입...
    • 도끼로이마까
      2005.05.11 01:37
      6.0 pro를 사셔도 충분하리라 봅니다... 패키지의 차이는 볼랜드 웹사이트를 보심이...
    • 정재성
    • 2005.05.10 05:00
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 박성환
      2005.05.14 03:06
      레포트를 작성한 폼이 보이는데 안보이고 싶다는 말씀인지요... Application.CreateForm(TfrmMwareRep ,...