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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
, \/ P7 M& w: ]$ ?; K4 w//---------------------------------------------------------------------------

: f+ b/ J3 T6 x1 z% F, K#include <vcl.h>
#pragma hdrstop

% S* G, P: Y: m#include "Unit1.h"
#include <fstream.h>
#include <dir.h>
#include <sys\stat.h>
#include <malloc.h>
//---------------------------------------------------------------------------
- U8 F+ ]$ U2 J: \. {; ?0 W1 N3 [#pragma package(smart_init)
" j, d8 v- S* H0 |#pragma resource "*.dfm"
; R5 W  `8 r5 c0 w8 ~4 ETForm1 *Form1;
        unsigned char *BIN_Byte;
* ]( y" q! Z& p        long BIN_Byte_Len;
1 v+ Z/ B1 g: B/ ?//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
2 d( M  w3 h/ e) c+ @" o* p{
) \& T2 n# U5 y4 b2 f/ o4 k' O}
! N/ r* H  x9 U# C//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
- L( p5 r0 @3 u; F" J8 D{
& R0 y; x2 B1 h* w: Y  }9 ~        char sPath[MAXPATH];
/ Y$ Q2 k+ B$ x" Y+ v        struct stat statbuf;
( E+ g# y- {/ y  M* G        FILE *stream;

        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
4 d, w; t3 G  _: b        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
- S" t! b  l5 D8 J. Y) [9 B7 @( E        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
        {
                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
# S* R" J% y- e                fstat(fileno(stream),&statbuf);
( l. a" T+ [- F: Z4 O! M                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
$ w! u4 D( u" z  P4 n2 k7 v                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
                fclose(stream);
% l7 \$ ?; V/ l  M        }
6 l. _1 J9 _) E4 [! F7 Z        free(sPath);
        free(stream);
8 w/ x: M/ [6 n" d+ P8 q}
; \1 s8 F5 C2 ~1 l) ?//---------------------------------------------------------------------------
; X/ j! q& i* T, z. i! n, hvoid __fastcall TForm1::Button2Click(TObject *Sender)
7 C0 Q) A4 E  [* @2 t# x4 q% T{
2 p5 F5 W2 c7 o" R9 i        char sPath[MAXPATH];
  h5 x7 J+ C2 ?1 J  O        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1->InitialDir = sPath;
        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
        {
$ Y3 m0 Q4 y% N+ `6 j: V: B- u8 u                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
! n) q) ^$ j! d                        fprintf(stream,"%c",&BIN_Byte);  //save file
                fclose(stream);
. o; Y0 o0 J6 W        }
4 a: t# \) Y4 H        free(sPath);
) v& h" i3 m/ q8 q+ `        free(stream);
- R, o4 S# F% |}
% c" n+ ~8 U$ I! F2 P4 Q9 F) t1 T5 o//---------------------------------------------------------------------------
) ^- o1 j- w) @( \+ Kvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
        free(BIN_Byte);
}
//---------------------------------------------------------------------------
& t+ i4 Z# z/ m2 B) R- G
0 w" x2 ]* W  h$ d6 P2 f打開一個檔案,再另存為另一個新檔案
0 I0 m  [2 \% x+ ~  n3 P0 B結果兩個檔案內容一樣
0 ~1 d; g7 F' y, o1 r' e0 `2 q! I順序不一樣了
檔案前面一段內容跑到結尾去了
6 j  y8 a+ ?/ X! M7 e4 d0 `就像下面的情況
原來檔案內容:ABCDEFG
8 j/ T/ X# ^# q; C4 W新檔案內容:CDEFGAB
老大救救小弟哦

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
<>alloca:</P>
5 I! W  p  A1 s& m# H0 r4 F8 `% P; |<>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>
; M: V2 t: ]' g<>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>
9 P; Y- z+ c6 q. T, B  z9 h: A<>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>

5 x$ }& k- L: Q2 j' |1 z<>以下是改后的代码</P>
! v; G" ^3 k3 w& y5 e1 F* |: |& v# C<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
) M1 r) M( k' S" K( x5 h#include &lt;fstream.h&gt;
. O/ z+ h0 C6 u#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
+ N+ u) V8 i. C+ D' N2 Q' b#include &lt;malloc.h&gt;
2 M% K9 C" L1 Q//---------------------------------------------------------------------------
/ l5 E% b/ [- _#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
        unsigned char *BIN_Byte;
* z6 Y5 K; r0 L* I        long BIN_Byte_Len;
9 y. ~% m3 @4 C9 k" j# R//---------------------------------------------------------------------------
% p+ T2 E* u& K6 N0 D2 J+ y* e__fastcall TForm1::TForm1(TComponent* Owner)
0 ~+ t+ }6 m0 b7 `) K. [* L1 g) a        : TForm(Owner)
{
5 S; e9 v# x7 _: x9 E1 H% R) G( i0 v}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
3 n/ N8 w- a6 d( X! Z" E{
        char sPath[MAXPATH];
        struct stat statbuf;
        FILE *stream;</P>
' a3 P/ I: x8 }  P- R% A4 q<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
) H4 k3 c" X' @        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
8 u: V2 z; K: \2 m. I3 S+ N        OpenDialog1-&gt;FileName="fileFrom.BIN";
        if(OpenDialog1-&gt;Execute())
5 E8 G* Y' X; K        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"rb");
# D5 `& k! D+ Z5 ^, y, N( v3 M( ], ~                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
$ d$ v" u; G! K' Z                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
, m0 h, G2 H0 u3 u+ X                for(int i=0;i&lt;BIN_Byte_Len;i++)
% |( g! B* f0 V& q                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
  T9 O# j& o, q8 P7 e7 E: `                fclose(stream);
        }
! |& o- @) T0 k" j1 B! ~}
//---------------------------------------------------------------------------
# Y5 c) q- @6 v6 Uvoid __fastcall TForm1::Button2Click(TObject *Sender)
{
2 l( k4 n; z* Y  o, g# y        char sPath[MAXPATH];
1 |3 d1 p, p# j3 C0 v        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
. ?) S9 E$ Q8 i+ C* f; m( L        strcat(sPath,"\\");
: v0 N, S' h9 U        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1-&gt;FileName="fileTo.BIN";
9 M  T" g2 Z; Q' @        if(SaveDialog1-&gt;Execute())
        {
# }- _$ P1 i9 P+ ?                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
3 Y2 r. v6 o# f( W, G                stream=fopen(sPath,"wb");
' N4 Z& G% R- O# j                for(int i=0;i&lt;BIN_Byte_Len;i++)
. `+ B2 ~: W8 ]" C, u% A* X! J                        fprintf(stream,"%c",BIN_Byte);  //save file
/ ]# `  u+ e2 P; L& t6 K                fclose(stream);
! X5 K4 O& D- ]' y& H" z: Y        }
        free(BIN_Byte);
- k/ V- s/ A' [/ @6 U' {}
$ ]. b2 f0 l& U, m9 R//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
! C9 \0 B* g) z0 ?* w6 d. g        if (BIN_Byte!=NULL)
; j" I4 J. C/ B' f1 {( s             free(BIN_Byte);
}
//---------------------------------------------------------------------------
0 X  A& t5 Z7 }* r- G</P>
<>free(sPath); free(stream);此两句也有问题。</P>
; I5 @: y+ V, B) j* j<>char sPath[MAXPATH];不需要释放；</P>
<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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