Q&A

  • Stream 에다 내용 덧붙여서 파일로 저장하고 싶습니다
1:  procedure x;
2:  var
3:  AStream, BStream , CStream : BlobStream;
4:  begin
5:     For i = 1 to 마지막 레코드 do
6:       begin
7:       AStream := 디비로부터 받은 내용;  
8:       CStream := AStream + #9 + BStream + #9;
9:       end; //end of for
10:  CStream.SaveAsStream('결과물.txt');
11: end;


8번 줄에서 어떻게 해야하는지..
값이 더해 지지 않는 연산이라서..
도와주세여~
스트림값에 어떤 내용을 더 더해서 값을 파일로 저장하려 할때
어떻게 해야하나요?
이 게시물을
2  COMMENTS
  • Profile
    남양원 • 2004.01.20 02:03

                CStream.Seek(0, soFromEnd);
                FillChar(Buff, SizeOf(Buff), #0);
                Buff := #9;  // Buff: array [0..100] of Char;
                CStream.ReadBuff(Buff, SizeOf(Buff));

                FillChar(Buff, SizeOf(Buff), #0);
                BStream.WriteBuff(Buff, SizeOf(Buff));

                CStream.Seek(0, soFromEnd);
                CStream.ReadBuff(Buff, SizeOf(Buff));

                CStream.Seek(0, soFromEnd);
                FillChar(Buff, SizeOf(Buff), #0);
                Buff := #9;
                CStream.ReadBuff(Buff, SizeOf(Buff));
              end; //end of for

    스트림의 끝을 찾아서 Stream.Seek(0, soFromEnd)  Write 하세요....

    읽어 들일때는 쓴 순서에 맞게 읽어들이세요....
    질문에 도움이 되었으면 좋겠네여....
    즐푸하세요.....




  • Profile
    마이크로디지털 • 2004.01.20 05:28
    정말 감사합니다..
    이제 좀 이해가 되네요 ^^"
    스트림의 특성을 모르고 일반 변수처럼 생각해서
    문제가 발생했었군요..ㅎㅎ
←First Page
503 504 505 506 507 508 509 510 511 512
Last Page→
한델 로그인 하기