TClientSocket과 TServerSocket을 이용해서
문자열을 보내는 프로그램을 만들라구 합니다.
아주 단순한거죠... -___-;
그런데~~~~
작업 순서는
1. 서버와 연결
2. 서버에 문자열 전송
3. 서버와 연결 끊기
요렇습니다.
그래서
1번을 A라는 버튼에
2번을 B라는 버튼에
3번을 C라는 버튼에
각각 구현하면 아무 문제 없이 됩니다.
그런데
1,2,3번을 D라는 버튼에 구현하면
하나건너 하나씩만 문자열이 전송된다는 거죠... -____-;;
대체 무슨 문제가 있는걸까요?
버근가요???
T___T
정말 미치겠습니다.
고수님들 답변 부탁드립니다....
감사합니다.
---------------- 참고 소스입니다. -------------
// cs는 TClientSocket
procedure TForm1.ButtonAClick(Sender: TObject);
begin
cs.Open;
end;
procedure TForm1.ButtonBClick(Sender: TObject);
begin
cs.Socket.SendText( DateTimeToStr(NOw) );
end;
procedure TForm1.ButtonCClick(Sender: TObject);
begin
cs.Close;
end;
// ↓ 문제의 소스... -___-+++
procedure TForm1.Button6Click(Sender: TObject);
begin
cs.Open;
cs.Socket.SendText( DateTimeToStr(NOw) );
cs.Close;
end;
> TClientSocket과 TServerSocket을 이용해서
>
> 문자열을 보내는 프로그램을 만들라구 합니다.
>
> 아주 단순한거죠... -___-;
>
> 그런데~~~~
>
> 작업 순서는
>
> 1. 서버와 연결
> 2. 서버에 문자열 전송
> 3. 서버와 연결 끊기
>
> 요렇습니다.
>
> 그래서
>
> 1번을 A라는 버튼에
> 2번을 B라는 버튼에
> 3번을 C라는 버튼에
>
> 각각 구현하면 아무 문제 없이 됩니다.
>
> 그런데
>
> 1,2,3번을 D라는 버튼에 구현하면
>
> 하나건너 하나씩만 문자열이 전송된다는 거죠... -____-;;
>
> 대체 무슨 문제가 있는걸까요?
>
> 버근가요???
>
> T___T
>
> 정말 미치겠습니다.
>
> 고수님들 답변 부탁드립니다....
>
> 감사합니다.
>
> ---------------- 참고 소스입니다. -------------
>
> // cs는 TClientSocket
> procedure TForm1.ButtonAClick(Sender: TObject);
> begin
> cs.Open;
> end;
>
> procedure TForm1.ButtonBClick(Sender: TObject);
> begin
> cs.Socket.SendText( DateTimeToStr(NOw) );
> end;
>
> procedure TForm1.ButtonCClick(Sender: TObject);
> begin
> cs.Close;
> end;
>
> // ↓ 문제의 소스... -___-+++
> procedure TForm1.Button6Click(Sender: TObject);
> begin
> cs.Open;
> cs.Socket.SendText( DateTimeToStr(NOw) );
> cs.Close;
> end;
>
남윤혁님 안녕하세요? 구창민입니다.
cs 는 ClientSocket 인가요?
Open하셨다구 무조건 서버와 붙었다고 판단할수 없구요.
Button6Click 안에서 cs.Open 하셨다면
OnConnect 이벤트에서
cs.Socket.SendText( DateTimeToStr(NOw) );...
등등..문자열을 날리는 문장과 닫는 문장을
기술해 보세요.
그리고, 첨언이지만 항상 오픈했을때 에러처리 문장을 함께
사용하셔야 안전한 프로그램이 됩니다.
접속에 실패했을시는 문장을 수행하면 안 되기 때문이지요.
해보구 안 되시면 다시 질문 올려주세요.
그럼.. 즐거운 프로그래밍 되세요~