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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
: {) w& l6 u/ m* Z. s" d) P& u//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

; l" y. ]& w, {2 U3 S8 u# ^& U#include "Unit1.h"
; O7 m* L3 i' j- ]: t+ D7 G#include <fstream.h>
$ m# Z3 D" Q) T#include <dir.h>
5 O  p1 H% N, j. L/ T: h#include <sys\stat.h>
#include <malloc.h>
) s9 ?8 F$ |+ H! ?! Q( ]& ?' B//---------------------------------------------------------------------------
. Q  k: Q. Z; j+ Q4 m5 k! @5 c#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
; I! ^: q8 a( O        unsigned char *BIN_Byte;
/ ~) O7 t* j/ l4 }4 J        long BIN_Byte_Len;
//---------------------------------------------------------------------------
. S6 u- f& a  ^) e. j9 X__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
" i( v" s% d# d0 g: d4 M{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
5 M* a* |# ^! _3 B+ A{
        char sPath[MAXPATH];
+ ?) r1 W0 Q5 a$ R6 }- v        struct stat statbuf;
7 I0 B# O5 `/ e5 B        FILE *stream;

        getcwd(sPath,sizeof(sPath));
7 |: B3 }4 P/ r4 C" I        OpenDialog1->InitialDir=sPath;
7 R$ N: x' R, ]        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
/ \, ?. K7 c# i6 {8 D/ U        OpenDialog1->FileName="fileFrom.BIN";
5 Z5 p+ ~0 s3 U* w2 T5 Y* l        if(OpenDialog1->Execute())
        {
& U# f& t) v  H: S! V  S/ d                strcpy(sPath,OpenDialog1->FileName.c_str());
4 x8 F- C' O- q: I: K- R6 ~                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&statbuf);
+ U8 I8 Q' Y  I1 B5 h                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
. n6 N8 O% H4 G- I2 A  o( Y                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
& m/ A% X. n: }                fclose(stream);
% @8 y( O: H8 u        }
        free(sPath);
        free(stream);
}
+ A% J0 ?  R( p, \( X. l//---------------------------------------------------------------------------
, {; X; ]6 A4 n$ e  Dvoid __fastcall TForm1::Button2Click(TObject *Sender)
% m# _- v' J5 i5 L{
        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1->InitialDir = sPath;
( J  c3 e/ r3 b        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
( i5 D# X2 E3 e9 A8 |" U        {
4 U' P! _' H2 d. w5 A                strcpy(sPath , SaveDialog1->FileName.c_str());
; P5 S; u* R' p0 o9 A. s: [                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
2 Y/ p8 J$ H' }. O2 q: G                        fprintf(stream,"%c",&BIN_Byte);  //save file
- m! a# f8 D7 H  J9 [2 @1 {                fclose(stream);
        }
! H# ~# ]/ u& I$ r, S) y( S        free(sPath);
        free(stream);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        free(BIN_Byte);
}
/ N# O( `# y; g8 k0 a( i//---------------------------------------------------------------------------
; y% ?6 _( a/ B) K
打開一個檔案,再另存為另一個新檔案
結果兩個檔案內容一樣
5 F% J6 d3 g8 S7 t+ J順序不一樣了
& d: q; j6 ~8 H# Z! g6 Y3 D檔案前面一段內容跑到結尾去了
6 o% |, w6 k' P* J就像下面的情況
原來檔案內容:ABCDEFG
+ X% T8 d: l' M9 G3 i& Q6 h新檔案內容:CDEFGAB
& B2 z. n( r: Z7 @6 {2 i( k8 ^老大救救小弟哦
9 `: f* N+ j- ^" G8 A( ~2 d

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
6 ^  J9 B& c/ ^7 s<>alloca:</P>
<>Allocates temporary stack space.</P>
2 U2 F2 U! K$ Z8 |* ~) E; ]. H- c<>alloca allocates size bytes on the stack; the allocated space is automatically freed up when the calling function exits.</P>
<>malloc:</P>
1 v( |( U; ?" i& m/ \/ K/ `/ b2 v<>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>

<>以下是改后的代码</P>
& d! B' d# z0 G<>//---------------------------------------------------------------------------</P>
! y* z" x; i; W" ~<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
#include &lt;fstream.h&gt;
#include &lt;dir.h&gt;
, b9 B4 p. b( G+ _#include &lt;sys\stat.h&gt;
& z" t; j/ ~# r8 P, a. }#include &lt;malloc.h&gt;
1 F, ]+ N( T2 r8 Y//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
. F, I  g: t) U. L$ v, JTForm1 *Form1;
        unsigned char *BIN_Byte;
! x- N" a& t0 |/ K, w2 Z        long BIN_Byte_Len;
/ }# [( X# z1 s, s# M+ j! m//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
8 X3 o9 ]' _2 I3 b! K2 w        : TForm(Owner)
. n* u2 y( T7 H' h4 N, r6 x% _{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
- Q; }! S4 P& b8 x2 T1 z3 W2 \, z{
        char sPath[MAXPATH];
        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
9 r& Q+ B" g" Z5 f        OpenDialog1-&gt;FileName="fileFrom.BIN";
        if(OpenDialog1-&gt;Execute())
+ f, x( J% U+ k" k% L/ R        {
) |6 z9 p# c- K0 T" N* i. h/ L                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&amp;statbuf);
" b9 N  O5 y% S. U& R                BIN_Byte_Len=statbuf.st_size;
: t+ F4 }5 P' W1 z8 S$ P6 O- F                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
5 E' a2 I8 t: q" T2 m; x$ s                for(int i=0;i&lt;BIN_Byte_Len;i++)
% ^- o" u2 g; h' t8 [                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
. x- K: u; y4 h8 J* y1 D- R# O! `                fclose(stream);
+ \( {% l4 [+ O  u( X* |        }
}
7 @# i2 K; J/ L//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
( O: w- \5 o; e2 n# Q        char sPath[MAXPATH];
4 O* l, B, C+ {1 Y  f* ~# p        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
7 g6 X: R* m7 `' @; b$ U        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
        {
, n$ f: b/ U" o; r) U* @8 k  L5 u                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
& |7 m* G' \- \                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
6 k3 B) H' ?( P9 w. Q$ s! A                fclose(stream);
* x2 m7 O$ n6 k$ \7 T        }
        free(BIN_Byte);
- B; H  u7 U2 i6 W0 q: m}
( h$ `' P3 `# Z5 ?5 D//---------------------------------------------------------------------------
3 c; S' t7 z  m: e5 avoid __fastcall TForm1::FormDestroy(TObject *Sender)
# [4 z& p# Z$ [" m{
% c6 f. q' l6 I( t/ R! a0 U        if (BIN_Byte!=NULL)
, l2 T1 y+ H2 Q5 ]7 s4 `; Y             free(BIN_Byte);
}
//---------------------------------------------------------------------------
</P>
- N: R  y6 y+ v6 X! Z<>free(sPath); free(stream);此两句也有问题。</P>
% k# m4 K) A( E# b1 S4 t& I<>char sPath[MAXPATH];不需要释放；</P>
<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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