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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
) z0 H; |* z: W/ P4 A/ F//---------------------------------------------------------------------------
; W+ l1 }( g) M2 j, C
#include <vcl.h>
#pragma hdrstop
/ ]  q! M' ]7 B9 D
/ X5 U. N6 W- K+ h* y0 a& z#include "Unit1.h"
#include <fstream.h>
* r4 B% t& N0 q/ g# v4 t5 G# O#include <dir.h>
#include <sys\stat.h>
#include <malloc.h>
//---------------------------------------------------------------------------
  A; c% E3 N) y0 u2 B#pragma package(smart_init)
5 G  A2 R& f* l( c8 y1 S! _! ^+ j#pragma resource "*.dfm"
TForm1 *Form1;
        unsigned char *BIN_Byte;
% C, ]. ]3 L1 x" U5 P        long BIN_Byte_Len;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
: W8 d! K2 _" f$ ~  w{
}
//---------------------------------------------------------------------------
4 m8 b1 y7 N- E# [void __fastcall TForm1::Button1Click(TObject *Sender)
/ b$ {' K. k' @7 Q! D1 ?; Q) E{
        char sPath[MAXPATH];
0 z; ?9 m, u) X. a! Y; c        struct stat statbuf;
        FILE *stream;
5 I! o* [  v+ O7 c9 C: X
4 q; Y9 ?+ L: S# l" v        getcwd(sPath,sizeof(sPath));
. k3 h. T2 }: p- d# @        OpenDialog1->InitialDir=sPath;
& U1 O. X. q$ k* \' K4 t        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
0 B5 f' V  N( A        OpenDialog1->FileName="fileFrom.BIN";
" T, @# I" |+ o3 n        if(OpenDialog1->Execute())
        {
6 L: m# O2 @7 h  V4 F, {                strcpy(sPath,OpenDialog1->FileName.c_str());
; A! c: i4 V, y& Q9 @                stream=fopen(sPath,"rb");
7 }7 k& P- Z1 z5 e; U8 X) }6 o                fstat(fileno(stream),&statbuf);
9 K& W9 z1 B' F' R- X' R! M                BIN_Byte_Len=statbuf.st_size;
8 Z& o0 J# `! V% r6 D* D                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
0 k, R! J- W7 E& R4 X) Y                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
; p* I6 j) P6 k                fclose(stream);
        }
5 F1 A& u0 X" r3 \- P        free(sPath);
( y. Y9 M2 _$ l1 U3 s        free(stream);
}
//---------------------------------------------------------------------------
' N- o- J3 ~6 \- o. H$ R# L0 Tvoid __fastcall TForm1::Button2Click(TObject *Sender)
/ Q  K, b# V' i# D% V  C: @7 f' I{
        char sPath[MAXPATH];
& \* j5 Q# A' P! H        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
" Q% f: e+ |. H6 @% r9 N, ?        strcat(sPath,"\\");
        SaveDialog1->InitialDir = sPath;
/ r2 L6 e# q; f/ L$ ~3 S9 J3 S        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
        {
/ R! c  Y8 f+ j% ]. n6 H5 g                strcpy(sPath , SaveDialog1->FileName.c_str());
* c- I6 d# @; X. A5 u                stream=fopen(sPath,"wb");
% h" t8 V6 L+ c$ O+ R- g3 [2 J                for(int i=0;i<BIN_Byte_Len;i++)
                        fprintf(stream,"%c",&BIN_Byte);  //save file
                fclose(stream);
. A+ q* T, n; l9 A! L( ~4 Z7 w. o        }
        free(sPath);
        free(stream);
}
//---------------------------------------------------------------------------
7 U' n7 Z. c( |, V3 T& M: Hvoid __fastcall TForm1::FormDestroy(TObject *Sender)
: @4 [4 L1 L! y) i1 H$ q1 g! s{
        free(BIN_Byte);
}
, P: {2 K! \& j% Z8 X//---------------------------------------------------------------------------

打開一個檔案,再另存為另一個新檔案
結果兩個檔案內容一樣
順序不一樣了
檔案前面一段內容跑到結尾去了
就像下面的情況
/ N9 T! ]: {4 \4 l$ `/ i4 U原來檔案內容:ABCDEFG
% q5 u% n* F  ~! T新檔案內容:CDEFGAB
老大救救小弟哦

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
<>alloca:</P>
1 v+ b* o  x3 }<>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>
4 D$ ]( |' L8 f' U4 O<>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>
2 z% R: \& d# r# ~  n; y<>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>
0 [# R, n+ H9 |! Y
<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
) [  |4 o* w1 e# I  g2 X<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
#include &lt;fstream.h&gt;
9 {; q8 j: P5 f6 c5 X! v; l2 U#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
3 n% P* s' J9 Q9 m, q+ ?#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
#pragma package(smart_init)
/ b) z, E& U5 t9 J3 ^#pragma resource "*.dfm"
: U7 S5 x1 B: j$ b6 q# GTForm1 *Form1;
4 [+ f' A( y  Q( z$ l2 k        unsigned char *BIN_Byte;
/ j; a1 ]) L; r0 e        long BIN_Byte_Len;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
1 F  x7 o( f; b2 q* g        : TForm(Owner)
5 B0 u5 }/ x% H. L; g$ D4 z! G{
) V( K. i2 T* z  R}
//---------------------------------------------------------------------------
- F7 X1 \# a' P: W! Ivoid __fastcall TForm1::Button1Click(TObject *Sender)
& r! g. w7 V' @8 f4 R' H# a+ F, y{
        char sPath[MAXPATH];
$ j# k" W: s$ }+ k" Q        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
2 Z' l$ \) F: r3 N# A        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
6 D( q, L  ?: c  P2 ^! U- g6 S        OpenDialog1-&gt;FileName="fileFrom.BIN";
0 v& C4 n5 s  V0 f3 S2 H. x2 }1 o' u        if(OpenDialog1-&gt;Execute())
        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
- u8 ~7 V2 a  r) @                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
                for(int i=0;i&lt;BIN_Byte_Len;i++)
' \9 {, X0 L+ X& J: \% Y6 D6 g                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
4 N# ~$ V8 k: B" {5 S                fclose(stream);
        }
$ j- Y* B) m1 `9 ~6 H: y}
6 E& _3 X0 u1 ^6 k) v+ g$ j//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
! u2 W: |8 h9 o{
9 P% k2 E5 R- O9 h        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
! c( r& j. O6 e! P7 w        SaveDialog1-&gt;FileName="fileTo.BIN";
3 S" q# Q) r0 J        if(SaveDialog1-&gt;Execute())
        {
                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"wb");
( W6 I2 O3 I0 Y% Z  l: U                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
) @# k& g2 q% T                fclose(stream);
        }
9 T9 U$ @6 l& ]4 e  w5 V        free(BIN_Byte);
}
//---------------------------------------------------------------------------
/ p+ w# P  a& g' gvoid __fastcall TForm1::FormDestroy(TObject *Sender)
0 c0 n% D, B+ z2 W+ X{
7 d; N. ]$ z, A; h        if (BIN_Byte!=NULL)
             free(BIN_Byte);
}
+ j# W5 b  j0 r. y/ ]+ |- Q* i8 T//---------------------------------------------------------------------------
" }4 c8 k# c! Z</P>
<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
<>fclose(stream)已经起到free(stream)的作用</P>
1 m5 Z+ h0 b1 e' f8 K: x

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

kenneth

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