Q&A
- 채팅구현중 에러...
어느 자료에서 다운받아서 연습중인데....
procedure TfmChatSvr.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
command, param, msg, text, t : string;
i : integer;
begin
text := Socket.ReceiveText;
command := GetCommand(text);
param := GetParam(text);
msg := GetMsg(text);
if command = 'connect' then
begin
Personal.add(Socket.RemoteAddress, param);
socket.SendText(EnterMessage);
end
else if command = 'disconnect' then
begin
Personal.Delete(param);
socket.SendText(ExitMessage)
end
else if command = 'msg' then
begin
i := 0;
while true do
begin
try
Server.Socket.Connections[i].SendText(msg);
inc(i);
except
break;
end;
end
end
else if command = 'one' then
begin
i := Personal.GetByUser(param);
Server.Socket.Connections[i].SendText(msg);
Socket.SendText(msg);
end
else if command = 'getinfo' then
begin
for i := 0 to personal.counts - 1 do
socket.SendText(personal.userid[i]+ ' ');
end;
ReDrawGrid;
end;
여기까지가 서버쪽입니다...
연결까지는 잘 되는데, 클라이언트에서 메세지(msg)를 보낼때
'List index out of bounds (1)' 이라는 오류메세지가 나옵니다...
뭐가 잘못됐는지 아무리 봐도 모르겠어여!
클라이언트에서 메세지 보낼땐
Client.Socket.SendText('msg()' + fmUser.edUser.text + ' ' + edChat.text);
요로케 보냈는데, 서버쪽에서 위와같은 에러 메세지가....
procedure TfmChatSvr.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
command, param, msg, text, t : string;
i : integer;
begin
text := Socket.ReceiveText;
command := GetCommand(text);
param := GetParam(text);
msg := GetMsg(text);
if command = 'connect' then
begin
Personal.add(Socket.RemoteAddress, param);
socket.SendText(EnterMessage);
end
else if command = 'disconnect' then
begin
Personal.Delete(param);
socket.SendText(ExitMessage)
end
else if command = 'msg' then
begin
i := 0;
while true do
begin
try
Server.Socket.Connections[i].SendText(msg);
inc(i);
except
break;
end;
end
end
else if command = 'one' then
begin
i := Personal.GetByUser(param);
Server.Socket.Connections[i].SendText(msg);
Socket.SendText(msg);
end
else if command = 'getinfo' then
begin
for i := 0 to personal.counts - 1 do
socket.SendText(personal.userid[i]+ ' ');
end;
ReDrawGrid;
end;
여기까지가 서버쪽입니다...
연결까지는 잘 되는데, 클라이언트에서 메세지(msg)를 보낼때
'List index out of bounds (1)' 이라는 오류메세지가 나옵니다...
뭐가 잘못됐는지 아무리 봐도 모르겠어여!
클라이언트에서 메세지 보낼땐
Client.Socket.SendText('msg()' + fmUser.edUser.text + ' ' + edChat.text);
요로케 보냈는데, 서버쪽에서 위와같은 에러 메세지가....
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이영근
- 2001.04.10 20:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 심지현
- •
- 2001.04.10 20:53
- 5 COMMENTS
- /
- 0 LIKES
-
감초•2001.04.10 20:59
-
심지현•2001.04.10 21:03
-
심지현•2001.04.10 21:16
-
감초•2001.04.10 21:52
-
심지현•2001.04.10 22:25
-
- 박태준
- •
- 2001.04.10 20:46
- 1 COMMENTS
- /
- 0 LIKES
-
학생•2001.04.10 22:34타이머 컴포넌트와 FlashWindow() Api함수를 사용하세요.. 박태준 wrote: > FORM창의 위 TITLE있는 ...
-
- 문해기
- •
- 2001.04.10 20:39
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.04.10 20:48문해기 wrote: > 제발 부탁임다... > 사칙연산 소스점... > 이번에 빵구나면 제적임다... > 한사람의 ...
-
-
나그네•2001.04.10 21:14강성만 wrote: > tag가 어떨때 사용하는지 알고 싶는데 강의실이나 질답하는데 없어서 질문합니다. > 책...
-
-
- 지영일
- •
- 2001.04.10 20:20
- 6 COMMENTS
- /
- 0 LIKES
-
최용일•2001.04.11 00:41
-
지영일•2001.04.11 01:10
-
최용일•2001.04.11 01:03
-
지영일•2001.04.11 01:19
-
최용일•2001.04.11 02:52
-
지영일•2001.04.11 03:24
-
-
감초•2001.04.10 20:24Detail Band의 Property에서 ForceNewPage를 True로하세요. 델사랑 wrote: > 델파이에서 프린트할때 ...
-
잘몰라•2001.04.10 21:11해보니까 되는데. 제가 원하는 효과가 아니거든요. 예를 들면 학번이 1인 학생의 책빌린 history하구 ...
-
감초•2001.04.10 21:56Group이나 SubDetailBand를 사용하시면 됩니다. 만약 한 쿼리로 Report를 만들때는 GroupBand를 이용하시...
-
-
- 우제은
- 2001.04.10 19:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 정성훈
- •
- 2001.04.10 21:51
- 1 COMMENTS
- /
- 0 LIKES
-
바람개비•2001.04.10 23:57그건 쿼리의 레코드카운트와는 관계없는것 같군요. 타이머컴포넌트를 사용해야할 문제인것 같습니다. ...
-
- 초짜람니다..
- •
- 2001.04.10 19:31
- 1 COMMENTS
- /
- 0 LIKES
어느 자료에서 다운받아서 연습중인데.... procedure TfmChatSvr.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket); var command, param, msg, text, t : string; i : integer; begin text := Socket.ReceiveText; command :...-
최용일•2001.04.11 00:47안녕하세요. 최용일입니다. List index out of bounds (1)는 말그대로 인덱스가 범위를 넘어섰다는 것입...
-
- 몰라요
- •
- 2001.04.10 19:19
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.04.11 00:58안녕하세요. 최용일입니다. 선언부분을 찾아가기를 하실려면 그 선언부가 유닛내에 있거나 선언부가 있...
-
몰라요•2001.04.11 03:37최용일 wrote: > 안녕하세요. 최용일입니다. > > 선언부분을 찾아가기를 하실려면 그 선언부가 유닛내...
-
- 김종석
- 2001.04.10 19:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 이윤선
- 2001.04.10 19:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 2001.04.10 19:01
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.04.11 01:07안녕하세요. 최용일입니다. 32비트델파이로는 16비트DLL을 만들수 없습니다. 16비트용 델파이 1.0을 ...
-
- 김형배
- •
- 2001.04.10 18:59
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.04.10 19:53DBRich를 사용해도 마찬가지인가??? 꼭 memo.Lines.Assign(FieldByName('esayst'));를 사용하지 않아도 될...
-
- 이상현
- •
- 2001.04.10 18:42
- 1 COMMENTS
- /
- 0 LIKES
-
감초•2001.04.10 20:29form이 create되있는가 확인해 보십시요. 이상현 wrote: > 현재 저의 프로그램을 DLL로 만들어서 버튼...
-
- 이상현
- 2001.04.10 18:41
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 박태준
- 2001.04.10 17:08
- 0 COMMENTS
- /
- 0 LIKES
-
- camplus
- •
- 2001.04.10 10:25
- 1 COMMENTS
- /
- 0 LIKES
-
박지훈.임프•2001.04.23 13:42임펠리테리입니다. 아주 오래된 질문이지만.. 도움이 될까 싶어서요. 일반 어플리케이션에선 웹브로커 ...
List index out of bounds (1)는 말그대로 인덱스가 범위를 넘어섰다는 것입니다.
예를 들어 어떤 리스트에 세개의 아이템이 있는데 네번째의 아이템을 접근하려구 할때 이런 에러를 보실 수 있습니다...
> Server.Socket.Connections[i].SendText(msg);
> Server.Socket.Connections[i].SendText(msg);
> socket.SendText(personal.userid[i]+ ' ');
의심가는 부분의 위의 세줄입니다. i값이 유효범위를 넘어섰는가 확인해보세요...
^^ 항상 즐코하세요...
초짜람니다.. wrote:
> 어느 자료에서 다운받아서 연습중인데....
>
> procedure TfmChatSvr.ServerClientRead(Sender: TObject;
>
> Socket: TCustomWinSocket);
>
> var
>
> command, param, msg, text, t : string;
>
> i : integer;
>
> begin
>
> text := Socket.ReceiveText;
>
> command := GetCommand(text);
>
> param := GetParam(text);
>
> msg := GetMsg(text);
>
>
>
> if command = 'connect' then
>
> begin
>
> Personal.add(Socket.RemoteAddress, param);
>
> socket.SendText(EnterMessage);
>
> end
>
> else if command = 'disconnect' then
>
> begin
>
> Personal.Delete(param);
>
> socket.SendText(ExitMessage)
>
> end
>
> else if command = 'msg' then
>
> begin
>
> i := 0;
>
> while true do
>
> begin
>
> try
>
> Server.Socket.Connections[i].SendText(msg);
>
> inc(i);
>
> except
>
> break;
>
> end;
>
> end
>
> end
>
> else if command = 'one' then
>
> begin
>
> i := Personal.GetByUser(param);
>
> Server.Socket.Connections[i].SendText(msg);
>
> Socket.SendText(msg);
>
> end
>
> else if command = 'getinfo' then
>
> begin
>
> for i := 0 to personal.counts - 1 do
>
> socket.SendText(personal.userid[i]+ ' ');
>
> end;
>
> ReDrawGrid;
>
> end;
>
> 여기까지가 서버쪽입니다...
>
> 연결까지는 잘 되는데, 클라이언트에서 메세지(msg)를 보낼때
>
> 'List index out of bounds (1)' 이라는 오류메세지가 나옵니다...
>
> 뭐가 잘못됐는지 아무리 봐도 모르겠어여!
>
> 클라이언트에서 메세지 보낼땐
>
> Client.Socket.SendText('msg()' + fmUser.edUser.text + ' ' + edChat.text);
>
> 요로케 보냈는데, 서버쪽에서 위와같은 에러 메세지가....
>