Q&A
- 소켓통신에서 Integer나 float값전송방법......
음... 제가요, 클라이언트 소켓에서 서버로부터 받은
Integer나 float값을 받아서 그걸 변수에 넣는 것을 하고있습니다.
근데요, 이게 값을 받으면 나오긴 나오는데, 올바른 Integer값이
아니라는 메세지창을 띄우면서 메모장에만 뜨고, 변수에는 값이
들어가지 않습니다.
아래는 소스입니다.
<전역변수>
Degrees는 Integer로 선언했습니다.
procedure TForm1.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.lines.add(Socket.ReceiveText);
Degrees := StrtoInt(Socket.ReceiveText);
// 소켓으로 받은 스트링값을 Interger로 변환해서 저장
if Degrees = 0 then
label4.Caption := '정면'
else if Degrees < 0 then
begin
Degrees := -Degrees;
label4.Caption := '좌측'+floattostr(Degrees)+'도 회전';
Degrees := -Degrees;
end
else if Degrees > 0 then
begin
label4.Caption := '우측'+floattostr(Degrees)+'도 회전';
end;
END {RotateImage};
end;
이게 소스구요.
보시다시피 서버로부터 받은 Integer값만큼 회전했다는 메세지를
출력하는 것입니다. 그런데 memo장에는 값이 나오는데, label에는
아무런 값이 나오지 않습니다. 그러면서 올바른 Integer값이 아니라는 메세지창만 뜨는 것이죠....
고수님들의 답변을 기다리겠습니다......
Integer나 float값을 받아서 그걸 변수에 넣는 것을 하고있습니다.
근데요, 이게 값을 받으면 나오긴 나오는데, 올바른 Integer값이
아니라는 메세지창을 띄우면서 메모장에만 뜨고, 변수에는 값이
들어가지 않습니다.
아래는 소스입니다.
<전역변수>
Degrees는 Integer로 선언했습니다.
procedure TForm1.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.lines.add(Socket.ReceiveText);
Degrees := StrtoInt(Socket.ReceiveText);
// 소켓으로 받은 스트링값을 Interger로 변환해서 저장
if Degrees = 0 then
label4.Caption := '정면'
else if Degrees < 0 then
begin
Degrees := -Degrees;
label4.Caption := '좌측'+floattostr(Degrees)+'도 회전';
Degrees := -Degrees;
end
else if Degrees > 0 then
begin
label4.Caption := '우측'+floattostr(Degrees)+'도 회전';
end;
END {RotateImage};
end;
이게 소스구요.
보시다시피 서버로부터 받은 Integer값만큼 회전했다는 메세지를
출력하는 것입니다. 그런데 memo장에는 값이 나오는데, label에는
아무런 값이 나오지 않습니다. 그러면서 올바른 Integer값이 아니라는 메세지창만 뜨는 것이죠....
고수님들의 답변을 기다리겠습니다......
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 최은규
- •
- 2001.05.05 03:00
- 1 COMMENTS
- /
- 0 LIKES
음... 제가요, 클라이언트 소켓에서 서버로부터 받은 Integer나 float값을 받아서 그걸 변수에 넣는 것을 하고있습니다. 근데요, 이게 값을 받으면 나오긴 나오는데, 올바른 Integer값이 아니라는 메세지창을 띄우면서 메모장에만 뜨고, ...-
윤신호•2001.05.05 03:14처리순서를 바꾸어보시기바랍니다. Degrees := StrtoInt(Socket.ReceiveText); Memo1.lines.add(...
-
- 전민식
- 2001.05.05 02:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.05.05 02:39
- 3 COMMENTS
- /
- 0 LIKES
-
하기•2001.05.05 02:48FindWindow라는 것이 있는데...한번 찾아보세요.... 초보 wrote: > 버튼을 누르면 폼을 동적으로 생성...
-
초보•2001.05.05 03:49하기 wrote: > FindWindow라는 것이 있는데...한번 찾아보세요.... > > 초보 wrote: > > 버튼을 누르...
-
허접답변•2001.05.07 18:52FindWIndow는 윈도우 API함수 입니다. 참고하세염... 도움말 그냥 퍼왔슴다. The FindWindow function ...
-
- 질문
- •
- 2001.05.05 02:33
- 2 COMMENTS
- /
- 0 LIKES
-
창영•2001.05.05 11:24질문 wrote: > DBGrid에 관한 질문 네가지입니다. > > 1: 디비그리드를 클릭한 셀의 Row값과 Col값은 ...
-
질문•2001.05.05 14:36답변 주셔서 감사합니다만 이해가 잘 안가서 답변주신 내용에 덧붙여 질문드립니다. 1.dbGrid Row,Co...
-
- 김선정
- •
- 2001.05.05 02:25
- 1 COMMENTS
- /
- 0 LIKES
-
윤신호•2001.05.05 03:20혹시 프린터가 돗트프린거인가요? 돗트프린터라면 일부 프린터의 경우 연속출력(한장이상)이 안되더라구요...
-
- 궁금이 스머프
- 2001.05.05 02:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 이명옥
- •
- 2001.05.05 01:56
- 1 COMMENTS
- /
- 0 LIKES
-
송수정•2001.05.08 04:45이명옥 wrote: > 안녕하세요..?! > 델파이 컴포넌트중에서..server에 보면 excel application 이라는 것...
-
-
- 왕초보
- •
- 2001.05.05 00:25
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2001.05.05 01:53TForm.ActiveControl 폼안에서 어느 콤포넌트가 focus를 갖고 있는지를 알고 싶어요. > 그리고 BitBtn을 ...
-
허접답변•2001.05.05 00:53허접임다. 폼안에서 focus를 가지고 있는지는 폼의 메서드 중에 activecontrol이라는게 있슴다. 예를 ...
-
-
조복기•2001.05.05 02:22새로 계정을 만들면 권한(permission) 을 부여해야합니다. permission부분은 인터베이스 메뉴얼상에 명...
-
-
- 서니
- 2001.05.04 23:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 설창원
- 2001.05.04 23:37
- 0 COMMENTS
- /
- 0 LIKES
-
- WEBBROWSER
- 2001.05.04 23:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 조언자
- 2001.05.04 22:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 조영진
- •
- 2001.05.04 22:40
- 1 COMMENTS
- /
- 0 LIKES
-
송수정•2001.05.08 05:02조영진 wrote: > 파러독스 에서 date 타입을 설정하고조회하려합니다. > control은 DateTimePicker를 사...
-
- 김원배
- •
- 2001.05.04 22:31
- 1 COMMENTS
- /
- 0 LIKES
-
^^•2001.05.04 23:09잘 되는 디요...^^ 김원배 wrote: > 안냥하세여. > > if not user then > begin > Self.C...
-
- 심현지
- •
- 2001.05.04 22:24
- 1 COMMENTS
- /
- 0 LIKES
-
kukkek•2001.05.04 23:15unit 파일(record 가 정의 된파일임당) 을 하나 만들어서.. 적당한 이름으로 아무곳이나 저장해 놓고... ...
-
- 아기코알라
- •
- 2001.05.04 21:46
- 1 COMMENTS
- /
- 0 LIKES
-
허접답변•2001.05.05 01:04허접임다. 음.... FieldByName(필드명).value 를 사용하셨는데, 안될건 없지만, 정확하게 AS... 를 사...
-
- 라반
- •
- 2001.05.04 21:06
- 1 COMMENTS
- /
- 0 LIKES
-
모름이•2001.05.04 23:19라반 wrote: > 안녕하세요. 저는 델파이에 SQL Server을 연결하는 프로그램 수정을 하고 있습니다. > 여...
-
- 김아성
- •
- 2001.05.04 21:04
- 4 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.05.04 21:42dbgrid의 click이밴트나 더블 클릭시.. var s:string; begin with query1 do begin if active then...
-
김아성•2001.05.04 22:32답변해주신 내용이 어떤 내용인지 자세히 말씀좀 해주세요 어떻게 사용하는지 모르겠습니다. 부탁드립니...
-
사발우성•2001.05.04 22:47^^;; 설명이 없었군엽... 구라니깐 DbGrid에 쿼리한 내용이 뿌려져있음 거기서 원하는 필드를 클릭시 그 ...
-
김아성•2001.05.04 23:34답변 정말 고맙습니다. ^^ 죄송하지만 다시 답변을 부탁 드릴수 있을까요? 그럼 기존에 있던 JOIN 한...
Degrees := StrtoInt(Socket.ReceiveText);
Memo1.lines.add(Degrees);
Socket.ReceiveText는 어딘가에 그 값을 넘기고나면 데이타가 사라져버리더라구요.
저도 경험이 있는지라..
암튼 먼저 받아내시고 그 받은걸로 자료 활용하시면 됩니다.
좋은 하루 되세요.
최은규 wrote:
> 음... 제가요, 클라이언트 소켓에서 서버로부터 받은
> Integer나 float값을 받아서 그걸 변수에 넣는 것을 하고있습니다.
> 근데요, 이게 값을 받으면 나오긴 나오는데, 올바른 Integer값이
> 아니라는 메세지창을 띄우면서 메모장에만 뜨고, 변수에는 값이
> 들어가지 않습니다.
> 아래는 소스입니다.
> <전역변수>
> Degrees는 Integer로 선언했습니다.
>
> procedure TForm1.ClientSocketRead(Sender: TObject;
> Socket: TCustomWinSocket);
> begin
> Memo1.lines.add(Socket.ReceiveText);
> Degrees := StrtoInt(Socket.ReceiveText);
> // 소켓으로 받은 스트링값을 Interger로 변환해서 저장
> if Degrees = 0 then
> label4.Caption := '정면'
> else if Degrees < 0 then
> begin
> Degrees := -Degrees;
> label4.Caption := '좌측'+floattostr(Degrees)+'도 회전';
> Degrees := -Degrees;
> end
> else if Degrees > 0 then
> begin
> label4.Caption := '우측'+floattostr(Degrees)+'도 회전';
> end;
> END {RotateImage};
> end;
>
> 이게 소스구요.
> 보시다시피 서버로부터 받은 Integer값만큼 회전했다는 메세지를
> 출력하는 것입니다. 그런데 memo장에는 값이 나오는데, label에는
> 아무런 값이 나오지 않습니다. 그러면서 올바른 Integer값이 아니라는 메세지창만 뜨는 것이죠....
>
> 고수님들의 답변을 기다리겠습니다......
>
>