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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
- I$ M6 L4 a' J0 z6 O//---------------------------------------------------------------------------
2 k8 E8 A7 J0 {1 f
#include <vcl.h>
7 Z9 h% O3 @4 o9 G#pragma hdrstop

5 t% c9 V6 e7 v8 z+ ~+ N  X#include "Unit1.h"
#include <fstream.h>
#include <dir.h>
8 G4 @& L; R! |1 z& x: N0 U#include <sys\stat.h>
#include <malloc.h>
//---------------------------------------------------------------------------
8 a; j# C2 z5 }' K#pragma package(smart_init)
#pragma resource "*.dfm"
) b5 K3 D4 K% p" t4 PTForm1 *Form1;
        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
6 v0 n" G. x" O0 L4 D# j//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
, V" F/ c5 k/ A0 c        : TForm(Owner)
! v; C, ~: _. T4 G" l; Q0 l{
}
; }6 n+ v, o3 f/ ~" H//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
- s5 y+ l8 u  y- X2 a{
        char sPath[MAXPATH];
. _" N" @( W) L+ Q; _1 n        struct stat statbuf;
        FILE *stream;

$ y4 }, Q' F5 \0 Y$ u        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
        {
                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&statbuf);
                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
4 [4 |  @. W$ j) y9 A1 T                fclose(stream);
3 O0 J' H# m0 i, w/ M0 O% J8 }8 e        }
        free(sPath);
( `* w, G7 u; U0 v" A! j) M        free(stream);
& A0 t) @, \  N! A; ^9 T' w3 D}
) X8 v5 ?* C5 w//---------------------------------------------------------------------------
! b5 S5 k' l4 ?/ x' H( }void __fastcall TForm1::Button2Click(TObject *Sender)
{
& x" G" N4 F0 V( R# l7 ?; G        char sPath[MAXPATH];
/ U/ Z# m: s* `. Z7 s        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
. a' Q9 c; w" E$ I1 w9 Z        SaveDialog1->InitialDir = sPath;
        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
6 b9 V# x0 {4 B; \        if(SaveDialog1->Execute())
% `3 C& x4 h8 a7 Q% V2 L5 p        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
) W. [5 I+ x; ~; r: k                for(int i=0;i<BIN_Byte_Len;i++)
' v! a# t, ~$ x                        fprintf(stream,"%c",&BIN_Byte);  //save file
                fclose(stream);
        }
9 ^' M/ o8 Q5 x# r# E        free(sPath);
        free(stream);
}
( I4 H" L2 M% K' [0 H//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
/ D, z2 f  }# h' l2 r1 P6 `: [{
        free(BIN_Byte);
2 u9 \/ v3 |" c+ `0 K+ n3 Y& S: E0 \4 n}
//---------------------------------------------------------------------------
; ]6 a5 M% q  Q( j, }( R8 ?6 U, S
打開一個檔案,再另存為另一個新檔案
) A! X/ M. o0 n, @, Q結果兩個檔案內容一樣
# q3 u/ i5 F" M% P# v; C順序不一樣了
& E. d6 i! e' M檔案前面一段內容跑到結尾去了
. S2 K; \0 z; `/ ^' E就像下面的情況
原來檔案內容:ABCDEFG
* w' G: l  e+ \3 j; f2 F新檔案內容:CDEFGAB
# @6 l% i3 F* |8 v老大救救小弟哦
0 m/ c8 v) @! M- k1 y4 N# z

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
& j7 e4 V% d, ~6 ]<>alloca:</P>
7 I. q0 Z7 i: }2 I+ {6 Y  u$ T<>Allocates temporary stack space.</P>
% E. ~2 E8 ^2 l<>alloca allocates size bytes on the stack; the allocated space is automatically freed up when the calling function exits.</P>
<>malloc:</P>
. G' X9 `& x/ n% \! b' c8 `<>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>
<>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. \: B: L, Z( `% D<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
#include &lt;fstream.h&gt;
$ v* [- g* N" ?* f  B. H#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
& Q  V; t. T9 P$ ^#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
#pragma package(smart_init)
$ {2 {  J/ _5 G0 @2 u" |; h#pragma resource "*.dfm"
TForm1 *Form1;
        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
" T8 k1 z% x/ I7 w( s{
}
& j/ E- N. W% M- `& L//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
" J1 c- I; H- e2 B6 Y{
        char sPath[MAXPATH];
        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
' P1 }1 a& x  \/ r6 C  z) \( _        OpenDialog1-&gt;InitialDir=sPath;
* I  P' a& M$ Y4 A1 l/ r% _- V        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1-&gt;FileName="fileFrom.BIN";
" r4 }, z1 H5 l        if(OpenDialog1-&gt;Execute())
        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
, X: R- O+ T3 u  c1 Q9 t                stream=fopen(sPath,"rb");
9 y8 Z9 p; S& f" x8 H+ p/ o                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
8 n4 g) R3 S% k! l                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
# C$ a# g5 Z- W; Z5 U2 `6 a1 O                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
                fclose(stream);
        }
}
/ \6 z' R. u# h% n  _" T: Y//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        char sPath[MAXPATH];
        FILE *stream;
3 H* u* O8 ~( Y' Z        getcwd(sPath,sizeof(sPath));//App.Path
  j( Y  {1 S0 l3 g5 @$ K        strcat(sPath,"\\");
: T& ]8 q8 c9 ]8 D, p# d3 D3 _        SaveDialog1-&gt;InitialDir = sPath;
8 ]9 `9 o" K, A- \. w! r( R        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
( t% F6 z3 }8 |" n+ R        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
: t5 s$ F" s7 p0 n, B% I' c: T        {
- ~( S; p. M; c                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
& F7 {& d/ [5 V% ^                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
                fclose(stream);
7 u+ _3 O& }9 _7 C; T0 k        }
( H' |+ E  z% H  a        free(BIN_Byte);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
6 G& o- v" k3 X; x% O        if (BIN_Byte!=NULL)
- R* G# D9 }9 A             free(BIN_Byte);
}
! U! V  T( a  _3 D! Y//---------------------------------------------------------------------------
% ~; b8 U* I$ l5 I  O9 k</P>
. p, Q2 u$ G# \8 T( s* N  j<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
2 U! }' a) }$ z( k* T<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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