Q&A

윈도환경에서 pc간에 판매데이타를 주고 받는 중입니다. 그런데 아래와 같이 for문으로 전송을 시켜서 수신pc쪽에서 ShowMessage로 확인해 보니까 누락되는 부분이 생기는군요.

procedure TForm1.JumunButtonClick(Sender:TObject);

var

i:integer;

TempSend:String;

begin

TempSend:='';

with JumunGrid do begin

for i:=1 to LastRow-1 do begin

TempSend:= dm.PosName+','+frmSale.CurTable.TableCode+','+

frmSale.curTable.NickName+','+Cells[8,i]+','+

Cells[5,i]+','+Cells[0,i]+','+Cells[6,i]+','+

Cells[1,i]+','+Cells[2,i]+','+

Cells[3,i]+','+Cells[4,i]+#13+#10;

TempSend:='';

frmSale.ClientSocket1.Socket.SendText(TempSend);

end;

end;

end;



이럴 때 수신쪽에서 받았다는 표시를 해주어야 할 것 같은데, 버튼클릭이벤트에서 데이타를 모두 보내야 하는데 어떤 식으로 처리해줘야 할지 좀 난감해져서 질문 올립니다.

그리고 수신쪽에서 받은 데이타를 처리해서 자신의 db에 저장하고 프린팅도 시켜야 하느데요. 어떻게 해야 제대로 처리할 수 있을지. 도움을 부탁드립니다.

그럼, 즐거운 하루가 되시길...

1  COMMENTS
  • Profile
    이만준 1999.11.05 17:26
    안녕하세요...



    잘 안되나 보군요....

    채팅예제가 샘플로 있는데...아주 간단하거든요...



    쓰신 코드는 보면



    > for i:=1 to LastRow-1 do begin

    > TempSend:= dm.PosName+','+frmSale.CurTable.TableCode+','+

    > frmSale.curTable.NickName+','+Cells[8,i]+','+

    > Cells[5,i]+','+Cells[0,i]+','+Cells[6,i]+','+

    > Cells[1,i]+','+Cells[2,i]+','+

    > Cells[3,i]+','+Cells[4,i]+#13+#10;

    > TempSend:='';//<==여기서 지워버리면 안돼죠.

    > frmSale.ClientSocket1.Socket.SendText(TempSend);

    > end;





    받는쪽에서는



    procedure TForm1.SSktClientRead(Sender: TObject; Socket: TCustomWinSocket);

    var sRev : string;

    begin//서버 : 클라이언트로부터 데이타를 받았다.

    sRev := Socket.ReceiveText;

    ....

    ...

    //sRev 로 필요한 작업을 하세요.

    //Socket.ReceiveText 하면 문제가 있더라구요...

    //클라이언트에서 다른 데이타가오면 ReceiveText 를 바꿔버리더라구요..

    .....

    end;



    그럼..



    .

    박성훈 wrote:

    > 윈도환경에서 pc간에 판매데이타를 주고 받는 중입니다. 그런데 아래와 같이 for문으로 전송을 시켜서 수신pc쪽에서 ShowMessage로 확인해 보니까 누락되는 부분이 생기는군요.

    > procedure TForm1.JumunButtonClick(Sender:TObject);

    > var

    > i:integer;

    > TempSend:String;

    > begin

    > TempSend:='';

    > with JumunGrid do begin

    > for i:=1 to LastRow-1 do begin

    > TempSend:= dm.PosName+','+frmSale.CurTable.TableCode+','+

    > frmSale.curTable.NickName+','+Cells[8,i]+','+

    > Cells[5,i]+','+Cells[0,i]+','+Cells[6,i]+','+

    > Cells[1,i]+','+Cells[2,i]+','+

    > Cells[3,i]+','+Cells[4,i]+#13+#10;

    > TempSend:='';

    > frmSale.ClientSocket1.Socket.SendText(TempSend);

    > end;

    > end;

    > end;

    >

    > 이럴 때 수신쪽에서 받았다는 표시를 해주어야 할 것 같은데, 버튼클릭이벤트에서 데이타를 모두 보내야 하는데 어떤 식으로 처리해줘야 할지 좀 난감해져서 질문 올립니다.

    > 그리고 수신쪽에서 받은 데이타를 처리해서 자신의 db에 저장하고 프린팅도 시켜야 하느데요. 어떻게 해야 제대로 처리할 수 있을지. 도움을 부탁드립니다.

    > 그럼, 즐거운 하루가 되시길...

    • 최진석
      1999.11.05 19:15
      안녕하세요.. 질문의 요지를 제대로 파악은 못했지만 그냥 답변 적습니다 제나름대로 Query.ApplyUpdates...
    • 이성찬
      1999.11.05 23:51
      최진석 wrote: > 안녕하세요... > 파라독스 테이블에서 기존의 DB파일에 > 데이타베이스데스크톱을 이용...
    • mildshin
    • 1999.11.04 23:53
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 전철호
      1999.11.05 04:15
      mildshin wrote: > 읽어주셔서 감샤합니다..답변까지 해주신다면 무지 고맙겠죠? 히히 > 다른게 아니라 ...
    • 나나
      1999.11.05 02:15
      var ADate : TDateTime; begin try ADate := StrToDate(copy(edit1.text,1,4)+DateSep...
    • 진정은
      1999.11.05 02:09
      진정은 wrote: > 델파이의 TDateTime 형의 자료표시형식이 > 시스템설정-국가별설정을 기준으로 그 형식...
    • mildshin
    • 1999.11.04 22:33
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 권오경
      1999.11.05 21:45
      mildshin wrote: > 제목이 좀 이상하지만 ...쩝.. > 다른게 아니라 MDI형식을 만들었는데 프로그램 시작...
    • 오세웅
      1999.11.04 22:46
      mildshin wrote: > 제목이 좀 이상하지만 ...쩝.. > 다른게 아니라 MDI형식을 만들었는데 프로그램 시작...
    • hopeship
    • 1999.11.04 22:21
    • 1 COMMENTS
    • /
    • 0 LIKES
    • TeamX
      1999.11.04 22:44
      procedure TForm1.Edit3Exit(Sender: TObject); var key: Char; begin Form1.Edit3KeyPress(Edit3,...
    • 이주흥
      1999.11.05 07:49
      방통선생 wrote: > 채팅 프로그램을 델파이를 가지고 만듭니다... > 근데 진행중에 문제가 생겼습니다......
    • 박성훈
    • 1999.11.04 20:51
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이만준
      1999.11.05 17:26
      안녕하세요... 잘 안되나 보군요.... 채팅예제가 샘플로 있는데...아주 간단하거든요... 쓰신 코드...
    • sunhee
    • 1999.11.04 20:45
    • 1 COMMENTS
    • /
    • 0 LIKES
    • TeamX
      1999.11.04 20:57
      안녕하세요. 아래의 답변이 정학한것인지 모르겠습니다. function HlinkNavigateString(pUnk: IUnknown;...
    • salguji
    • 1999.11.04 20:44
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이주흥
      1999.11.04 21:41
      salguji wrote: > 안녕하세요.. > 퀵 레포트로 간단한 양식 하나 만들려구 하거던요.. > 첨 하는 것이라...
    • 강명지
      1999.11.05 02:11
      황선희 wrote: > > 윈도우즈 엔티에다 웹서버를 구축하고, > > 델파이에서 Web Server Application ...
    • 강명지
      1999.11.05 02:10
      황선희 wrote: > > 윈도우즈 엔티에다 웹서버를 구축하고, > > 델파이에서 Web Server Application ...
    • 홍민형
      1999.11.05 01:06
      황선희 wrote: > > 윈도우즈 엔티에다 웹서버를 구축하고, > > 델파이에서 Web Server Application ...
    • 황선희
      1999.11.05 01:48
      홍민형 wrote: > 황선희 wrote: > > > > 윈도우즈 엔티에다 웹서버를 구축하고, > > > > 델파이에서...
    • 문영미
    • 1999.11.04 20:15
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 오세웅
      1999.11.04 20:41
      문영미 wrote: > 안녕하세요! 꾸우뻑. > > 프로그래밍을 하다 궁금한 것이 있어 글을 올립니다. > 다...
    • 오세웅
      1999.11.04 22:53
      오세웅 wrote: > 문영미 wrote: > > 안녕하세요! 꾸우뻑. > > > > 프로그래밍을 하다 궁금한 것이 있...
    • 문영미
      1999.11.04 23:32
      우선, 답변해 주셔서 감사합니다. 글고, 이정태씨는 잘 지내고 있답니다.(전적으로 제가 보기엔) 제가 ...
    • TeamX
      1999.11.04 20:44
      제가 잘은 모르지만 ScaleBy? 인가 하는 함수를 써보시죠.( 화면해상도의 비율을 구해서...... -.-;;) ...
    • hopeship
    • 1999.11.04 19:44
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 권오경
      1999.11.05 21:53
      hopeship wrote: > 안녕하십니까. > 기본적인 질문이긴 합니다만. 그래도 궁금하여 질문하고자 합니다. ...
    • 최진석
    • 1999.11.04 19:04
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 조복기
      1999.11.04 19:53
      안녕하세요.. 실행시에 테이블을 만들어본적이 없어서 헬프를 봤더니 'Number'라고 하지않고 'NUMERI...
    • aha
    • 1999.11.04 18:35
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최진석
      1999.11.04 18:38
      aha wrote: > 읽어 주셔서 감사합니다(꾸뻑.. ) > > 현재 실행화일이 있는 곳의 데이터 베이스 화일을 ...