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

kenneth

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

4 d3 W) j) G1 ~  j7 ~! J#include <vcl.h>
  y8 v3 C. W7 x' J& X6 ]#pragma hdrstop
" {) d! ?+ W8 \1 s& {0 q( F: u
#include "Unit1.h"
#include <fstream.h>
#include <dir.h>
#include <sys\stat.h>
#include <malloc.h>
7 o& B) t" H! K0 W/ N//---------------------------------------------------------------------------
#pragma package(smart_init)
- ^: R3 D, O& p9 t# S9 @) @, L#pragma resource "*.dfm"
$ s/ U; _, l, j! W- A0 G: t0 ~4 gTForm1 *Form1;
        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
) o( M  B# J3 Z& T- E//---------------------------------------------------------------------------
  C1 v3 N% m* K( n0 Y/ w) o__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
" b' M0 K% z$ u{
0 V; F5 ?# o% o% [* ?- B}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
3 f! ^5 t; ^  m1 W$ `1 W        struct stat statbuf;
        FILE *stream;
6 _; s3 y0 _6 `- g; K
8 _! A- t! R+ X# w% B0 Y0 ^        getcwd(sPath,sizeof(sPath));
  m$ v! i8 W7 N  D        OpenDialog1->InitialDir=sPath;
        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1->FileName="fileFrom.BIN";
) e3 u1 T% l1 H        if(OpenDialog1->Execute())
. T& r  S- M) w; K2 `1 A        {
# {" V" W6 R+ T                strcpy(sPath,OpenDialog1->FileName.c_str());
+ |0 \0 ?4 [5 ?) x  }$ n2 E! |                stream=fopen(sPath,"rb");
3 e+ ]/ _2 @. n* t- v# T                fstat(fileno(stream),&statbuf);
                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
/ C( S8 b* d: o' |                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
: V5 [" V  F" K% p2 O; e5 Q                fclose(stream);
        }
        free(sPath);
        free(stream);
. i; Z1 ?( `1 g! Z}
0 n5 C' V% ?3 X' {& ?, j1 ]8 i//---------------------------------------------------------------------------
6 v+ ]1 A$ Y# h2 \4 tvoid __fastcall TForm1::Button2Click(TObject *Sender)
{
2 I: V5 c' s" |% I& s        char sPath[MAXPATH];
        FILE *stream;
! x: J3 w, E5 F* h        getcwd(sPath,sizeof(sPath));//App.Path
  \, _+ @% ]. b        strcat(sPath,"\\");
" ^. w/ ?  H- d7 ]! C# h        SaveDialog1->InitialDir = sPath;
0 Q* g( @; C" N+ X* k) O- r- D        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
1 ^- a: U; u  X* S9 V* ]& ~8 ~, ?+ j        if(SaveDialog1->Execute())
% Q2 J5 y$ s( c& @* G- D        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
$ A  l- ?5 V/ @( P. u                for(int i=0;i<BIN_Byte_Len;i++)
                        fprintf(stream,"%c",&BIN_Byte);  //save file
+ M0 b6 W& y; v# \2 }. R- c                fclose(stream);
1 I9 X- A* f$ O0 o; s        }
& q& q5 X# H$ n/ l" J9 b        free(sPath);
        free(stream);
) `: o0 M) r$ i+ d1 g& k$ x4 z}
. t7 Y% W; z+ z: U- q//---------------------------------------------------------------------------
. J+ W& q8 x7 E: x0 Kvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
! x- s, u& }- ~1 w" t        free(BIN_Byte);
6 L1 E, T1 b0 A7 ^}
7 t5 w! i4 Y/ P0 K//---------------------------------------------------------------------------
7 ~) f2 H( |8 W- z3 C8 v  @# L
打開一個檔案,再另存為另一個新檔案
2 L' q. i; b6 P9 Y5 s+ z% M* |結果兩個檔案內容一樣
順序不一樣了
檔案前面一段內容跑到結尾去了
! }$ g4 h. \7 v, a6 T就像下面的情況
原來檔案內容:ABCDEFG
新檔案內容:CDEFGAB
7 j3 R% W4 n" Z2 E0 V老大救救小弟哦
/ P1 K% q3 ~( J1 m* [3 F4 j

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
9 z$ S3 D1 B4 `- r7 X% X& |<>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>
/ U% X1 H. a+ [<>malloc:</P>
/ I% J: O6 v* ]8 @7 ]0 y0 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>

<>以下是改后的代码</P>
( H- k; t9 O$ V  O9 A( p8 y% A<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
: t, l# P: o( r1 S; Q+ g, M4 M3 m  n+ j$ A#pragma hdrstop</P>
<>#include "Unit1.h"
#include &lt;fstream.h&gt;
#include &lt;dir.h&gt;
+ w/ \! ~0 |# g9 |8 h- t#include &lt;sys\stat.h&gt;
#include &lt;malloc.h&gt;
4 B( k  l% Q9 \7 I//---------------------------------------------------------------------------
#pragma package(smart_init)
1 c) q6 z4 X% O; i/ l, i4 c7 a#pragma resource "*.dfm"
TForm1 *Form1;
* h( v% R1 O9 e3 g' u        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
% A/ N" J+ X3 {2 F__fastcall TForm1::TForm1(TComponent* Owner)
( `" U, c- G+ c" t) v1 r        : TForm(Owner)
. _$ k( u" Y0 ^{
9 \/ r3 @9 `* \/ D6 K}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
        struct stat statbuf;
. O: f# W% h4 A* v& d) U! v        FILE *stream;</P>
3 I3 J8 U; i; q3 I, l<>        getcwd(sPath,sizeof(sPath));
+ @1 _- T" X6 s) \8 X& ^* c        OpenDialog1-&gt;InitialDir=sPath;
        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1-&gt;FileName="fileFrom.BIN";
        if(OpenDialog1-&gt;Execute())
6 R, u! I" d9 K( g        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
% x9 w/ |  G0 D3 ^                stream=fopen(sPath,"rb");
! B+ y$ G" }3 `. |) n( I                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
5 H) B$ O# m" a/ T3 F" c/ ?                fclose(stream);
        }
2 K$ ]$ g- V4 q6 X! t5 ?6 ~}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
& T. A$ c+ Y3 u% c! B{
        char sPath[MAXPATH];
" q7 f7 ~: D' `        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1-&gt;FileName="fileTo.BIN";
% c! \, H  O# q: I; ]1 l/ Z        if(SaveDialog1-&gt;Execute())
. ^! c6 ]! E  C; h, o1 M        {
# v; a& _- C. f1 F                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"wb");
  T8 c; O+ v# h* t) j, z( z. n                for(int i=0;i&lt;BIN_Byte_Len;i++)
2 u1 H0 m9 A: `2 D9 V                        fprintf(stream,"%c",BIN_Byte);  //save file
                fclose(stream);
        }
7 r; h% Q3 P; t9 o9 y: j/ |6 H4 Z        free(BIN_Byte);
0 k  ^/ y/ h; m9 {+ `! n8 J}
& k1 U& b: ?: a/ v- \8 ]$ f9 E//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
; v6 f+ S' k! _$ r3 [, V{
        if (BIN_Byte!=NULL)
             free(BIN_Byte);
7 s8 }  b- w3 e5 E8 M}
# z* c, H' L8 J' v//---------------------------------------------------------------------------
</P>
<>free(sPath); free(stream);此两句也有问题。</P>
: E* }- t3 b+ W/ v<>char sPath[MAXPATH];不需要释放；</P>
8 @5 n5 g# @  y5 h, p! [& [; U<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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