Q&A
- 쓰레드에서 생성한 컴포넌트의 이벤트
제가 CreateThread를 이용해서 쓰레드를 생성시켰습니다..
그리고.. CreateThread(nil,0,@sockconnect,nil,0,Thrid);
이런식으로 CreateThread 함수를 쓰고요..
function Tform1.Sockconnect(p:pointer): Longint;
begin
<========== 요기 다.. 컴포넌트 생성..
end;
위에 표시된 부분에다 컴포넌트 생성 코드를 넣고.. 컴포넌트를 생성 하면서..
이벤트도 선언을 해 줘거든요.. 참고로 제가 만든 컴포넌트는 클라이언트 소켓입니다.
컴포넌트 생성... 생략..
OnConnect:= ClientSocketConnect;
이런식으로요..
근데.. 이걸 그냥 다른 프로시저에다 쓰면 되는데요..
쓰레드 생성하는 부분에서 쓰면.. 소켓이 생성돼서 통신연결은 되는데..
이벤트가 발생이 되지를 않네요.. 무슨 이유가 있는지..
참고로..
procedure Tform1.clientsocketconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.lines.add('성공');
end;
이벤트 부분은 이렇게 해 줬거든요..
그리고 프로그램을 실행 시키면.. 소켓 생성과 서버에 연결은 되는데..
연결 될때.. Connect 이벤트가 일어나질 않아요..
왜그런지.. 답변좀.. 부탁드립니다..
그리고.. CreateThread(nil,0,@sockconnect,nil,0,Thrid);
이런식으로 CreateThread 함수를 쓰고요..
function Tform1.Sockconnect(p:pointer): Longint;
begin
<========== 요기 다.. 컴포넌트 생성..
end;
위에 표시된 부분에다 컴포넌트 생성 코드를 넣고.. 컴포넌트를 생성 하면서..
이벤트도 선언을 해 줘거든요.. 참고로 제가 만든 컴포넌트는 클라이언트 소켓입니다.
컴포넌트 생성... 생략..
OnConnect:= ClientSocketConnect;
이런식으로요..
근데.. 이걸 그냥 다른 프로시저에다 쓰면 되는데요..
쓰레드 생성하는 부분에서 쓰면.. 소켓이 생성돼서 통신연결은 되는데..
이벤트가 발생이 되지를 않네요.. 무슨 이유가 있는지..
참고로..
procedure Tform1.clientsocketconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
memo1.lines.add('성공');
end;
이벤트 부분은 이렇게 해 줬거든요..
그리고 프로그램을 실행 시키면.. 소켓 생성과 서버에 연결은 되는데..
연결 될때.. Connect 이벤트가 일어나질 않아요..
왜그런지.. 답변좀.. 부탁드립니다..
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이수정
- 2001.03.01 02:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2001.03.01 02:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김태일
- 2001.03.01 03:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 금요일
- 2001.03.01 02:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 김춘성
- 2001.03.01 02:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.03.01 02:19
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.02 05:21팁이나 질답란에서 검색해보세요... 초보 wrote: > [질문]에디트박스를 오른쪽 정렬이 되게끔 하려면 ...
-
- 델파초짜..
- •
- 2001.03.01 02:14
- 1 COMMENTS
- /
- 0 LIKES
제가 CreateThread를 이용해서 쓰레드를 생성시켰습니다.. 그리고.. CreateThread(nil,0,@sockconnect,nil,0,Thrid); 이런식으로 CreateThread 함수를 쓰고요.. function Tform1.Sockconnect(p:pointer): Longint; begin-
김현•2001.03.01 08:22serialize가 안된 겁니다. memo1에 출력하는 부분을 criticalsection으로 둘러싸세요. 대충. entercri...
-
- 궁금이..
- 2001.03.01 01:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 김용수
- •
- 2001.03.01 01:37
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.01 01:37모든게 다 Q&A란에 나와 있는내용인데요... 시간이 급박하시다면 잘 알고 계시는 비베로 짜는게 더 낮지...
-
- 최용일
- 2001.03.01 01:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 최종민
- 2001.03.01 00:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 문디
- •
- 2001.03.01 00:42
- 1 COMMENTS
- /
- 0 LIKES
-
yypbd•2001.03.02 18:53문디 wrote: > 베이직에서 함수가 종료해도 값을 유지하는 변수형인 'static' 이 > 델파이에서는 어떤 ...
-
- purunoon
- 2001.03.01 00:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 두리
- •
- 2001.03.01 00:19
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.01 00:54안녕하세요. 최용일입니다. StringReplace함수를 쓰세요... SysUtils유닛에 있습니다. var Str: s...
-
- 임병우
- 2001.03.01 00:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 돌아버려
- 2001.03.01 00:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 2001.03.01 00:01
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.03.02 21:22궁금이 wrote: > 에디트 박스에 숫자만 입력하게 하는 방법좀 갈켜주세요!!! 아래소스참조하세요,조금수...
-
- 두리
- 2001.02.28 23:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 이원택
- •
- 2001.02.28 23:30
- 1 COMMENTS
- /
- 0 LIKES
-
TeamX•2001.02.28 23:52쿼리하는 동안 Application.ProcessMessage? 인가를 넣던지 아님... Label1.Update;... 를 하던지.. 아...
-
- 답변 갈망자
- •
- 2001.02.28 23:25
- 1 COMMENTS
- /
- 0 LIKES
-
TeamX•2001.02.28 23:53전 하드웨어는 하나도 모릅니다. 하이텔 비주얼툴 동호회델 자료실에 가면 API 방식? 으로 모뎀연결해서...
memo1에 출력하는 부분을 criticalsection으로 둘러싸세요.
대충.
entercriticalsection
leavecriticalsection
ini~
del~
이정도 API 찾아보시면 쉽게 하실 겁니다.
그리고 혹시 TThread를 같은 프로세스에서 쓰신다면 IsMultiThreaded 맞나?.스펠이 잘 기억 안나느군요..이거 True로 해주셔야 합니다. TThread 상속 안받고..CreatThread로 만드셧잖아요...델파이가 쓰레드가 늘어났는지 모르니까..
그럼 이만.
델파초짜.. wrote:
> 제가 CreateThread를 이용해서 쓰레드를 생성시켰습니다..
> 그리고.. CreateThread(nil,0,@sockconnect,nil,0,Thrid);
> 이런식으로 CreateThread 함수를 쓰고요..
>
> function Tform1.Sockconnect(p:pointer): Longint;
> begin
>
> <========== 요기 다.. 컴포넌트 생성..
> end;
>
> 위에 표시된 부분에다 컴포넌트 생성 코드를 넣고.. 컴포넌트를 생성 하면서..
> 이벤트도 선언을 해 줘거든요.. 참고로 제가 만든 컴포넌트는 클라이언트 소켓입니다.
>
> 컴포넌트 생성... 생략..
> OnConnect:= ClientSocketConnect;
>
> 이런식으로요..
> 근데.. 이걸 그냥 다른 프로시저에다 쓰면 되는데요..
>
> 쓰레드 생성하는 부분에서 쓰면.. 소켓이 생성돼서 통신연결은 되는데..
> 이벤트가 발생이 되지를 않네요.. 무슨 이유가 있는지..
> 참고로..
> procedure Tform1.clientsocketconnect(Sender: TObject; Socket: TCustomWinSocket);
> begin
> memo1.lines.add('성공');
> end;
>
> 이벤트 부분은 이렇게 해 줬거든요..
> 그리고 프로그램을 실행 시키면.. 소켓 생성과 서버에 연결은 되는데..
> 연결 될때.. Connect 이벤트가 일어나질 않아요..
> 왜그런지.. 답변좀.. 부탁드립니다..
>