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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
//---------------------------------------------------------------------------

' B+ Y0 |8 j( C& K3 a% d#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <fstream.h>
#include <dir.h>
2 q9 d3 R" ^2 L- h# `" a. r4 V#include <sys\stat.h>
#include <malloc.h>
" E2 d3 Q$ @4 G//---------------------------------------------------------------------------
) @) F. g: W; n0 @# U0 S#pragma package(smart_init)
#pragma resource "*.dfm"
  [! D0 N# P3 I8 t$ bTForm1 *Form1;
        unsigned char *BIN_Byte;
: e8 Z% ?# g/ x8 k        long BIN_Byte_Len;
+ K3 _0 {+ J% i! ?- s//---------------------------------------------------------------------------
- [  l% X# C7 X1 @! ~, s% Z__fastcall TForm1::TForm1(TComponent* Owner)
) C' n7 j. [( n% T* r! u        : TForm(Owner)
$ _0 b0 }# R7 @6 c' j  {+ T2 M- G{
}
# ]$ _* E7 H1 o5 W! ^" s; X//---------------------------------------------------------------------------
; z! b$ t6 B' ~3 j/ Z$ \+ Fvoid __fastcall TForm1::Button1Click(TObject *Sender)
- V; a; n  \% Z* [1 L+ E' x3 ^{
' G5 A0 R3 P* ]2 c8 j        char sPath[MAXPATH];
        struct stat statbuf;
) Z' P7 z+ [7 Z" \        FILE *stream;

        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
/ j' d/ N+ C+ ^; i* h        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
& J1 B" m) B) \/ q7 q- E9 q5 E* X* g        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
* E# e& G0 P3 @  g: e6 y        {
/ v+ C  C$ l7 M0 e) z' b                strcpy(sPath,OpenDialog1->FileName.c_str());
4 F0 A" R; P% L" X1 C                stream=fopen(sPath,"rb");
6 t" j& n$ I, _                fstat(fileno(stream),&statbuf);
                BIN_Byte_Len=statbuf.st_size;
, e, g0 H% r% B3 ]3 v0 E; {% ~+ H6 V                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
& y: d4 P2 X: n. V- C+ z                for(int i=0;i<BIN_Byte_Len;i++)
! K, }; v2 |& g                        fscanf(stream,"%c",&BIN_Byte); //read file
                fclose(stream);
8 ]' z' h$ P5 _" ^        }
        free(sPath);
        free(stream);
- C  B- E* b  H8 z- T}
2 H" z; C* y1 D4 ?//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
" B( y0 N8 t7 ]( a' O{
        char sPath[MAXPATH];
9 d) g, q$ G, _  ^        FILE *stream;
  ]& R! u! b3 L: z( l        getcwd(sPath,sizeof(sPath));//App.Path
. [  G2 U' I5 R7 j! z* }# F        strcat(sPath,"\\");
, L# R4 `: A6 e        SaveDialog1->InitialDir = sPath;
. {  F& Z! N! L# B3 e        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
6 X! s: e9 q/ y        SaveDialog1->FileName="fileTo.BIN";
, d! y3 H7 D8 o+ m        if(SaveDialog1->Execute())
        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
) g6 K4 d& s0 N                        fprintf(stream,"%c",&BIN_Byte);  //save file
                fclose(stream);
" k  M4 e  N. \7 e0 N        }
( |( n' K% {# t! x        free(sPath);
        free(stream);
' g  F, l5 A# c% E! [/ G; _}
; m, G' L+ z' r  q//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
/ |' j2 o+ g, l2 N% D        free(BIN_Byte);
3 j/ |, g  h( c+ K9 L6 h. M}
$ U+ u1 ?" s* i5 F//---------------------------------------------------------------------------

打開一個檔案,再另存為另一個新檔案
結果兩個檔案內容一樣
順序不一樣了
5 C/ g) d! z" S/ B4 T8 O/ e檔案前面一段內容跑到結尾去了
就像下面的情況
1 P9 ?" J! o, G# I7 ]. H  W; m. C& L* O3 I原來檔案內容:ABCDEFG
( Y4 w+ q7 H: U, G% U2 F9 q. [新檔案內容:CDEFGAB
3 s% W  }2 [( v% T老大救救小弟哦
+ s/ u3 ^/ I# ^7 W' B

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
<>alloca:</P>
* V8 y( c5 f" ~9 T3 g<>Allocates temporary stack space.</P>
0 B7 o3 V4 {4 v% c. F6 R, D" G<>alloca allocates size bytes on the stack; the allocated space is automatically freed up when the calling function exits.</P>
<>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>
; t$ d; L) E5 V& F9 }
<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
5 N7 W2 S) T) N5 C* L! V<>#include &lt;vcl.h&gt;
) P2 _5 l5 p* S' e7 I& l#pragma hdrstop</P>
& O6 \& D1 _6 I5 _" w$ E8 D<>#include "Unit1.h"
5 H3 n6 R2 ?0 y4 M#include &lt;fstream.h&gt;
#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
0 m" D# t9 @5 z. c# Y* j; e#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
        unsigned char *BIN_Byte;
! I4 J( Q/ Q( W! o1 i8 N/ L2 q9 g, @        long BIN_Byte_Len;
9 G3 a. m; I5 B8 W& Q* H//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
) }  V8 ~6 }- x        : TForm(Owner)
6 v) f- v  n9 o% Q7 B+ V{
% \" F, j8 S/ q+ B}
9 w/ G3 U/ m) U( X//---------------------------------------------------------------------------
( \' ]4 O' r9 C5 Y' }void __fastcall TForm1::Button1Click(TObject *Sender)
{
0 E" p# F6 X! B1 j' q5 T        char sPath[MAXPATH];
        struct stat statbuf;
        FILE *stream;</P>
) b2 ]0 N5 `# t) n* M<>        getcwd(sPath,sizeof(sPath));
* J' _9 E; {/ X+ y1 C2 a  C2 B* X        OpenDialog1-&gt;InitialDir=sPath;
; p3 s2 i: O& b' J6 L- _        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1-&gt;FileName="fileFrom.BIN";
4 e- A7 J, J' z/ a3 W+ c$ S        if(OpenDialog1-&gt;Execute())
        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
4 y9 Q9 ?2 J' D% v& i                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&amp;statbuf);
8 z- ^2 y: q, K                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
/ N/ G! q2 D; H2 T                for(int i=0;i&lt;BIN_Byte_Len;i++)
5 F; p  U) W- B& r) _+ K                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
$ H0 d0 j5 M( W4 f, Q                fclose(stream);
& q- c; y# z8 u& ~        }
# R, W; x1 R5 L5 Y}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
6 a2 A3 b1 P  k5 a% u/ R6 q{
  h& Y* E- ]( O4 `( p        char sPath[MAXPATH];
" z& z: [% v# @2 X. D8 Y9 A# `# q% e        FILE *stream;
; W( E4 A( Q0 l) [        getcwd(sPath,sizeof(sPath));//App.Path
4 c1 X# z9 f' r, _$ g/ B3 W        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
2 e5 h& u% S; P) H        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
        {
6 p; v( e' U( {2 D& ?" Z0 B" X9 w                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
. b" O. b; D; L% e9 ^# D                        fprintf(stream,"%c",BIN_Byte);  //save file
6 ?% ?9 _: V1 w% p8 i                fclose(stream);
        }
        free(BIN_Byte);
}
//---------------------------------------------------------------------------
% K3 s7 Q% \" dvoid __fastcall TForm1::FormDestroy(TObject *Sender)
+ t- H, e5 c7 d+ i5 E0 U9 S: m* F3 ?9 ]{
        if (BIN_Byte!=NULL)
             free(BIN_Byte);
5 Z0 ~+ m2 y8 \( @5 ]}
) w' o2 V" q8 ~1 u1 F( c  Y//---------------------------------------------------------------------------
1 j. P3 g. L3 k% _$ U" D( Q</P>
<>free(sPath); free(stream);此两句也有问题。</P>
/ @) l" M% X3 T1 a1 f( u% ^<>char sPath[MAXPATH];不需要释放；</P>
( h+ w7 j9 q4 g8 K( ^<>fclose(stream)已经起到free(stream)的作用</P>
# {- S- X: c2 ?. D7 w: X7 {% J

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

kenneth

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