老大,簡單的文件操作程序,不知道錯在那裡!救命阿

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
$ ]0 d, r4 e7 E. [//---------------------------------------------------------------------------

: W! G- U7 O3 |! i" m* R% o1 M! Y! D#include <vcl.h>
#pragma hdrstop
. K# s) C7 ?; R: y1 X; K; ^
# d, U- O( a+ B" \2 x6 {2 H# B#include "Unit1.h"
#include <fstream.h>
; |( K0 p2 k: t; O9 W3 b#include <dir.h>
#include <sys\stat.h>
$ ?, |; s+ [" m- r; s' I" r#include <malloc.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
        unsigned char *BIN_Byte;
  c# }& J, g& L* q        long BIN_Byte_Len;
" C6 f2 i; C9 y+ h* W! P//---------------------------------------------------------------------------
# e$ k  N2 B9 i  w, N__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
. y5 |7 b4 F7 D& F+ w; G3 A! n8 X  p* r//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
5 l, O2 N5 D$ C+ F: S/ }6 X        struct stat statbuf;
        FILE *stream;

8 j( O* K/ _: ]+ \  p, y        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
( p/ c( P4 E" W2 J! ^% q5 t        OpenDialog1->FileName="fileFrom.BIN";
8 @+ a8 v7 f, p! x& K) b$ C. }. k. Q4 c        if(OpenDialog1->Execute())
        {
                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&statbuf);
                BIN_Byte_Len=statbuf.st_size;
9 t1 e- b7 z2 z) N$ w- B                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
                for(int i=0;i<BIN_Byte_Len;i++)
/ [3 S  a2 s' L; [% Z                        fscanf(stream,"%c",&BIN_Byte); //read file
- i' d% p- j! F, C. ?; t& f                fclose(stream);
( @/ m+ r2 G, I        }
1 z# m4 G3 P5 G( A6 b( u! M        free(sPath);
* o* P% S7 I! Q! T' j' I3 y/ }        free(stream);
}
//---------------------------------------------------------------------------
* G( H: j4 O) }; @void __fastcall TForm1::Button2Click(TObject *Sender)
{
# m' i( G2 i, S$ E        char sPath[MAXPATH];
5 k- f# n$ |; E        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
2 G/ d+ f+ T2 R+ ?; _0 }        strcat(sPath,"\\");
9 a8 E! l  s! U8 T! ]0 S        SaveDialog1->InitialDir = sPath;
/ b+ V: G$ U  D  n0 F) y        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
5 h" G) @: h6 F% {                stream=fopen(sPath,"wb");
; ]1 I& F* h0 b                for(int i=0;i<BIN_Byte_Len;i++)
3 R5 m( z  m( L                        fprintf(stream,"%c",&BIN_Byte);  //save file
                fclose(stream);
        }
- }0 Y  X/ P# d9 j! a0 N        free(sPath);
        free(stream);
5 {+ W* @4 V% @' v$ d}
, u: q- x2 T% t5 N//---------------------------------------------------------------------------
) t" r4 X- b( U& T2 A6 f7 Lvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
        free(BIN_Byte);
}
* i  c! ]5 S8 Y# y//---------------------------------------------------------------------------

打開一個檔案,再另存為另一個新檔案
結果兩個檔案內容一樣
) }# V+ o6 Q6 k+ T8 d順序不一樣了
& t( A) L/ u# b, D$ m9 u檔案前面一段內容跑到結尾去了
就像下面的情況
原來檔案內容:ABCDEFG
9 u2 l3 r7 U7 C/ G, L7 A% g新檔案內容:CDEFGAB
/ }7 A. n% }' ]' o  L老大救救小弟哦
: z: m: P3 D" s: o( [" |5 D$ u, G

kenneth

<>我已經改成塊處理的方法了</P><>謝謝你</P>[em01]

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
<>alloca:</P>
2 V. D2 T5 D/ X/ G4 g: i9 U<>Allocates temporary stack space.</P>
<>alloca allocates size bytes on the stack; the allocated space is automatically freed up when the calling function exits.</P>
<>malloc:</P>
<>malloc allocates a block of size bytes from the memory heap. It allows a program to allocate memory explicitly as it抯 needed, and in the exact amounts needed.</P>
  }- R& u/ u  q5 L+ l( s<>Allocates main memory.The heap is used for dynamic allocation of variable-sized blocks of memory. Many data structures, for example, trees and lists, naturally employ heap memory allocation.</P>

! w" W; D2 Y6 v! M- W<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
/ `# ~. a/ a0 X& t, N#include &lt;fstream.h&gt;
#include &lt;dir.h&gt;
5 Z3 x6 k$ r: m2 m#include &lt;sys\stat.h&gt;
#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
#pragma package(smart_init)
8 w5 e* u2 l% q, q" y  B#pragma resource "*.dfm"
* T' D2 ^! b; l/ t: K3 xTForm1 *Form1;
/ D* M8 {6 C, c$ ~        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
3 x1 I' t' ^  U1 `& N6 t/ D8 Q__fastcall TForm1::TForm1(TComponent* Owner)
5 t; T* z- h4 I& A+ G+ v$ }        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
4 x" Y) c7 Z1 @; ?, Lvoid __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
        struct stat statbuf;
2 R% ?# @* _( d2 ]* O# R        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
- }: E  ?0 s- t3 w+ p5 R8 P        OpenDialog1-&gt;InitialDir=sPath;
        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1-&gt;FileName="fileFrom.BIN";
, w% }0 e3 T6 d! r* a        if(OpenDialog1-&gt;Execute())
        {
: j% g; [1 i: i3 @                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
. A& H8 n& ~( `$ A0 C$ c/ B                stream=fopen(sPath,"rb");
( o% u2 |' D$ U                fstat(fileno(stream),&amp;statbuf);
, a# l- @* y4 \, r% J                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
) B' u5 E, _% o1 \; b& c                for(int i=0;i&lt;BIN_Byte_Len;i++)
' ^2 s: I- ?+ F" m9 i                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
7 U: m' v" A$ A; s# T9 `2 ~                fclose(stream);
        }
}
$ E) v9 {' S) h: E! d//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        char sPath[MAXPATH];
2 c7 M, \- N, u. _/ X. w. @4 `        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
2 D( N1 f$ `: i: f        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
' b6 V0 Y, J; y6 V$ m        SaveDialog1-&gt;FileName="fileTo.BIN";
" H0 j3 M4 E- G) f        if(SaveDialog1-&gt;Execute())
        {
                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
                fclose(stream);
        }
        free(BIN_Byte);
}
//---------------------------------------------------------------------------
' u9 I& N- M) a! v0 \$ s- O. qvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
        if (BIN_Byte!=NULL)
( C% r: i/ ]& O0 N$ w, V             free(BIN_Byte);
}
//---------------------------------------------------------------------------
</P>
6 J' H4 P, O, h$ G' A<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
7 R$ b. q- P; Y& `  S7 h/ D7 |3 D: o<>fclose(stream)已经起到free(stream)的作用</P>
0 B6 ~4 q, X+ H

[此贴子已经被作者于2004-6-15 15:16:40编辑过]

kenneth

<>問題解決了</P><>不用回了</P>[em01]

kenneth

<>這個是對2進制文件的操作</P><>我用的是一個字符一個字符的操作方法</P>[em04]

kenneth

<>怎麼一個人也沒有阿</P>[em03]