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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
, C$ Z0 G9 G+ i2 y//---------------------------------------------------------------------------

" ^' a) B; d* f  \#include <vcl.h>
2 o4 S' X5 [' j' ^3 N#pragma hdrstop
% S( ?2 A" j- d8 ~5 y  d: Q
- y/ ^, s+ W- X8 S1 m- m#include "Unit1.h"
) D1 S# z/ X. s" [9 V7 \#include <fstream.h>
# L0 ^6 g8 g) C$ Q2 ^, \9 I9 K8 F7 F& u#include <dir.h>
' A: C- E" d* A( e* `#include <sys\stat.h>
5 _- V, N% J$ i; A0 m" J#include <malloc.h>
//---------------------------------------------------------------------------
& ~" c2 z  c9 L8 A" ~( U#pragma package(smart_init)
#pragma resource "*.dfm"
! q! F( z) f6 Q8 }TForm1 *Form1;
0 o* O/ w9 z+ O7 E2 L# y        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
. B+ T3 L: [/ ?* m& B! t. r__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
' E) s8 R0 J% g2 `{
( y" R* Z. |" u7 D, w}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
# f0 K! c1 B/ T. q* M1 r( A" E{
5 U+ n9 M6 @) `- s5 h  [& X$ b3 M' x        char sPath[MAXPATH];
        struct stat statbuf;
/ m# Z, X, f. E# y# ]+ I: `; a        FILE *stream;
* P% B# x" d' j) k5 d% a2 y' M: y
        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
$ M7 g% B) l4 B3 i* M( Z        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
        {
                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&statbuf);
! u9 S9 q9 n  ?" [9 R# Z, t9 M5 s8 J: I                BIN_Byte_Len=statbuf.st_size;
- l9 u, q# j. k" e                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
% j4 _6 h3 w6 ?4 E# U                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
) f1 p: v. O. @8 a                fclose(stream);
# p) J3 V- |* e' w- P/ t5 H        }
+ R0 X* u0 g/ X! b- {6 p) s0 b        free(sPath);
! ~% I4 d+ m" E  ^" f4 u; g% \        free(stream);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
+ f  ^0 q3 T9 U        char sPath[MAXPATH];
8 ^! M- }8 o. _7 ?& a* N6 k% [        FILE *stream;
; [% A" M* Z: L4 ~        getcwd(sPath,sizeof(sPath));//App.Path
6 Z! Z. x$ V3 T  @: i        strcat(sPath,"\\");
3 Z9 m- A4 N0 |( C+ K1 p* a& ^( Z        SaveDialog1->InitialDir = sPath;
        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
: |! M: Q; b+ U        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
, o$ P3 L% D" ?6 w! i& U                        fprintf(stream,"%c",&BIN_Byte);  //save file
0 B+ ]: _/ x4 @                fclose(stream);
" v; {: n& ]! ^* C        }
        free(sPath);
! L$ {) F6 U( M" S6 G6 S        free(stream);
}
9 j& y# @9 l0 Y- }//---------------------------------------------------------------------------
7 J$ ?2 {3 H! ]void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        free(BIN_Byte);
1 ]- E4 r- b! m$ \! }+ Z" K0 R}
: g$ X1 c  b! p* B2 L  k$ ]//---------------------------------------------------------------------------

打開一個檔案,再另存為另一個新檔案
5 z" d7 S) ?9 W; K: H結果兩個檔案內容一樣
% b1 M+ w- u' \( \3 @; a1 L: P8 H順序不一樣了
! t" z& j. O# D* ^' Q$ x檔案前面一段內容跑到結尾去了
就像下面的情況
原來檔案內容:ABCDEFG
! C2 V: [4 I% w2 {新檔案內容:CDEFGAB
0 N" {9 A9 Q* O3 a老大救救小弟哦
3 ?/ F( a% s& m( y5 d  A* ^! u# p

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
<>alloca:</P>
<>Allocates temporary stack space.</P>
+ c" T& u1 z" k* }/ z<>alloca allocates size bytes on the stack; the allocated space is automatically freed up when the calling function exits.</P>
<>malloc:</P>
" `2 X  I2 x8 u% t& E! `1 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>
<>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>
6 x* O/ ~$ @, h) n! Q
<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
9 p- J, m3 c& s9 D) ?- `<>#include &lt;vcl.h&gt;
% L# G( |/ {% G6 T) T. o#pragma hdrstop</P>
<>#include "Unit1.h"
6 Q* t+ C+ L, m( T) k; o' z: ]/ d#include &lt;fstream.h&gt;
. |% l- b% t6 ?( B) k# }: `#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
#pragma package(smart_init)
6 n/ R# ^. P& H8 v8 M$ _! a9 x8 p#pragma resource "*.dfm"
5 h% u; L$ V4 A7 `1 e3 A' h! aTForm1 *Form1;
        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
$ E+ l! q# G5 J- Z9 A( O6 F1 w* ?4 `__fastcall TForm1::TForm1(TComponent* Owner)
5 S  w/ R8 o/ B/ f! d& _        : TForm(Owner)
( H4 S4 B, H1 o; o% m% E- O9 C5 X{
}
6 N+ I4 t; ]3 @8 e//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
9 \0 X+ t1 [+ l0 ]3 T{
        char sPath[MAXPATH];
) y# ~6 h' d& x) k        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1-&gt;FileName="fileFrom.BIN";
1 J2 l; T8 g- @        if(OpenDialog1-&gt;Execute())
. @, L, N; M1 O9 U2 c) q        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"rb");
; x3 _6 m# f+ h4 @/ b. v, E                fstat(fileno(stream),&amp;statbuf);
2 x4 _) {  Z: q6 c8 t3 o                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
  K4 Z- z- _  O. S0 w, n                fclose(stream);
        }
}
% T  c% c4 R* Q//---------------------------------------------------------------------------
( i0 F/ r2 |. M, Qvoid __fastcall TForm1::Button2Click(TObject *Sender)
& O2 V1 n0 h- A% n1 g2 M  C{
        char sPath[MAXPATH];
) O3 L/ Q* }. {4 I4 E5 `! A        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
2 C. |, B5 V/ v+ ?) o2 v' ]; ?        strcat(sPath,"\\");
% [; ^2 ]  F9 U* ?# m/ d        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
6 c& P" {! r8 V& J  S& I" f: P2 |" G        SaveDialog1-&gt;FileName="fileTo.BIN";
8 _( a$ b% d2 W" x. \        if(SaveDialog1-&gt;Execute())
1 r( C% [  o) b; w* Z7 M        {
                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"wb");
, R/ Z' C% A! k2 [! F                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
                fclose(stream);
' {! t+ F: I7 k* X1 f9 _/ T        }
$ ^' X* q; j, x  }" E7 Z        free(BIN_Byte);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
4 O6 I5 X$ R7 G( t0 K" A# R        if (BIN_Byte!=NULL)
             free(BIN_Byte);
& ?# ^8 B3 z, F. o! ?% g: C# V}
$ ]# ?1 B7 W. ?' I//---------------------------------------------------------------------------
$ E  D8 A+ \* n$ r- J7 L</P>
<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
1 ^2 q9 t. T7 O5 h( Z<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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