Hello Angus,
I still get Bind error using this (simplified) code :-(
procedure TFormMain.WSocketListenerDataAvailable(Sender: TObject;
ErrCode: Word);
begin
TMySocketServer(sender).ReceiveFrom(@BufRadiusAnswerDataAvailable,512,SrcSocket,SrcSocketLen);
try
TMySocketServer(sender).SendTo(SrcSocket,SrcSocketLen,@BufRadiusAnswerDataAvailable,512);
except
on E: Exception do
begin
DisplayLog('Exception : '+E.Message);
end;
end;
end;
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
