Q&A
- 레코드를 C 구조체로 전달하는 방법 좀...
델파이로 구조체를 만들어서 서버로 데이타를 보낼려고합니다
서버는 C 로 되어있습니다.
typedef struct
{
char Msg_Type [4+1];
char Dept_Code [10+1];
char Data_Class;
char File_Name [24+1];
char Filler [51+1];
} Ssg_File_Recv_Start_Msg;
이게 서버쪽에 선언된 구조체구여
델파이쪽에선
type aa = record
Msg_Type : array [0..3] of char;
Dept_Code : array [0..9] of char;
Data_Class : char;
File_Name : array [0..23] of char;
Filler : array [0..50] of char;
end;
이렇게 선언했거든요
구조체단위로 패킷을 만들어서 서버로 데이타를 날려줄려고 합니다
여기에 있는 질답란을 뒤져보고 그대로 했는데
서버쪽에서 클라이언트 접속 신호만 받고 실제로 패킷을 받지 못하는거 같습니다
procedure TForm1.Button1Click(Sender: TObject);
type aa = record
Msg_Type : array [0..3] of char;
Dept_Code : array [0..9] of char;
Data_Class : char;
File_Name : array [0..23] of char;
Filler : array [0..50] of char;
end;
var
Packet : aa;
mem : TMemoryStream;
begin
Packet.Msg_Type := 'FT12';
Packet.Dept_Code := 'SSG00003';
Packet.Data_Class := '0';
Packet.File_Name := 'FT12.c';
Packet.Filler := 'FTP';
mem := TMemoryStream.Create;
mem.Write(Packet, sizeof(Packet));
clientsocket1.Address := '211.xxx.xx.xx';
clientsocket1.Port := 5005;
clientsocket1.Active := true;
clientsocket1.socket.SendStream(mem);
end;
초보라서 저게 무슨뜻인지도 모르고 그대로 따라했습니다
왜 데이타를 받지 못하는걸까요..
조언 부탁드리겠습니다
서버는 C 로 되어있습니다.
typedef struct
{
char Msg_Type [4+1];
char Dept_Code [10+1];
char Data_Class;
char File_Name [24+1];
char Filler [51+1];
} Ssg_File_Recv_Start_Msg;
이게 서버쪽에 선언된 구조체구여
델파이쪽에선
type aa = record
Msg_Type : array [0..3] of char;
Dept_Code : array [0..9] of char;
Data_Class : char;
File_Name : array [0..23] of char;
Filler : array [0..50] of char;
end;
이렇게 선언했거든요
구조체단위로 패킷을 만들어서 서버로 데이타를 날려줄려고 합니다
여기에 있는 질답란을 뒤져보고 그대로 했는데
서버쪽에서 클라이언트 접속 신호만 받고 실제로 패킷을 받지 못하는거 같습니다
procedure TForm1.Button1Click(Sender: TObject);
type aa = record
Msg_Type : array [0..3] of char;
Dept_Code : array [0..9] of char;
Data_Class : char;
File_Name : array [0..23] of char;
Filler : array [0..50] of char;
end;
var
Packet : aa;
mem : TMemoryStream;
begin
Packet.Msg_Type := 'FT12';
Packet.Dept_Code := 'SSG00003';
Packet.Data_Class := '0';
Packet.File_Name := 'FT12.c';
Packet.Filler := 'FTP';
mem := TMemoryStream.Create;
mem.Write(Packet, sizeof(Packet));
clientsocket1.Address := '211.xxx.xx.xx';
clientsocket1.Port := 5005;
clientsocket1.Active := true;
clientsocket1.socket.SendStream(mem);
end;
초보라서 저게 무슨뜻인지도 모르고 그대로 따라했습니다
왜 데이타를 받지 못하는걸까요..
조언 부탁드리겠습니다
2
COMMENTS
-
-
박서규님..
정말 감사드립니다.
덕분에 지금은 아~주 잘 된답니다. ^^
친절한 답변 다시한번 감사드리구여 새해 복 많이 많으세여~
그럼.. 이만.. (__)
박서규 wrote:
> 왕초짜 wrote:
> > 델파이로 구조체를 만들어서 서버로 데이타를 보낼려고합니다
> >
> > 서버는 C 로 되어있습니다.
> >
> > typedef struct
> > {
> > char Msg_Type [4+1];
> > char Dept_Code [10+1];
> > char Data_Class;
> > char File_Name [24+1];
> > char Filler [51+1];
> > } Ssg_File_Recv_Start_Msg;
> >
> > 이게 서버쪽에 선언된 구조체구여
> >
> > 델파이쪽에선
> >
> > type aa = record
> > Msg_Type : array [0..3] of char;
> > Dept_Code : array [0..9] of char;
> > Data_Class : char;
> > File_Name : array [0..23] of char;
> > Filler : array [0..50] of char;
> > end;
> >
> > 이렇게 선언했거든요
> >
> > 구조체단위로 패킷을 만들어서 서버로 데이타를 날려줄려고 합니다
> >
> > 여기에 있는 질답란을 뒤져보고 그대로 했는데
> >
> > 서버쪽에서 클라이언트 접속 신호만 받고 실제로 패킷을 받지 못하는거 같습니다
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > type aa = record
> > Msg_Type : array [0..3] of char;
> > Dept_Code : array [0..9] of char;
> > Data_Class : char;
> > File_Name : array [0..23] of char;
> > Filler : array [0..50] of char;
> > end;
> > var
> > Packet : aa;
> > mem : TMemoryStream;
> > begin
> >
> > Packet.Msg_Type := 'FT12';
> > Packet.Dept_Code := 'SSG00003';
> > Packet.Data_Class := '0';
> > Packet.File_Name := 'FT12.c';
> > Packet.Filler := 'FTP';
> >
> > mem := TMemoryStream.Create;
> >
> > mem.Write(Packet, sizeof(Packet));
> >
> > clientsocket1.Address := '211.xxx.xx.xx';
> > clientsocket1.Port := 5005;
> >
> > clientsocket1.Active := true;
> > clientsocket1.socket.SendStream(mem);
> > end;
> >
> >
> > 초보라서 저게 무슨뜻인지도 모르고 그대로 따라했습니다
> >
> > 왜 데이타를 받지 못하는걸까요..
> >
> > 조언 부탁드리겠습니다
>
> 의외로 간단할 수 있겠군요....
> 많은 분들이 아마도 그 넘때문에 골때리는 에러가 발생합니다.... 알고보면 별거 아니지만요... 델파이에 기본적으로 들어있는 ClientSocket은 그 윗넘한테 상속받는 형태로 되어있는데 그 제일 위넘이 하는 SendStream의 소스가...
>
> while True do
> begin
> StartPos := FSendStream.Position;
> AmountInBuf := FSendStream.Read(Buffer, SizeOf(Buffer));
> if AmountInBuf > 0 then
> begin
> AmountSent := send(FSocket, Buffer, AmountInBuf, 0);
>
> 부분적으로 이렇게 되어있죠... 소스를 보면 아시겠지만...
> 스트림 전체를 버퍼로 잡아서 보내는게 아니고 현재의 포지션에서 읽기때문에 님의 문제는 스트림.position := 0;이라는 간단한 문장을 보내기 직전에 해주시면 해결될것 같군요... 그리고 아시겠지만 이넘은 DropStream이라는 내부함수를 부르기때문에 걔가 알아서 스트림을 없애주므로 보낸후에 Free를 시키면 걍.. 에러납니다...
> 왜 이렇게 맹글었는지는 모르겠지만 많은 분들이 본인의 실수로 오인하면 시간을 뺏기는 부분중 하나입니다.... 그럼 해결을 기대하면서...
(NOTICE) You must be logged in to comment on this post.
-
- 우나기
- •
- 2001.12.27 04:21
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.27 18:50안녕하세요. 최용일입니다. 아래와 같은 형식으로 변환하세요... unit Rudder; interface .......
-
- 준허접
- 2001.12.27 04:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 델사
- •
- 2001.12.27 03:40
- 3 COMMENTS
- /
- 0 LIKES
-
manlife•2001.12.28 01:22DBGrid의 오브젝트 인스펙트에서 Option을 선택하면 그 중에 dgRowSelect가 있습니다. 그 값을 False로 ...
-
김대준•2001.12.31 23:31dgRowSelect = True속성을 주고서 이동 안되게 할수 있는 방업은 없나요? 현재 저 같은 경우는.. Row를 ...
-
김대준•2001.12.31 23:30dgRowSelect = True속성을 주고서 이동 안되게 할수 있는 방업은 없나요? 현재 저 같은 경우는.. Row를 ...
-
- 김영호
- •
- 2001.12.27 02:57
- 1 COMMENTS
- /
- 0 LIKES
-
오라클•2001.12.28 03:44김영호 wrote: > 안뇽하세요 > 저는 오라클 디비를 사용하고 있는 사람입니다. 다름이 아니오라 > 숫자...
-
- 초보임당
- •
- 2001.12.27 02:54
- 1 COMMENTS
- /
- 0 LIKES
-
데빠이•2001.12.27 03:04초보임당 wrote: > 안녕하십니까.. > 현재 오라클 db연동 프로그램을 만들고 있습니다. > 데이터를 db에...
-
- 김종석
- 2001.12.27 02:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 비비드
- 2001.12.27 02:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이초보
- •
- 2001.12.27 01:58
- 5 COMMENTS
- /
- 0 LIKES
-
씨나락•2001.12.27 02:09SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' '); 이부분을 SQL.Add('Set GYEL_CHEK = ''Y'...
-
한가해•2001.12.27 02:08땡땡이('''')를 지우세요.. 델파이초보 wrote: > 얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분...
-
델파이초보•2001.12.27 02:20답변 정말 감사드립니다. 그럼 한가지만 더 물어보겠습니다. 말씀하신대로 '' ''를 지웠더니 sysdate를 가...
-
빙고•2001.12.27 20:35제 생각에는 이러면 어떨지요? 필드가 문자형이라고 생각한 경우입니다. 데이타형이 틀리다면 거기에 맞게...
-
델파이초보•2001.12.28 20:18델파이초보 wrote; 답변 정말 감사드립니다. 빙고 wrote: > 제 생각에는 이러면 어떨지요? 필드가 문...
-
- 초보자
- •
- 2001.12.27 01:50
- 1 COMMENTS
- /
- 0 LIKES
-
김지태•2001.12.27 03:12초보자 wrote: > 안녕하세요 > 타 부서의 프로그램을 우리 부서의 환경에 맞게 변경시키는 작업을 하고 ...
-
- 최은규
- •
- 2001.12.27 01:33
- 2 COMMENTS
- /
- 0 LIKES
-
앙리앙리•2001.12.27 19:14최은규 wrote: > 제가 원하는 것은 DB에 저장된 값을 특정한 날짜것만 추려서 에디트박스로 > 출력하는 ...
-
^-_-^•2001.12.27 07:05yo` 음냥...코딩이 좀 이상하군요... > form1.edt115.Text := inttostr(form1.query1.FieldByNa...
-
- 라일락
- 2001.12.27 01:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 동동
- •
- 2001.12.27 01:24
- 2 COMMENTS
- /
- 0 LIKES
-
김지태•2001.12.27 02:39동동 wrote: > > 안녕하세요. 우선 리치에디트가 두개가 있습니다. 한쪽에서 '보내기'버튼을 누르면 자...
-
동동•2001.12.27 03:37죄송합니다. 제가 질문을 제대로 하지 못했어요. 우선 전체적인 Font가 문제가 아니라 그 중간에 삽...
-
- 인어공주
- 2001.12.27 01:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.12.27 01:14
- 1 COMMENTS
- /
- 0 LIKES
-
김지태•2001.12.27 02:57초보 wrote: > var > hwnd : THandle; > begin > hwnd := LoadLibrary('aaa.exe'); > > if hw...
-
- 아리엘
- 2001.12.27 00:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초짜
- •
- 2001.12.26 23:56
- 2 COMMENTS
- /
- 0 LIKES
델파이로 구조체를 만들어서 서버로 데이타를 보낼려고합니다 서버는 C 로 되어있습니다. typedef struct { char Msg_Type [4+1]; char Dept_Code [10+1]; char Data_Class; char File_Name [24+1]; char Filler [51+1]; } Ssg_File_Recv_...-
박서규•2001.12.27 14:27왕초짜 wrote: > 델파이로 구조체를 만들어서 서버로 데이타를 보낼려고합니다 > > 서버는 C 로 되어있...
-
왕초짜•2001.12.28 06:06박서규님.. 정말 감사드립니다. 덕분에 지금은 아~주 잘 된답니다. ^^ 친절한 답변 다시한번 감사...
-
- 레지스트리를 사용하
- 2001.12.26 23:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 이범호
- 2001.12.26 22:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 우나기
- •
- 2001.12.26 21:44
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2001.12.26 22:21C Builder에서 컴파일 한 후 Obj단에서 링크하면 Delphi에서 C 소스를 사용할 수 있습니다. 그 방법...
-
- 엘뤼
- 2001.12.26 21:31
- 0 COMMENTS
- /
- 0 LIKES
> 델파이로 구조체를 만들어서 서버로 데이타를 보낼려고합니다
>
> 서버는 C 로 되어있습니다.
>
> typedef struct
> {
> char Msg_Type [4+1];
> char Dept_Code [10+1];
> char Data_Class;
> char File_Name [24+1];
> char Filler [51+1];
> } Ssg_File_Recv_Start_Msg;
>
> 이게 서버쪽에 선언된 구조체구여
>
> 델파이쪽에선
>
> type aa = record
> Msg_Type : array [0..3] of char;
> Dept_Code : array [0..9] of char;
> Data_Class : char;
> File_Name : array [0..23] of char;
> Filler : array [0..50] of char;
> end;
>
> 이렇게 선언했거든요
>
> 구조체단위로 패킷을 만들어서 서버로 데이타를 날려줄려고 합니다
>
> 여기에 있는 질답란을 뒤져보고 그대로 했는데
>
> 서버쪽에서 클라이언트 접속 신호만 받고 실제로 패킷을 받지 못하는거 같습니다
>
> procedure TForm1.Button1Click(Sender: TObject);
> type aa = record
> Msg_Type : array [0..3] of char;
> Dept_Code : array [0..9] of char;
> Data_Class : char;
> File_Name : array [0..23] of char;
> Filler : array [0..50] of char;
> end;
> var
> Packet : aa;
> mem : TMemoryStream;
> begin
>
> Packet.Msg_Type := 'FT12';
> Packet.Dept_Code := 'SSG00003';
> Packet.Data_Class := '0';
> Packet.File_Name := 'FT12.c';
> Packet.Filler := 'FTP';
>
> mem := TMemoryStream.Create;
>
> mem.Write(Packet, sizeof(Packet));
>
> clientsocket1.Address := '211.xxx.xx.xx';
> clientsocket1.Port := 5005;
>
> clientsocket1.Active := true;
> clientsocket1.socket.SendStream(mem);
> end;
>
>
> 초보라서 저게 무슨뜻인지도 모르고 그대로 따라했습니다
>
> 왜 데이타를 받지 못하는걸까요..
>
> 조언 부탁드리겠습니다
의외로 간단할 수 있겠군요....
많은 분들이 아마도 그 넘때문에 골때리는 에러가 발생합니다.... 알고보면 별거 아니지만요... 델파이에 기본적으로 들어있는 ClientSocket은 그 윗넘한테 상속받는 형태로 되어있는데 그 제일 위넘이 하는 SendStream의 소스가...
while True do
begin
StartPos := FSendStream.Position;
AmountInBuf := FSendStream.Read(Buffer, SizeOf(Buffer));
if AmountInBuf > 0 then
begin
AmountSent := send(FSocket, Buffer, AmountInBuf, 0);
부분적으로 이렇게 되어있죠... 소스를 보면 아시겠지만...
스트림 전체를 버퍼로 잡아서 보내는게 아니고 현재의 포지션에서 읽기때문에 님의 문제는 스트림.position := 0;이라는 간단한 문장을 보내기 직전에 해주시면 해결될것 같군요... 그리고 아시겠지만 이넘은 DropStream이라는 내부함수를 부르기때문에 걔가 알아서 스트림을 없애주므로 보낸후에 Free를 시키면 걍.. 에러납니다...
왜 이렇게 맹글었는지는 모르겠지만 많은 분들이 본인의 실수로 오인하면 시간을 뺏기는 부분중 하나입니다.... 그럼 해결을 기대하면서...