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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
//---------------------------------------------------------------------------
1 [  U0 A: {6 q$ b; L. R4 [& [! C
#include <vcl.h>
) c* o7 D# j- X" M& X7 i#pragma hdrstop
' y: }0 W9 }# _" c3 ]. k
#include "Unit1.h"
#include <fstream.h>
3 x5 Q& E% i9 A9 m! b/ V#include <dir.h>
#include <sys\stat.h>
#include <malloc.h>
//---------------------------------------------------------------------------
4 K* b# v4 V6 I+ N. d7 J  z#pragma package(smart_init)
) d9 Z# U- \. L$ v. `#pragma resource "*.dfm"
# s' n" n6 |1 Q/ `) z5 ~' w: cTForm1 *Form1;
+ a2 X8 j) z; i' J; A+ E        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
" j* f- k' ?1 @- P__fastcall TForm1::TForm1(TComponent* Owner)
! {, D8 Q9 I+ ]1 |) r; h' J        : TForm(Owner)
{
) p( F0 _" ~  N4 j}
' `, \8 W1 j+ z2 Q//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
: ^2 d1 a) M9 e6 w1 X" y9 \+ x        char sPath[MAXPATH];
' i& A/ D% C2 J2 f+ a: l1 \        struct stat statbuf;
        FILE *stream;

        getcwd(sPath,sizeof(sPath));
  j  }, S2 g0 n- K        OpenDialog1->InitialDir=sPath;
' B: p7 i2 z! s) G" r3 Y        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
& z. T$ P" [, ^: v% z* }9 Z1 V. A; K        {
                strcpy(sPath,OpenDialog1->FileName.c_str());
& W8 ^+ b& Y, k7 ~                stream=fopen(sPath,"rb");
/ q* p+ F4 V- \6 Z6 l4 m                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
# M" [1 ^, [/ _& x8 C2 o  Y7 r                fclose(stream);
: K( I5 ~' q: k% _        }
  [& ]8 ]7 |+ ^# u, W4 q8 b! c        free(sPath);
; Y& c- N' b* T) u: {        free(stream);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
& H% g. k' I, L3 [9 [1 n        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
  p6 [; {3 D- c  [, D+ j: t        SaveDialog1->InitialDir = sPath;
        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
  d% S8 j8 e7 x  {        SaveDialog1->FileName="fileTo.BIN";
3 R1 r5 C; P, e& G2 ]. h; ~  F$ X- a        if(SaveDialog1->Execute())
        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
5 @; a3 p. y+ C+ K+ A: l                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
                        fprintf(stream,"%c",&BIN_Byte);  //save file
* d. P3 C) K1 |  _5 ]                fclose(stream);
8 i& t: e5 C! E$ Z5 k        }
        free(sPath);
) q: a6 G3 I& m        free(stream);
2 b" k& E# e1 J1 a- N: H}
//---------------------------------------------------------------------------
) ^" M  P# \( m6 q% M% [  Fvoid __fastcall TForm1::FormDestroy(TObject *Sender)
/ a) k' `% _/ E# E{
% q7 J  W+ ~: `) u  D7 L9 I7 Y        free(BIN_Byte);
( O5 {: H5 F6 U}
1 m7 m1 y+ T7 e1 R7 J//---------------------------------------------------------------------------
& q/ L  j& t  }% {
打開一個檔案,再另存為另一個新檔案
5 Z5 w4 J7 F5 K/ |7 Y結果兩個檔案內容一樣
7 X) \/ O9 [- @7 w; `. z% B3 s1 |順序不一樣了
檔案前面一段內容跑到結尾去了
5 y+ p  u! ~. A/ K# C9 c. s就像下面的情況
原來檔案內容:ABCDEFG
' _8 H: j! T# Q$ \& N新檔案內容:CDEFGAB
7 D/ q) j# ~  k" Y8 M: k! Z9 p老大救救小弟哦
+ K% J4 H, @. {/ g

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>
<>alloca allocates size bytes on the stack; the allocated space is automatically freed up when the calling function exits.</P>
<>malloc:</P>
8 |# e& O. y1 G% i<>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>
& |6 i5 |3 V* U. F1 X! x$ [<>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>
, Z* ?. z  L0 P% j& g% Z
<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
6 v$ S$ `) |! ], i' M<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
#include &lt;fstream.h&gt;
0 |$ I8 `- g3 I& o  W7 T4 G3 x% C#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
1 k2 W# r3 c) X" z6 N: H! \#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
#pragma package(smart_init)
4 `: L! I/ x3 c& m. t6 E#pragma resource "*.dfm"
) D$ s% A9 W5 V. e. jTForm1 *Form1;
        unsigned char *BIN_Byte;
5 }+ A% ]- M- u- Q: x9 p4 f        long BIN_Byte_Len;
0 z, f7 j6 z  m+ U//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
) S! L  ?5 R; x. U' C2 R{
( S( w, Q# ^- ]5 b}
, Q1 \' r' o3 z7 E//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
/ z8 r. z! J' T0 L2 B2 ]5 e{
        char sPath[MAXPATH];
        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
. X1 A0 \3 l' D) S; ?- d8 K5 q0 u        OpenDialog1-&gt;InitialDir=sPath;
9 h5 S( M( ]" }7 F0 B6 M! z! W        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1-&gt;FileName="fileFrom.BIN";
        if(OpenDialog1-&gt;Execute())
        {
8 W5 s" W  W; f4 E                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
6 \( }; }1 `0 U; A                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&amp;statbuf);
/ \+ j) G" N1 {( m. m, R/ I" k                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
( t; l( B% X( h) H- R, y% E                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
                fclose(stream);
, [' z9 i% R6 C        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
5 j1 V1 \) U3 V* O& ]8 {; J{
        char sPath[MAXPATH];
& ]: [1 _3 a% X        FILE *stream;
1 X* C1 i9 a, A8 o        getcwd(sPath,sizeof(sPath));//App.Path
* w+ ~3 k/ O- t; h4 X        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
( P8 A% k$ b3 Q# Q& t        {
                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
3 E" A3 |, E$ H1 R7 M                        fprintf(stream,"%c",BIN_Byte);  //save file
/ ^) q4 r" Y" c1 a7 g9 e                fclose(stream);
9 G; j3 m/ ?: A3 s2 e1 M        }
7 B* q5 w( I; z        free(BIN_Byte);
}
8 C2 y, C2 u  F4 C2 G' h! Y//---------------------------------------------------------------------------
, N/ t% P0 ^: Gvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
        if (BIN_Byte!=NULL)
1 j1 |) @; _$ G6 I4 w6 d+ V5 M6 h4 r             free(BIN_Byte);
}
4 h. ?2 E6 G5 g9 U' v. K( V2 R//---------------------------------------------------------------------------
1 {, [, p) o" y</P>
<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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