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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
  f% ?' t& e  K0 F//---------------------------------------------------------------------------
2 `" g! W/ q: ^) }
( u+ T2 Z" S; m( I$ C#include <vcl.h>
#pragma hdrstop
5 _1 Q$ n" o+ [) j; I4 y
+ O! a; R" U5 o2 M4 Y, M8 F#include "Unit1.h"
/ J7 f* @7 K, `8 e2 ^+ T0 @#include <fstream.h>
1 [6 R- n; d6 l1 `#include <dir.h>
$ e6 @3 B) a( ]" T8 G* {#include <sys\stat.h>
#include <malloc.h>
//---------------------------------------------------------------------------
4 Z1 X( @  [) D" W* J& I#pragma package(smart_init)
  G4 c% u+ W! N% H6 i0 l1 D" _#pragma resource "*.dfm"
TForm1 *Form1;
: @! A$ G- u7 V- {        unsigned char *BIN_Byte;
" A: O9 K2 B( }4 ~7 J        long BIN_Byte_Len;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
: F' S; ^. y- O' Y        char sPath[MAXPATH];
        struct stat statbuf;
        FILE *stream;
: S- d7 a! u. d# w" p
2 |! J8 G9 A# R0 E) X9 }& `8 Y        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
$ k! y9 v, p% \$ F  {" m, [& ^' ^        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
2 \. z# Q+ [$ d) o, r- ~        OpenDialog1->FileName="fileFrom.BIN";
" k/ ~) b8 a3 e( v        if(OpenDialog1->Execute())
! L6 `9 d3 }) `6 n1 L/ u        {
; e3 o0 X( J" y3 t1 R& d                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&statbuf);
1 n: ^4 F) F' U) ?% z0 z                BIN_Byte_Len=statbuf.st_size;
! O" z/ p6 e3 J% {0 l                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
                for(int i=0;i<BIN_Byte_Len;i++)
4 m# E2 u5 v/ P1 }                        fscanf(stream,"%c",&BIN_Byte); //read file
9 k/ ]6 M$ Y- J7 e                fclose(stream);
        }
        free(sPath);
        free(stream);
  m2 z4 p( t/ O' V- ?7 V  w' H}
//---------------------------------------------------------------------------
, Y' K9 F& H( N7 evoid __fastcall TForm1::Button2Click(TObject *Sender)
{
  _& M3 Y$ [( h# _8 R; R0 {        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
# J% [" N2 B, H- q% v6 N        SaveDialog1->InitialDir = sPath;
        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
7 n  s+ s3 s$ l- B; d+ f! d        if(SaveDialog1->Execute())
1 E, j% p* X( G0 m& l        {
! _, `8 D* U( a$ f8 R, p                strcpy(sPath , SaveDialog1->FileName.c_str());
$ O7 i# u( t0 Q. Q9 I                stream=fopen(sPath,"wb");
' ~$ e: {- k" }8 t  ]8 E8 X' y                for(int i=0;i<BIN_Byte_Len;i++)
                        fprintf(stream,"%c",&BIN_Byte);  //save file
                fclose(stream);
4 y3 B* _( e2 o" n, [4 a        }
6 k: [' U. ^  U( F$ T        free(sPath);
        free(stream);
9 R. K2 ~1 k8 m' q! d6 J}
4 t4 r  P$ M8 B( j' X) |# L; E//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
+ c! x6 k% e' t  J* k) U        free(BIN_Byte);
% S! Q! O# M% [, |$ h; f" X+ W}
//---------------------------------------------------------------------------
+ G3 l, K: p  X* T' W
打開一個檔案,再另存為另一個新檔案
結果兩個檔案內容一樣
  R1 E; Y* N' L1 N) N% D% k4 i( B& Z順序不一樣了
9 c5 p9 S2 d6 s8 n9 w6 J- w檔案前面一段內容跑到結尾去了
; O5 Z1 A/ m1 Z就像下面的情況
# }" K8 ^3 e, L8 Y% l  c1 Y3 U原來檔案內容:ABCDEFG
, }6 H# p! Q/ n+ X3 q6 b* E新檔案內容:CDEFGAB
7 h/ A6 A9 @" h& k, s& p4 N老大救救小弟哦

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
<>alloca:</P>
& i% ]% M- ^2 j3 `6 i) j; A<>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 N) E: O8 k" S" 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>
( c' t  F$ `/ F6 q% v2 ?<>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 ]1 H* O! B4 J( ^5 W" Z, V7 q$ |<>以下是改后的代码</P>
) r' `% V/ }! u4 ^; V$ R) H<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
/ Z( I* J4 Y, M% v* h9 I) O( ?/ W<>#include "Unit1.h"
$ U. u: F* _; b0 e* f#include &lt;fstream.h&gt;
9 @8 x7 P( P! m* |4 ^#include &lt;dir.h&gt;
) _, S8 v6 K: F* O; M' N2 \0 H$ k#include &lt;sys\stat.h&gt;
#include &lt;malloc.h&gt;
: G, I2 j1 ^% j( o- I//---------------------------------------------------------------------------
% e( j7 A$ w0 s, S% ^#pragma package(smart_init)
3 z1 Y& F! X" z$ O* j7 J. n7 G#pragma resource "*.dfm"
TForm1 *Form1;
* c# m! n3 s2 g2 N, @& N% {        unsigned char *BIN_Byte;
' l$ l. l- K' M        long BIN_Byte_Len;
" H5 R, ~9 L6 ~: q4 A  \  d//---------------------------------------------------------------------------
9 T$ U& z( o! ]- q__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
) L+ ~: h6 W4 ?. P//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
( P5 P/ Z( H7 K4 |6 d        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
* n; B5 r+ _1 p7 H$ t        OpenDialog1-&gt;FileName="fileFrom.BIN";
# [6 g2 r+ t) ^/ I. u( |7 K        if(OpenDialog1-&gt;Execute())
        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"rb");
3 u% J! o0 f9 z: n                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
8 \* C7 N. L2 I- N+ G- j                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
- l2 P" T' b! \( L5 f" c                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
                fclose(stream);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
3 U3 P; h. K0 G6 W2 Y        strcat(sPath,"\\");
+ R" v; E# q' E5 w+ M# ]        SaveDialog1-&gt;InitialDir = sPath;
1 T) ~  A+ A5 j! J; V# {- ]- t        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
! a$ X, t- i2 R3 k. c/ M        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
& ?7 }# X: a3 Y( R4 c        {
                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
- s5 p- S  Z; x* _  }9 e                stream=fopen(sPath,"wb");
! j) J( i, q0 q+ q. l                for(int i=0;i&lt;BIN_Byte_Len;i++)
/ m* h% i9 R2 l! Y8 A5 I                        fprintf(stream,"%c",BIN_Byte);  //save file
2 U1 e/ x$ Y9 t. q2 |                fclose(stream);
  h" e4 r6 [% G! o& A1 n        }
        free(BIN_Byte);
}
: d* x. b% \+ \$ z/ {7 p//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
% h. I: Q! B$ B4 n3 Z# ^+ \{
- e! h) [3 B2 T) v        if (BIN_Byte!=NULL)
1 z. @" g9 t) S  ?2 q0 W1 d) |4 g) c             free(BIN_Byte);
0 ]  U& t- J) l6 Q; S: A}
% z; G: ?, X* c' I0 `//---------------------------------------------------------------------------
</P>
<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
<>fclose(stream)已经起到free(stream)的作用</P>
3 f$ L5 a  L; c4 {1 @0 f3 L

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

kenneth

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