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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
3 _0 _' ]4 W+ n; |6 T" l//---------------------------------------------------------------------------
5 O& h9 Z% T0 H4 T3 J: J2 ^
; W" `, r- [; ?! m4 v#include <vcl.h>
; j4 B! D( _1 ~$ T1 U  f4 T#pragma hdrstop
/ D/ G* x* ?" G1 \5 u9 y
4 ]1 \4 {. v8 v( _#include "Unit1.h"
+ I; T5 x* U$ T4 w& N6 E#include <fstream.h>
#include <dir.h>
- H0 G; l$ B2 O0 ?4 U6 W#include <sys\stat.h>
#include <malloc.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
$ R1 d6 W4 }! \6 s5 G#pragma resource "*.dfm"
0 B) \( L& X: p# U2 NTForm1 *Form1;
        unsigned char *BIN_Byte;
# T* x; ?% y* p        long BIN_Byte_Len;
) f, \& {# t1 o, Q+ C. n% C//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
& K# B8 L' x. v- }& e) g        : TForm(Owner)
5 k+ @$ N% S& D{
}
- t/ B3 r2 |) _1 R: q# D//---------------------------------------------------------------------------
- n. h6 i4 g! _3 w  D8 evoid __fastcall TForm1::Button1Click(TObject *Sender)
& U2 ^0 }* G, w$ }* B9 g2 R! L: ~{
        char sPath[MAXPATH];
2 d% G5 }+ U. r6 v/ B4 y* V        struct stat statbuf;
# B: Y' z: P* X7 G, P7 `' P        FILE *stream;
/ o7 D, Y, @. f5 K% x
        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
. J& Z! w6 E& y. q6 \        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
        {
# B! L1 l4 `* k# _( _! T! {# m6 F                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
" x% n% E0 ^$ F: ~                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
' O' V" F  k. p; M' n5 _                fclose(stream);
8 K# }( M5 _9 m8 D, |5 r' a0 \. m        }
        free(sPath);
6 v* g6 D% H& F        free(stream);
}
; ?  n; ~, W/ ^! O2 g  ?//---------------------------------------------------------------------------
6 _( \9 r- \+ n+ J4 M' vvoid __fastcall TForm1::Button2Click(TObject *Sender)
5 v  A5 {9 Q* k{
# @$ b% a# J( N: e9 a0 G# g( u        char sPath[MAXPATH];
3 X3 q# ]: K1 j: `4 G        FILE *stream;
! I+ j1 K0 O- I2 N8 U        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
) i$ i! R& K+ d" ]7 y3 g+ ^  f/ [7 r        SaveDialog1->InitialDir = sPath;
        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
                        fprintf(stream,"%c",&BIN_Byte);  //save file
; z% R0 D. }$ G4 f, T/ Y' L2 g                fclose(stream);
        }
2 R2 u( x& g7 ?! n# o; b) d! w6 r        free(sPath);
9 V- p2 k/ }" m- F+ R, ]: h        free(stream);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
/ @# _" z4 I  a{
5 H1 x, z6 E, T, Z9 m( k, Z6 s' y        free(BIN_Byte);
}
5 x7 ]8 A3 R+ h//---------------------------------------------------------------------------
$ [$ R' U  T3 d9 h+ N0 a/ A
打開一個檔案,再另存為另一個新檔案
' G4 A5 f- }5 I! _/ ~結果兩個檔案內容一樣
順序不一樣了
1 S4 Q9 F4 I# @7 t, H檔案前面一段內容跑到結尾去了
- k/ G/ P# g: q就像下面的情況
原來檔案內容:ABCDEFG
新檔案內容:CDEFGAB
老大救救小弟哦
5 G8 T+ B) E$ m* v% {' o: a( h

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
7 g. |$ Z" T! g. y$ Z, i* j  K<>alloca:</P>
; n; N# K" u5 R( ~7 O! L" `' [1 S$ z' M<>Allocates temporary stack space.</P>
$ S- S! i  e4 j# k, d9 t<>alloca allocates size bytes on the stack; the allocated space is automatically freed up when the calling function exits.</P>
8 S8 o, q; v  O3 m8 @+ ^<>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>
<>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>
# `& O; N3 }) M8 g! Q& O
<>以下是改后的代码</P>
0 q6 ^6 P3 H! P# X- [<>//---------------------------------------------------------------------------</P>
) L2 D9 t" O  ?: s9 f; T<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
7 N4 d0 l7 A3 s" l) l7 r. z. {#include &lt;fstream.h&gt;
7 W: h1 [4 o/ k7 i#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
3 C) [8 S$ Z- s- q0 ?7 y#pragma package(smart_init)
#pragma resource "*.dfm"
! e# ]& _2 l& N0 y; G* @TForm1 *Form1;
        unsigned char *BIN_Byte;
+ D+ }% a, s$ l  z/ o# `        long BIN_Byte_Len;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
1 n" H7 H8 i4 l8 L: {8 L( |        : TForm(Owner)
{
3 q/ C" [3 W) m* e9 `9 ?1 X$ X& r& i}
6 j1 G( ~& H8 H% y6 o" x//---------------------------------------------------------------------------
4 N$ E& P4 P: y* S. s0 p( bvoid __fastcall TForm1::Button1Click(TObject *Sender)
2 y9 m% `/ z& L5 h{
! {' A3 q% r$ Z# E* ?7 @        char sPath[MAXPATH];
  l9 e0 d. F1 |+ P  @; a# e        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
4 I# ?$ g1 ^: J; H+ z0 R% R' ^+ C        OpenDialog1-&gt;InitialDir=sPath;
        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
7 A" |7 m* E# x        OpenDialog1-&gt;FileName="fileFrom.BIN";
* S' ^# f+ o' x7 Q* ]        if(OpenDialog1-&gt;Execute())
        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&amp;statbuf);
: ]% [) m2 l; }( F                BIN_Byte_Len=statbuf.st_size;
) g* H% T1 v4 A                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
                fclose(stream);
, I7 h' r5 m( ~0 [        }
: n9 o( [5 N, {2 @5 ^7 B( ?}
//---------------------------------------------------------------------------
/ G! |+ K" j% E6 W1 Vvoid __fastcall TForm1::Button2Click(TObject *Sender)
8 _+ L8 i5 g% t# ~. U{
        char sPath[MAXPATH];
/ U. S8 H! _1 X5 y( Y        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
8 M7 _) d0 M$ x5 u" r. S2 ~3 b        {
9 M  u* q! p$ ~. b                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
; \1 ^+ I* M0 w7 t                stream=fopen(sPath,"wb");
, o4 Y# h( _7 n. {+ l+ @. ?                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
0 u) ?' C# U6 |0 G- p7 }, A                fclose(stream);
        }
1 I9 w: h2 c* i        free(BIN_Byte);
4 g" a& U5 ~, d0 F}
: l5 x  f% Q' O//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
) h/ ?! b' }; N; T9 q6 b{
        if (BIN_Byte!=NULL)
             free(BIN_Byte);
% ?5 ~) _  L0 ?3 X! X! w' K  `* X}
. O3 U. k7 i8 w4 p" x- w3 S//---------------------------------------------------------------------------
' q4 D: y5 f8 Y; m</P>
$ p) S! ?7 s# t  b! \<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
<>fclose(stream)已经起到free(stream)的作用</P>
/ L9 m! c. d2 ?2 K( S- B/ B0 F

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

kenneth

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