Q&A

  • 파일에 쓰기...
procedure TDataMod.CsocketRead(Sender: TObject; Socket: TCustomWinSocket);

begin

i := i+1;

STReceiveText := Csocket.Socket.ReceiveText;

...

else if i=3 then

begin

F_Msg_Info.WriteFile;

end

end;



procedure TF_Msg_Info.WriteFile;

var

outfile: TextFile; //파일포인터 선언

begin

AssignFile(outfile, 'c:outfile.txt'); //파일에 Write

Rewrite(outfile);

write (outfile,STReceiveText);

CloseFile(outfile) ;

end;



위에서...



Socket.ReceiveText로 받은 스트링을 STReceiveText : string;에 저장해서...



파일에 write를 했는데... 여러줄 써져야 하는 파일이...



한줄에 다 써져버렸어여... 한줄 한줄 끝나고 엔터를 해서 다음 줄로 넘어가야 하는데..



그게... 한줄에 다 써져버렸어여... (윽... 이걸 말로 어떻게 표현해야 하나!_!)



분명히.. 서버 어플리케이션에서... 파일에 있는 데이타를 읽어서 보낼때...



한행끝날때... 엔터마크(이걸... 뭐라구 하던데... 잘 몰겠어여...^^;;)를 해서 보냈다던데...



메모장에서 파일을 열어 보면... 한 줄에... 그 파일의 내용이 다 적혀 있어여!_!



(글구... 엔터마크가 있어야 하는 부분... 한 줄의 끝 부분에는...



까만네모에 흰색 동그라미가 그려 있어여^^;;; 여기에 보여 드리구 싶은데...



여기다 복사해서 붙이면... 안보이네여... 아마 이게 엔터마크 표시인가봐여...=_=)



쉽게 말하면... 지금 올리는 이 글은... 한줄 한줄 띄어 써 있잖아여...



근데 이게 엔터 없이 한줄에 다 있다는 소리지여... =_=



뭐가 문제일까여?



이 파일을 한줄씩 읽어서 스트링그리드에 뿌려야 하는데...



첫번째 줄만~! 읽으라는 코딩에... 파일 전체가 다 읽히니... 흑~ 속상해 죽겠어여!_!



(단. 절대 스트링그리드에 보이는 소스에는 문제가 없습니다=_= 제가 다른 파일을



만들어서 test해봤거든여... ^^;;;)







뭐가 문제 인지... 느낌이 오시는 분~~~~~* ^^



좀... 도와 주세여...



흐흐흑~~~~~*



그럼... 즐거운 오후 보내시구...



항상... 행복하세요~~~~~~~~~~~~~~~~~~*

2  COMMENTS
  • Profile
    구창민 1999.12.29 01:41
    김매경 wrote:

    > procedure TDataMod.CsocketRead(Sender: TObject; Socket: TCustomWinSocket);

    > begin

    > i := i+1;

    > STReceiveText := Csocket.Socket.ReceiveText;

    > ...

    > else if i=3 then

    > begin

    > F_Msg_Info.WriteFile;

    > end

    > end;

    >

    > procedure TF_Msg_Info.WriteFile;

    > var

    > outfile: TextFile; //파일포인터 선언

    > begin

    > AssignFile(outfile, 'c:outfile.txt'); //파일에 Write

    > Rewrite(outfile);

    > write (outfile,STReceiveText);

    > CloseFile(outfile) ;

    > end;

    >

    > 위에서...

    >

    > Socket.ReceiveText로 받은 스트링을 STReceiveText : string;에 저장해서...

    >

    > 파일에 write를 했는데... 여러줄 써져야 하는 파일이...

    >

    > 한줄에 다 써져버렸어여... 한줄 한줄 끝나고 엔터를 해서 다음 줄로 넘어가야 하는데..

    >

    > 그게... 한줄에 다 써져버렸어여... (윽... 이걸 말로 어떻게 표현해야 하나!_!)

    >

    > 분명히.. 서버 어플리케이션에서... 파일에 있는 데이타를 읽어서 보낼때...

    >

    > 한행끝날때... 엔터마크(이걸... 뭐라구 하던데... 잘 몰겠어여...^^;;)를 해서 보냈다던데...

    >

    > 메모장에서 파일을 열어 보면... 한 줄에... 그 파일의 내용이 다 적혀 있어여!_!

    >

    > (글구... 엔터마크가 있어야 하는 부분... 한 줄의 끝 부분에는...

    >

    > 까만네모에 흰색 동그라미가 그려 있어여^^;;; 여기에 보여 드리구 싶은데...

    >

    > 여기다 복사해서 붙이면... 안보이네여... 아마 이게 엔터마크 표시인가봐여...=_=)

    >

    > 쉽게 말하면... 지금 올리는 이 글은... 한줄 한줄 띄어 써 있잖아여...

    >

    > 근데 이게 엔터 없이 한줄에 다 있다는 소리지여... =_=

    >

    > 뭐가 문제일까여?

    >

    > 이 파일을 한줄씩 읽어서 스트링그리드에 뿌려야 하는데...

    >

    > 첫번째 줄만~! 읽으라는 코딩에... 파일 전체가 다 읽히니... 흑~ 속상해 죽겠어여!_!

    >

    > (단. 절대 스트링그리드에 보이는 소스에는 문제가 없습니다=_= 제가 다른 파일을

    >

    > 만들어서 test해봤거든여... ^^;;;)

    >

    >

    >

    > 뭐가 문제 인지... 느낌이 오시는 분~~~~~* ^^

    >

    > 좀... 도와 주세여...

    >

    > 흐흐흑~~~~~*

    >

    > 그럼... 즐거운 오후 보내시구...

    >

    > 항상... 행복하세요~~~~~~~~~~~~~~~~~~*





    SendBuf, ReceiveBuf 메소드를 사용해보세요.

    그럼 즐거운 프로그래밍 하시구요~

  • Profile
    김매경 1999.12.29 19:52
    구창민 wrote:

    >

    >

    > SendBuf, ReceiveBuf 메소드를 사용해보세요.

    > 그럼 즐거운 프로그래밍 하시구요~



    SendBuf는... 서버에서 쓰는거겠져?...



    REceiveBuf는... 도움말에도.. 예제도 없구... 책에두...



    자세히 나와있는게 없어서... 제가... 대충... 웅... 감(?)=_-으루...



    일케 만들어 보긴 했는데...



    솔직히 말씀 드리면.... ReceiveBuf를 어떻게 사용하라는 건지... 잘 모르겠거든여...



    조금... 자세하게 말씀해 주심.... 안돼나여?...





    procedure TF_Msg_Info.WriteFile;

    var

    outfile: TextFile; {파일포인터 선언}

    Buf,Count,i : integer;

    ImsByte : Byte;

    sstext : string;

    begin

    Count := sizeof(Buf);

    Datamod.Csocket.Socket.ReceiveBuf(Buf, Count);

    sstext := IntToStr(Buf);

    AssignFile(outfile, 'c:out.txt'); //파일에 Write

    Rewrite(outfile);

    CloseFile(outfile) ;

    ...



    일케 했는데... 이상한 값이 들어가여....



    일케 하는건 아닌것 같구....



    후... 도와주세여...





    곧 있음 점심시간이네여...^^



    맛있는 점심드시구... 모두들... 행복하세요... ^^

    • 박민철
    • 1999.12.29 23:22
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 박성훈
      2000.01.01 04:03
      박민철 wrote: > 폼위에 번튼하나를 가져다놓고 그 버튼을 누르면 특정 실행파일이 실행이 되도록하는 프...
    • 현나
    • 1999.12.29 22:36
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.12.29 22:59
      제가 베이직은 하나도 모르지만... -.-;; 함수나 프로시져를 DLL 로 만드시면 됩니다. 그러면 델파이...
    • 유니
    • 1999.12.29 21:52
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 장지용
      1999.12.29 22:37
      유니 wrote: > 하나의 폼에 있는 여러개의 EditBox 를 방향키로 이동하고 싶습니다. > > 다음 Control...
    • 안치봉
      1999.12.29 22:07
      SelectNext 의 인자에 보면 boolean 값으로 이동하는 방향을 줄수가 있던데... GoForward 의 값으로 조...
    • 유니
      1999.12.29 23:38
      안치봉 wrote: > SelectNext 의 인자에 보면 boolean 값으로 이동하는 방향을 줄수가 있던데... > > Go...
    • 혀노
    • 1999.12.29 21:01
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 혀노
      1999.12.30 00:49
      해결했음 코드를 다른곳에 하니까 되더군요,,, 필드의 OnValidate 이벤트쪽에 코딩시키고 DBGrid 에서...
    • 장지용
      1999.12.29 23:39
      혀노 wrote: > DBGrid와 Table을 연결해놓았고요 > > DBGrid에서 두개의 필드에 값을 넣으면 그것을 계...
    • sunny
    • 1999.12.29 20:44
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.12.29 21:45
      무식한 방법인지는 모르지만 저는 당장 생각을 해보면... 리스트뷰의 FindCaption 함수를 쓰면 어떨까 ...
    • 이수진
    • 1999.12.29 20:23
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.12.29 21:42
      ParamCount, ParamStr ParamCount 에는 인자의 갯수가... ParamStr(0) = 실행파일이름 ParamStr(1) ...
    • 현나
    • 1999.12.29 20:00
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 김주석
      1999.12.30 01:03
      현나 wrote: > MS Word의 매크로를 실행시키려면 어떻게 해야 되나요? > > 감사합니다.. > > 즐거운...
    • 현나
      1999.12.30 02:30
      김주석 wrote: > 일단 델파이에서 MS Word를 실행시킬 수 있거든요. 그런데 어떤 > 매크로를 실행하려...
    • 김주석
      1999.12.30 04:53
      현나 wrote: > 김주석 wrote: > > > 일단 델파이에서 MS Word를 실행시킬 수 있거든요. 그런데 어떤 ...
    • 현나
      2000.01.04 01:55
      아!! 정말 잘 되는군요 제가 착각했어요. 그리고 한가지만 더 ... > > 김주석 wrote: > > > ...
    • 장지용
    • 1999.12.29 19:24
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      1999.12.29 22:07
      장지용 wrote: > 왼쪽의 메모를 스크롤하면 오른쪽의 메모가 왼쪽 메모와 > 동일한 위치에 있게하는 방법...
    • 박성훈
    • 1999.12.29 17:08
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.12.29 19:53
      폼의 onclose 이벤트에서 Action 에 caFree 를 넣으면 될겁니다. 하지만 동적,정적인생성폼에 주의를 하...
    • 신재식
    • 1999.12.29 06:07
    • 3 COMMENTS
    • /
    • 0 LIKES
    • DBIB
      1999.12.30 18:25
      신재식 wrote: > 안녕하세요... > > 아래의 db 한글문제에 대한 답변에 대한 또 다른 질문입니다. > ...
    • DBIB
      1999.12.30 20:09
      패스워드를 안넣어서 이렇게 추가합니다 > 첫번째 > Client에 Oracle for windows95가 설치되어 있을것이...
    • 신재식
      1999.12.30 23:36
      DBIB wrote: > 패스워드를 안넣어서 이렇게 추가합니다 > > 첫번째 > > Client에 Oracle for windows95...
    • 이주흥
    • 1999.12.29 04:45
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      1999.12.29 06:21
      이주흥 wrote: > 안녕하세요.. > 음...저쪽 컴에서 이쪽컴에 강제로 메세지 박스 띄울수 있는 > 방법 ...
    • 배불뚝
      1999.12.30 23:39
      맨발의 청춘 wrote: > 전화번호를 입력시 처리 문제를 어떻게 하는게 가장 효율적일지 여러 델 선배님들께...
    • shinnine
      1999.12.29 18:57
      맨발의 청춘 wrote: > 제가 지금 하고 있는 프로그램에서는 > 판매와 상품관계에서 판매할 상품 목록을 ...
    • 이숙경
    • 1999.12.29 02:09
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 안치봉
      1999.12.29 02:28
      제가 똑같이 해봤는데... 저는 아무이상이 없었습니다(델파이5) 아무래도 여러가지 이유로 메모리가 꼬...
    • 김매경
    • 1999.12.29 01:35
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      1999.12.29 01:41
      김매경 wrote: > procedure TDataMod.CsocketRead(Sender: TObject; Socket: TCustomWinSocket); > begin...
    • 김매경
      1999.12.29 19:52
      구창민 wrote: > > > SendBuf, ReceiveBuf 메소드를 사용해보세요. > 그럼 즐거운 프로그래밍 하시구...
    • 박성훈
    • 1999.12.29 01:33
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 강상훈
      1999.12.29 01:47
      박성훈 wrote: > var > Form: TForm1; > > Form:= TForm1.Create(Application); > try > ...
    • 박성훈
      1999.12.29 07:36
      강상훈 wrote: > 박성훈 wrote: > > var > > Form: TForm1; > > > > Form:= TForm1.Create(App...