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

kenneth

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

5 ?* a5 S& O8 J6 G1 l$ i#include <vcl.h>
#pragma hdrstop
: t3 g* c4 i; |
#include "Unit1.h"
#include <fstream.h>
#include <dir.h>
/ K$ Z9 z" v8 i, [: ?8 J5 i#include <sys\stat.h>
#include <malloc.h>
! s2 Z- Z9 w* v% `3 M//---------------------------------------------------------------------------
6 r5 Q5 B! h. q" v! L7 [#pragma package(smart_init)
" M- ]) R3 b9 O# |#pragma resource "*.dfm"
0 o3 C: E) s3 l# z3 MTForm1 *Form1;
! `3 ~1 S" w8 I3 q        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
7 W8 U7 U9 E/ K7 [0 C; c' b4 i! J. e//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
4 f/ T4 D3 b! a, U        : TForm(Owner)
9 t3 x" J7 {7 H: P7 g1 @9 u{
) W1 p# V# u9 R! F}
0 s+ S+ y5 e# u0 G% F//---------------------------------------------------------------------------
" A" }# _) Y+ |6 X5 Y+ Qvoid __fastcall TForm1::Button1Click(TObject *Sender)
# v4 Y- ^5 i( P4 Y{
        char sPath[MAXPATH];
        struct stat statbuf;
2 b0 i3 A4 q- U: ]        FILE *stream;
4 T' ^0 S: S  x5 \5 W
        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
' a/ g  o+ Y% p8 O' d        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
$ ]: |( Y, l/ R2 s! x4 N$ d        OpenDialog1->FileName="fileFrom.BIN";
" {, C6 u$ y+ j5 U5 j        if(OpenDialog1->Execute())
        {
                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
: \, l0 n1 m( Y* C0 ~/ @- y6 j                fstat(fileno(stream),&statbuf);
                BIN_Byte_Len=statbuf.st_size;
+ n. Z4 n8 L4 G- Y6 [5 f                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
                fclose(stream);
        }
        free(sPath);
        free(stream);
- A/ M  a3 ~: V* |0 x}
5 R/ f0 D. ?/ ]# c! ^) x9 l& X//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        char sPath[MAXPATH];
7 L8 E2 ?. A% u        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
) }6 B8 |6 r* p        strcat(sPath,"\\");
" B" K8 ~, B( b5 @0 R/ g* l        SaveDialog1->InitialDir = sPath;
. d4 Z" r: j' m& l0 E$ l& I% q4 R        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
        {
9 a* ]- d1 f; Z- h3 B* j- i                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
- j8 U9 K7 F: E" C( U8 b                for(int i=0;i<BIN_Byte_Len;i++)
                        fprintf(stream,"%c",&BIN_Byte);  //save file
8 V# q8 @% V+ _; _                fclose(stream);
  O: N, ~& J% G& I9 A        }
/ d; [$ y, k' y9 J6 e        free(sPath);
4 P( G1 p' [5 f. z2 w1 X        free(stream);
4 k4 T5 C% {1 z# V% d}
//---------------------------------------------------------------------------
$ F# [6 w  Y7 q$ B1 Tvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
        free(BIN_Byte);
}
+ h8 U5 @1 R& [+ p$ V0 B1 d' @5 E//---------------------------------------------------------------------------

, V$ |% g0 Z  z( O4 c$ a打開一個檔案,再另存為另一個新檔案
結果兩個檔案內容一樣
8 U8 h, u; h1 R順序不一樣了
檔案前面一段內容跑到結尾去了
' Q% M( h- P& T6 O就像下面的情況
4 p% K; p) i, Y$ a5 L; {原來檔案內容:ABCDEFG
" e( }: r7 J! L/ {+ E新檔案內容:CDEFGAB
老大救救小弟哦

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
' G; I+ t6 K& E; J/ ~) e<>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>
<>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>
) W! ?" {; h% F2 x- v<>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>
4 r5 M# ]$ p% r6 [  a5 Z$ j5 w' W
<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
/ w6 U9 j& G3 o2 d) U) ?#pragma hdrstop</P>
$ `  u8 z1 O0 V/ M! d2 Y, z8 w<>#include "Unit1.h"
#include &lt;fstream.h&gt;
( a* p: t: o% V3 I; p#include &lt;dir.h&gt;
" \) I/ ]" B  p2 H, _7 P. C! c#include &lt;sys\stat.h&gt;
#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
#pragma package(smart_init)
- s* t2 ?( g, V! g1 s7 j& S  w#pragma resource "*.dfm"
& P- l6 r5 w  l* ~TForm1 *Form1;
        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
+ Z; C6 |( I5 u8 k# r: {0 g' ]__fastcall TForm1::TForm1(TComponent* Owner)
8 |/ Q! K4 z2 V4 G0 O3 N        : TForm(Owner)
{
6 e" C; W, l& N+ }}
& ]3 @7 g5 d) G  @5 c1 k5 D# Z//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
  n0 F  N0 A/ b' _; P7 B8 Z+ R{
. i* s0 w* u1 e' Y+ y        char sPath[MAXPATH];
        struct stat statbuf;
        FILE *stream;</P>
+ N5 v5 O1 a; A8 s) A<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
) s& L/ l* S8 s0 K3 D/ c* u        OpenDialog1-&gt;FileName="fileFrom.BIN";
9 E* L- O- [  P0 q! D) p* E# p: v        if(OpenDialog1-&gt;Execute())
5 r. i2 f. ]1 A. v" W+ y- C        {
' }& c& m; G# a. Z7 G6 A( D( f                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"rb");
0 B0 [' t8 p, f+ ]                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
1 U3 @$ P, S  j) t( |" I                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
) Z* }3 X% Z. n7 C                for(int i=0;i&lt;BIN_Byte_Len;i++)
9 }+ a, A  d. q                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
                fclose(stream);
        }
}
2 I& i; Y5 V* R" ?0 @/ B# o; r//---------------------------------------------------------------------------
+ I; X# |# G0 N& V9 q, rvoid __fastcall TForm1::Button2Click(TObject *Sender)
{
        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
/ U- n6 f$ \; x. s& M& v        SaveDialog1-&gt;InitialDir = sPath;
( i' C# T9 G8 o7 i, a* ^        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1-&gt;FileName="fileTo.BIN";
9 l" o8 c0 I9 g/ ?+ {; f        if(SaveDialog1-&gt;Execute())
        {
% \( I/ I5 s  N: s3 X! h                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
                fclose(stream);
        }
7 t! m. l- ^! Y& e8 r* \        free(BIN_Byte);
}
/ M$ R$ I, g2 |//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
5 Y2 S8 ^+ g4 y{
/ p! s. ^9 y% u( p9 S9 d/ h        if (BIN_Byte!=NULL)
. C+ X! l& c, P5 N5 Q$ ?             free(BIN_Byte);
$ }; n! A7 J& f! G. Q' I}
# n& g$ j' B. J( G//---------------------------------------------------------------------------
9 _# \. P( X3 ~6 `2 Q( q. L: e</P>
; p3 q+ |9 P, B<>free(sPath); free(stream);此两句也有问题。</P>
+ X) m( b5 f" U# m<>char sPath[MAXPATH];不需要释放；</P>
  p' F/ t8 Q: \* X<>fclose(stream)已经起到free(stream)的作用</P>
" C$ |4 x: F# t% g" u! S$ {

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

kenneth

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