도움이 되실지 모르겠지만...

저도 방금 UDP 소켓을 동적으로 생성했는데.. Receive 이벤트가 발생을 하지 않아

한참을 고민하다가 해결을 했습니다..



저 같은 경우는 소켓을 동적으로 생성한 다음 생성된 소켓의 프로퍼티를 다 맞추어

주지 않아서 생긴 문제 였습니다.



예를 들자면 RemotePort라든가, localport 등등 이런 기본적인 프로퍼티들을

다 맞추어 주니까 되더군요...

도움이 되실려나... 저도 워낙 실력이 바닥이라서..^^;

참고로 제가 했던 소스를 아래에 첨부합니다..



procedure TForm1.Button1Click(Sender: TObject);

var format:pointer;

begin

ACMWaveOut1 := TACMWaveOut.Create(application);

ACMWaveIn1 := TACMWaveIn.Create(application);

ACMDialog1 := TACMDialog.Create(application);

ACMWaveOut1.ParentWindow := application.Handle;

ACMWaveIn1.ParentWindow := application.Handle;

ACMWaveIn1.OnData := ACMWaveIn1Data;



//요부분입니다..

NMUDP1 := TNMUDP.Create(application);

NMUDP1.RemoteHost :=edit1.text;

NMUDP1.RemotePort := 1234;

NMUDP1.LocalPort := 1234;



NMUDP1.OnDataReceived := NMUDP1DataReceived;

//여기까지.. 이렇게 했더니 Receive Event가 발생을 하더군요..



format:=ACMDialog1.OpenDialog;

if format=nil then exit;



ACMWaveOut1.Open(format);

ACMWaveIn1.Open(format);

Button1.Enabled:=false;

Button2.Enabled:=true;

end;



델파초짜.. wrote:

> 아무도 제 질문만 대답을 안해 주시길레.. 다시 올립니다..

>

> procedure TForm3.CreateSock(Target: TForm; Num: integer; CName: String);

> begin

> G_ClientSocket[Num] := TClientSocket.Create(Self);

> with G_ClientSocket[Num] do begin

> parent := Self;

> Name := CName;

> onConnect := ClientSocket1OnConnect;

> end;

> end;

>

> procedure TForm3.ClientSocket1OnConnect(Sender: TObject;

> Socket: TCustomWinSocket);

> begin

> memo1.Lines.Add('1번 소켓 연결 성공..');

> end;

>

> 제가요.. 위와 같이 해 줬거든요.. 그런데.. 소켓을 연결 시키니까..

> OnConnect 이벤트가 안 일어나요.. 물론 서버에서는 접속 허가를 해 줬구요..

> 왜 이러는 건지.. 뭔가가 틀린게 있는지.. 힌트라도.. 주시면 감사하겠습니다..

> 검이만..