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해봤거든여... ^^;;;)
뭐가 문제 인지... 느낌이 오시는 분~~~~~* ^^
좀... 도와 주세여...
흐흐흑~~~~~*
그럼... 즐거운 오후 보내시구...
항상... 행복하세요~~~~~~~~~~~~~~~~~~*
> 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 메소드를 사용해보세요.
그럼 즐거운 프로그래밍 하시구요~