Q&A
- [재질문] Receivebuffer로 받은 값을 Record 변수에 저장하는 법?
질문>
제가 그래도 해봤는데여..
일단은 Clientsocket.socket.Receivebuf(P,Size(P));
로 받았잖아요..
용일님이 말씀하신대로면 DataReceive.Re[1]에 보낸 데이타를 어떻게 넣는지가 궁금합니다.
전체적으로 다시 정리하면
Record를 SendStream으로 보냈쟎아요..
그러면 ClientSocket에서는
type
DataReceive = packed record
Re : Array[1..3] of double;
end;
procedure ClientSocket.Read(..)
var
P : DataReceive;
begin
ClientSocket.Socket.ReceiveBuf(P, SizeOf(P));
로 받쟎아요..
그러면 저는 서버에서 보낸 첫번째 값 P.Data[1]:=10.000을 클라이언트에서는
결국 P.Re[1]에 10.000이 들어가야한는데..
P.Re[1]:=?
P.Re[2]:=?
P.Re[3]:=?
을 어떻게 해야 서버에서 보낸 P.Data[1]:=10.000을 P.Re[1]으로
P.data[2]:=20.000을 P.Re[2]에 받게 하는지를 잘 모르겠어여..
이 부분좀 자세히 설명좀 해주세여..
그리고
제가 연습했던 부분은 다음과 같습니다.
서버부분
------------------------------------
unit se;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ScktComp;
type
Packet = Packed Record
DataSend : Array[1..3] of Double;
end;
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Active:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
P : Packet;
S : TMemoryStream;
begin
S:=TMemoryStream.Create;
P.DataSend[1]:=10;
P.DataSend[2]:=20;
P.DataSend[3]:=30;
S.write(P,Sizeof(P));
Try
ServerSocket1.Socket.SendStream(S);
finally
S.Free;
end;
end;
end.
클라이언트 부분
-----------------------------------------
unit re;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ScktComp;
type
DataReceive = Packed Record
Data : Array[1..3] of Double;
end;
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Active:=True;
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var P : DataReceive;
begin
ClientSocket1.Socket.ReceiveBuf(P,Sizeof(P));
Memo1.Lines.Add(FloatToStr(P.Data[1]));
Memo1.Lines.Add(FloatToStr(P.Data[2]));
Memo1.Lines.Add(FloatToStr(P.Data[3]));
end;
end.
-----------------------------------------------
Error가 나오는데..뭔질 모르겠어요..
어디가 잘못됐는지 부탁드립니다.
급해서 그런데요..빠른답변 부탁드립니다.
제가 그래도 해봤는데여..
일단은 Clientsocket.socket.Receivebuf(P,Size(P));
로 받았잖아요..
용일님이 말씀하신대로면 DataReceive.Re[1]에 보낸 데이타를 어떻게 넣는지가 궁금합니다.
전체적으로 다시 정리하면
Record를 SendStream으로 보냈쟎아요..
그러면 ClientSocket에서는
type
DataReceive = packed record
Re : Array[1..3] of double;
end;
procedure ClientSocket.Read(..)
var
P : DataReceive;
begin
ClientSocket.Socket.ReceiveBuf(P, SizeOf(P));
로 받쟎아요..
그러면 저는 서버에서 보낸 첫번째 값 P.Data[1]:=10.000을 클라이언트에서는
결국 P.Re[1]에 10.000이 들어가야한는데..
P.Re[1]:=?
P.Re[2]:=?
P.Re[3]:=?
을 어떻게 해야 서버에서 보낸 P.Data[1]:=10.000을 P.Re[1]으로
P.data[2]:=20.000을 P.Re[2]에 받게 하는지를 잘 모르겠어여..
이 부분좀 자세히 설명좀 해주세여..
그리고
제가 연습했던 부분은 다음과 같습니다.
서버부분
------------------------------------
unit se;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ScktComp;
type
Packet = Packed Record
DataSend : Array[1..3] of Double;
end;
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Active:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
P : Packet;
S : TMemoryStream;
begin
S:=TMemoryStream.Create;
P.DataSend[1]:=10;
P.DataSend[2]:=20;
P.DataSend[3]:=30;
S.write(P,Sizeof(P));
Try
ServerSocket1.Socket.SendStream(S);
finally
S.Free;
end;
end;
end.
클라이언트 부분
-----------------------------------------
unit re;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ScktComp;
type
DataReceive = Packed Record
Data : Array[1..3] of Double;
end;
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Active:=True;
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var P : DataReceive;
begin
ClientSocket1.Socket.ReceiveBuf(P,Sizeof(P));
Memo1.Lines.Add(FloatToStr(P.Data[1]));
Memo1.Lines.Add(FloatToStr(P.Data[2]));
Memo1.Lines.Add(FloatToStr(P.Data[3]));
end;
end.
-----------------------------------------------
Error가 나오는데..뭔질 모르겠어요..
어디가 잘못됐는지 부탁드립니다.
급해서 그런데요..빠른답변 부탁드립니다.
3
COMMENTS
-
-
안녕하세요. 최용일입니다.
질문하신 의도가 무엇인지 도저히 알 수가 없군요. 나타난 에러가 뭔지도 모르겠구요...
제생각엔 델파이 도움말을 한번 더 보시는 것이 나을듯 합니다.
^^
찾는이 wrote:
> 질문>
> 제가 그래도 해봤는데여..
> 일단은 Clientsocket.socket.Receivebuf(P,Size(P));
> 로 받았잖아요..
> 용일님이 말씀하신대로면 DataReceive.Re[1]에 보낸 데이타를 어떻게 넣는지가 궁금합니다.
>
> 전체적으로 다시 정리하면
> Record를 SendStream으로 보냈쟎아요..
> 그러면 ClientSocket에서는
> type
> DataReceive = packed record
> Re : Array[1..3] of double;
> end;
>
> procedure ClientSocket.Read(..)
> var
> P : DataReceive;
> begin
> ClientSocket.Socket.ReceiveBuf(P, SizeOf(P));
> 로 받쟎아요..
> 그러면 저는 서버에서 보낸 첫번째 값 P.Data[1]:=10.000을 클라이언트에서는
> 결국 P.Re[1]에 10.000이 들어가야한는데..
> P.Re[1]:=?
> P.Re[2]:=?
> P.Re[3]:=?
> 을 어떻게 해야 서버에서 보낸 P.Data[1]:=10.000을 P.Re[1]으로
> P.data[2]:=20.000을 P.Re[2]에 받게 하는지를 잘 모르겠어여..
> 이 부분좀 자세히 설명좀 해주세여..
> 그리고
>
> 제가 연습했던 부분은 다음과 같습니다.
>
> 서버부분
> ------------------------------------
> unit se;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, ScktComp;
>
> type
> Packet = Packed Record
> DataSend : Array[1..3] of Double;
> end;
> TForm1 = class(TForm)
> ServerSocket1: TServerSocket;
> Button1: TButton;
> procedure FormCreate(Sender: TObject);
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> ServerSocket1.Active:=True;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> P : Packet;
> S : TMemoryStream;
> begin
> S:=TMemoryStream.Create;
> P.DataSend[1]:=10;
> P.DataSend[2]:=20;
> P.DataSend[3]:=30;
> S.write(P,Sizeof(P));
> Try
> ServerSocket1.Socket.SendStream(S);
> finally
> S.Free;
> end;
> end;
> end.
>
> 클라이언트 부분
> -----------------------------------------
> unit re;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, ScktComp;
>
> type
> DataReceive = Packed Record
> Data : Array[1..3] of Double;
> end;
> TForm1 = class(TForm)
> ClientSocket1: TClientSocket;
> Memo1: TMemo;
> procedure FormCreate(Sender: TObject);
> procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> ClientSocket1.Active:=True;
> end;
>
> procedure TForm1.ClientSocket1Read(Sender: TObject;
> Socket: TCustomWinSocket);
> var P : DataReceive;
> begin
> ClientSocket1.Socket.ReceiveBuf(P,Sizeof(P));
> Memo1.Lines.Add(FloatToStr(P.Data[1]));
> Memo1.Lines.Add(FloatToStr(P.Data[2]));
> Memo1.Lines.Add(FloatToStr(P.Data[3]));
> end;
> end.
> -----------------------------------------------
> Error가 나오는데..뭔질 모르겠어요..
> 어디가 잘못됐는지 부탁드립니다.
> 급해서 그런데요..빠른답변 부탁드립니다.
>
>
-
안녕하세요.
최용일님의 답변 소스 실행은 해 보셨는지요.
다시 질문하신 질문 내용이 뭔지 제가 파악이 안되는군요.
하지만, 최용일님의 소스가 실행이 되는 거라면
원하시던대로 서버가 보낸 구조체 형태의 데이터를 클라이언트에서 제대로 복원한 것 같은데요.
그러면 P.Re[1] 등도 원래의 값이 제대로 전송되어 왔겠죠.
질문 취지가 그거 아니신가요?
아니시라면 좀 더 취지를 소상히 써 주시면 좋겠네요.
수고하세요.
==========================================================================================
찾는이 wrote:
> 질문>
> 제가 그래도 해봤는데여..
> 일단은 Clientsocket.socket.Receivebuf(P,Size(P));
> 로 받았잖아요..
> 용일님이 말씀하신대로면 DataReceive.Re[1]에 보낸 데이타를 어떻게 넣는지가 궁금합니다.
>
> 전체적으로 다시 정리하면
> Record를 SendStream으로 보냈쟎아요..
> 그러면 ClientSocket에서는
> type
> DataReceive = packed record
> Re : Array[1..3] of double;
> end;
>
> procedure ClientSocket.Read(..)
> var
> P : DataReceive;
> begin
> ClientSocket.Socket.ReceiveBuf(P, SizeOf(P));
> 로 받쟎아요..
> 그러면 저는 서버에서 보낸 첫번째 값 P.Data[1]:=10.000을 클라이언트에서는
> 결국 P.Re[1]에 10.000이 들어가야한는데..
> P.Re[1]:=?
> P.Re[2]:=?> P.Re[3]:=?
> 을 어떻게 해야 서버에서 보낸 P.Data[1]:=10.000을 P.Re[1]으로
> P.data[2]:=20.000을 P.Re[2]에 받게 하는지를 잘 모르겠어여..
> 이 부분좀 자세히 설명좀 해주세여..
> 그리고
>
> 제가 연습했던 부분은 다음과 같습니다.
>
> 서버부분
> ------------------------------------
> unit se;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, ScktComp;
>
> type
> Packet = Packed Record
> DataSend : Array[1..3] of Double;
> end;
> TForm1 = class(TForm)
> ServerSocket1: TServerSocket;
> Button1: TButton;
> procedure FormCreate(Sender: TObject);
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> ServerSocket1.Active:=True;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> P : Packet;
> S : TMemoryStream;
> begin
> S:=TMemoryStream.Create;
> P.DataSend[1]:=10;
> P.DataSend[2]:=20;
> P.DataSend[3]:=30;
> S.write(P,Sizeof(P));
> Try
> ServerSocket1.Socket.SendStream(S);
> finally
> S.Free;
> end;
> end;
> end.
>
> 클라이언트 부분
> -----------------------------------------
> unit re;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, ScktComp;
>
> type
> DataReceive = Packed Record
> Data : Array[1..3] of Double;
> end;
> TForm1 = class(TForm)
> ClientSocket1: TClientSocket;
> Memo1: TMemo;
> procedure FormCreate(Sender: TObject);
> procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> ClientSocket1.Active:=True;
> end;
>
> procedure TForm1.ClientSocket1Read(Sender: TObject;
> Socket: TCustomWinSocket);
> var P : DataReceive;
> begin
> ClientSocket1.Socket.ReceiveBuf(P,Sizeof(P));
> Memo1.Lines.Add(FloatToStr(P.Data[1]));
> Memo1.Lines.Add(FloatToStr(P.Data[2]));
> Memo1.Lines.Add(FloatToStr(P.Data[3]));
> end;
> end.
> -----------------------------------------------
> Error가 나오는데..뭔질 모르겠어요..
> 어디가 잘못됐는지 부탁드립니다.
> 급해서 그런데요..빠른답변 부탁드립니다.
>
>
(NOTICE) You must be logged in to comment on this post.
-
- 박대규
- 2000.08.31 19:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 한영수
- •
- 2000.09.02 03:55
- 3 COMMENTS
- /
- 0 LIKES
-
공성환•2000.09.02 04:01oracle에 기준하여... and cancle like '취소%' or cancle like '가%' 그리고 where 절에 ( )로 묶어주면...
-
한영수•2000.09.02 04:04제 질문에 답해주셔서 정말 고맙습니다. 한가지 더 여쭤봐도 될까요? DM1.Query2.Close; DM1.Query2.s...
-
김일영•2000.09.02 04:06문제의 원인은 잘 모르겠습니다만 or를 사용하면 인덱스를 쓰지 않기 때문에 느립니다. '취소'에 대한 se...
-
- 사발우성
- •
- 2000.09.02 03:40
- 10 COMMENTS
- /
- 0 LIKES
-
김종섭•2000.09.07 05:07
-
빠~~^^•2000.10.30 19:46
-
델초보•2000.09.02 03:42
-
사발우성•2000.09.02 03:43
-
공성환•2000.09.02 03:45
-
이선경•2000.09.02 03:47
-
성더기•2000.09.02 03:48
- • • •
-
- 왕초보
- •
- 2000.08.31 19:38
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•2000.08.31 19:53막내야.. 다시 답변한다.. 어차피 하는 방법은 똑같잖어.. 참고해라.. unit Unit1; interface...
-
최석기•2000.08.31 19:21안녕하세요.. 델파이세상... 이거 말할 필요 없겠네.. 울 회원이넹.. 막네.. 이거 울 Q&A에도 답했...
-
- 홍영인
- 2000.08.31 17:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 김명호
- •
- 2000.08.31 17:14
- 1 COMMENTS
- /
- 0 LIKES
-
김재규•2000.09.01 01:43자세한 내용을 몰라서 그러는데... 아래를 응용하신다면 가능하지 않을까요... 만약 query한 값을 가...
-
- webcome
- 2000.08.31 14:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 구창민
- 2000.08.31 11:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 찾는이
- 2000.08.31 10:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 찾는이
- •
- 2000.08.31 10:25
- 3 COMMENTS
- /
- 0 LIKES
질문> 제가 그래도 해봤는데여.. 일단은 Clientsocket.socket.Receivebuf(P,Size(P)); 로 받았잖아요.. 용일님이 말씀하신대로면 DataReceive.Re[1]에 보낸 데이타를 어떻게 넣는지가 궁금합니다. 전체적으로 다시 정리하면 Record를 Send...-
김일영•2000.09.01 07:09최용일님의 소스를 약간 수정해서 돌려보시고는 OutofMemory 에러가 발생한다고 다시 질문하셨죠... 그런...
-
최용일•2000.08.31 22:08안녕하세요. 최용일입니다. 질문하신 의도가 무엇인지 도저히 알 수가 없군요. 나타난 에러가 뭔지도 모...
-
김일영•2000.08.31 19:47안녕하세요. 최용일님의 답변 소스 실행은 해 보셨는지요. 다시 질문하신 질문 내용이 뭔지 제가 파악이 ...
-
- 구자균
- •
- 2000.08.31 10:19
- 1 COMMENTS
- /
- 0 LIKES
-
Fife•2000.08.31 22:25구자균 wrote: > 인단 인터베이스가 공개되었다는 예기가 있는것 같은데.. > 그럼 공짜인가요.아님 개발...
-
- 김학영
- 2000.08.31 10:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 김일영
- 2000.08.31 09:47
- 0 COMMENTS
- /
- 0 LIKES
-
- [델파이]
- •
- 2000.08.31 09:37
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.08.31 09:38Device Context의 Handle을 나타내는 타입입니다. 자세한 것은 Windows API에 관한 책을 아무것이나 보시...
-
- AHN
- 2000.08.31 08:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 문석래
- •
- 2000.08.31 09:48
- 4 COMMENTS
- /
- 0 LIKES
-
이선경•2000.08.31 20:40이선경 wrote: > 문석래 wrote: > > 안녕하세요 > > 델파이 초보 입니다.. > > > > db의 내용을 quic...
-
s6763•2000.08.31 17:37문석래 wrote: > 안녕하세요 > 델파이 초보 입니다.. > > db의 내용을 quick report 가 아닌 word 나 ...
-
이성훈•2000.08.31 09:49문석래 wrote: > 안녕하세요 > 델파이 초보 입니다.. > > db의 내용을 quick report 가 아닌 word 나 ...
-
임형호•2000.08.31 09:49델파이 자료실에가면 이정욱님께서 올리신 델파이로 엑셀 다루기 자료가 있습니다. 저두 아직 안 풀어봐...
-
- 델피언
- •
- 2000.08.31 09:54
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.08.31 09:54안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. 질문은 중복해서 쓰시...
-
- coolling
- •
- 2000.08.31 10:11
- 3 COMMENTS
- /
- 0 LIKES
-
김종섭•2000.09.07 05:13>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 이렇게 하면 될것 같은데요 > WHERE TRANS_WDATE = ...
-
이성훈•2000.08.31 10:14coolling wrote: > 먼저 테이블에 date type이 있구요.. > SQL Explor에서 쿼리를 하려는데, where절에 ...
-
임형호•2000.08.31 10:15cast라는 함수가 있는데요. 사용법은 cast(필드명 AS 바꿀타입) 하면 됩니다. 날짜를 문자열로 바꿀려...
-
- 정승운
- •
- 2000.08.31 05:08
- 1 COMMENTS
- /
- 0 LIKES
-
김경완•2000.09.07 08:05저도 mdi는 잘 모르지만. 일단은 델파이를 소유하시고 계시다면 메뉴중 new를 누르시고 projects로 이...
-
- 심은진
- 2000.08.31 09:56
- 0 COMMENTS
- /
- 0 LIKES
그런데 답변을 올리신 최용일님께서도 더 이상 알기가 어려우나 Re: Array[1..3] of string; 으로
선언된 부분이 문제가 있지 않겠느냐고 하셨습니다.
저도 원인을 잘 모르겠습니다...
디버깅을 좀 더 해보신 후에 그래도 안되시면 디버깅 해보신 내용을 적어주시면 또 생각해보겠습니다...
찾는이 wrote:
> 질문>
> 제가 그래도 해봤는데여..
> 일단은 Clientsocket.socket.Receivebuf(P,Size(P));
> 로 받았잖아요..
> 용일님이 말씀하신대로면 DataReceive.Re[1]에 보낸 데이타를 어떻게 넣는지가 궁금합니다.
>
> 전체적으로 다시 정리하면
> Record를 SendStream으로 보냈쟎아요..
> 그러면 ClientSocket에서는
> type
> DataReceive = packed record
> Re : Array[1..3] of double;
> end;
>
> procedure ClientSocket.Read(..)
> var
> P : DataReceive;
> begin
> ClientSocket.Socket.ReceiveBuf(P, SizeOf(P));
> 로 받쟎아요..
> 그러면 저는 서버에서 보낸 첫번째 값 P.Data[1]:=10.000을 클라이언트에서는
> 결국 P.Re[1]에 10.000이 들어가야한는데..
> P.Re[1]:=?
> P.Re[2]:=?
> P.Re[3]:=?
> 을 어떻게 해야 서버에서 보낸 P.Data[1]:=10.000을 P.Re[1]으로
> P.data[2]:=20.000을 P.Re[2]에 받게 하는지를 잘 모르겠어여..
> 이 부분좀 자세히 설명좀 해주세여..
> 그리고
>
> 제가 연습했던 부분은 다음과 같습니다.
>
> 서버부분
> ------------------------------------
> unit se;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, ScktComp;
>
> type
> Packet = Packed Record
> DataSend : Array[1..3] of Double;
> end;
> TForm1 = class(TForm)
> ServerSocket1: TServerSocket;
> Button1: TButton;
> procedure FormCreate(Sender: TObject);
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> ServerSocket1.Active:=True;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> P : Packet;
> S : TMemoryStream;
> begin
> S:=TMemoryStream.Create;
> P.DataSend[1]:=10;
> P.DataSend[2]:=20;
> P.DataSend[3]:=30;
> S.write(P,Sizeof(P));
> Try
> ServerSocket1.Socket.SendStream(S);
> finally
> S.Free;
> end;
> end;
> end.
>
> 클라이언트 부분
> -----------------------------------------
> unit re;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, ScktComp;
>
> type
> DataReceive = Packed Record
> Data : Array[1..3] of Double;
> end;
> TForm1 = class(TForm)
> ClientSocket1: TClientSocket;
> Memo1: TMemo;
> procedure FormCreate(Sender: TObject);
> procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> ClientSocket1.Active:=True;
> end;
>
> procedure TForm1.ClientSocket1Read(Sender: TObject;
> Socket: TCustomWinSocket);
> var P : DataReceive;
> begin
> ClientSocket1.Socket.ReceiveBuf(P,Sizeof(P));
> Memo1.Lines.Add(FloatToStr(P.Data[1]));
> Memo1.Lines.Add(FloatToStr(P.Data[2]));
> Memo1.Lines.Add(FloatToStr(P.Data[3]));
> end;
> end.
> -----------------------------------------------
> Error가 나오는데..뭔질 모르겠어요..
> 어디가 잘못됐는지 부탁드립니다.
> 급해서 그런데요..빠른답변 부탁드립니다.
>
>