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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
//---------------------------------------------------------------------------
7 m8 Q- F% @$ O3 O5 f3 }6 Q1 R8 Z
( g- y; J9 |' a$ ^  c#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <fstream.h>
#include <dir.h>
" |9 @& N, h/ \# }' i#include <sys\stat.h>
1 ^/ c. u. ?# s4 U#include <malloc.h>
//---------------------------------------------------------------------------
+ D5 e, E7 t3 |% B) _: |#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
( t! }' v2 |) B: \        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
& Z* {8 y( ?+ F$ E__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
  I- U: t5 w7 @% |4 z# M{
3 j; R- ]3 B( F' p, R) }}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
) G+ `7 W' k' s4 V" P/ j{
        char sPath[MAXPATH];
0 _) N' f: b5 G! n7 v3 d        struct stat statbuf;
        FILE *stream;
# r: f0 S# ~9 c! I: q' j* ^$ w% J: m
        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
; z! r+ i  k3 e% y' g3 D* o% `        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1->FileName="fileFrom.BIN";
! ?+ t# q4 _7 R0 B; F3 k        if(OpenDialog1->Execute())
0 i) m/ E4 f3 y0 s( M        {
1 u& m* H' L0 I) r. A& G                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
7 i( m; W8 K  c4 |5 D+ O; t                fstat(fileno(stream),&statbuf);
                BIN_Byte_Len=statbuf.st_size;
) t/ C7 D7 f5 p2 Z  Z7 c                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
4 Z  V/ ?* s6 P, B! b" ]                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
- R+ x  Z3 I6 @* a8 r2 D4 a                fclose(stream);
( t% t+ j) v% I3 {        }
        free(sPath);
        free(stream);
}
//---------------------------------------------------------------------------
9 @4 G+ F' f, Zvoid __fastcall TForm1::Button2Click(TObject *Sender)
{
        char sPath[MAXPATH];
        FILE *stream;
0 I; K7 ^# z& ?& |/ |        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1->InitialDir = sPath;
( C; W+ u4 y& A" L% q# W        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
        {
4 h) O7 |( n1 x4 x* S. h+ R                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
                        fprintf(stream,"%c",&BIN_Byte);  //save file
6 @6 Q  P, C& M/ v% u1 K9 a- [3 H* K                fclose(stream);
        }
        free(sPath);
& G6 ~) w# C2 c        free(stream);
8 I2 a5 p  C, @1 p# n$ p6 w5 b}
  h: S2 q- H( _' R# _% I//---------------------------------------------------------------------------
& v; V7 u- W: }9 e, S3 V5 v% ?! Uvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
& H) c& d4 W( ?, o+ L        free(BIN_Byte);
}
% M$ s: F7 j1 K  @" Q/ U( X; H0 I. f//---------------------------------------------------------------------------

; p* G* z/ H& m) R3 `打開一個檔案,再另存為另一個新檔案
* p6 j: K& C* [1 C: C1 A, y結果兩個檔案內容一樣
1 p2 \" w, Z) G' Q* _! R順序不一樣了
檔案前面一段內容跑到結尾去了
6 ]2 D3 Q/ R' b8 i5 w6 m) ^就像下面的情況
9 s( _- \' {8 }8 Y4 p2 Y" b% c原來檔案內容:ABCDEFG
4 D& Z: v; _# s' Z2 q0 }2 {新檔案內容:CDEFGAB
老大救救小弟哦
3 X6 f! W/ k6 i$ D* l! k8 V

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
<>alloca:</P>
! `4 I9 Y2 c% ~7 @. `8 m/ d<>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>
# |2 J  [1 E% L<>malloc:</P>
7 v% l# k" b9 H& T  ^: i<>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>

4 R' e& o- R. }/ P0 e; A<>以下是改后的代码</P>
! t0 A- @4 u9 s; Z<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
4 j) a4 R2 E" @" R0 s$ j<>#include "Unit1.h"
2 m; @" J- g& a; Z( n1 E1 a3 G#include &lt;fstream.h&gt;
' H$ |" a+ n& `* X# V; x#include &lt;dir.h&gt;
: z; E2 P+ a2 }0 `#include &lt;sys\stat.h&gt;
#include &lt;malloc.h&gt;
% T7 ]9 g) M3 L* u3 n( j) w//---------------------------------------------------------------------------
#pragma package(smart_init)
4 K1 b& W8 K6 Z* ~#pragma resource "*.dfm"
5 q2 h) q6 C4 E6 o$ dTForm1 *Form1;
- `' Z8 i7 l' ^. r  |$ i1 t* @        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
1 f: W+ A! h! z; o  ?$ P1 T//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
, D$ u6 m  {2 r( A' j% G0 x- c        : TForm(Owner)
{
  W+ V! }. V+ X) q, S: U}
; F% `0 H: V: ]4 _$ x  S; g//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
# C; K4 G+ n( Q+ D* n# b& Z{
/ [% G* }; C9 f% C+ B2 E" l        char sPath[MAXPATH];
        struct stat statbuf;
7 P1 i; t/ [$ u# Y        FILE *stream;</P>
% `6 a  Q* ~( Y2 c7 t- M<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
+ v- K6 [8 P* h# E* z        OpenDialog1-&gt;FileName="fileFrom.BIN";
        if(OpenDialog1-&gt;Execute())
        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
' G) R6 H9 `- {# h7 g$ [& N' \% P$ ?                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
" T. b1 y0 H; p0 W                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
                fclose(stream);
# M; [; ?/ j( P% p) q; A; S        }
  H4 H1 G' E3 k( U* Y2 k9 K/ a}
# J& K4 d4 l+ M: N7 g* ^//---------------------------------------------------------------------------
* d* G4 x% c' ^* F  Cvoid __fastcall TForm1::Button2Click(TObject *Sender)
{
$ R  {6 }# l! h        char sPath[MAXPATH];
# |8 h# {9 x8 A5 F        FILE *stream;
9 j8 Q; T. [7 k; Q3 A. u        getcwd(sPath,sizeof(sPath));//App.Path
. {) d3 R# O8 K4 E1 e        strcat(sPath,"\\");
5 F( T, k# M2 s; b- l: E        SaveDialog1-&gt;InitialDir = sPath;
. Y% E) V( r4 }( k, t7 ~# |- N/ y        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
" g7 ], E/ B: K6 b% @# ^! I        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
        {
( l5 y+ |! _; S" p$ G, F7 }                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
5 Z: V4 m9 u% V0 q+ b; s                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
9 Z' F0 J: h7 ]% _                fclose(stream);
        }
        free(BIN_Byte);
$ V  \) B2 c& b( O}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        if (BIN_Byte!=NULL)
( n" G- y& G/ X+ z/ D) P             free(BIN_Byte);
}
//---------------------------------------------------------------------------
</P>
<>free(sPath); free(stream);此两句也有问题。</P>
/ x7 j7 I4 ]+ b3 p% @<>char sPath[MAXPATH];不需要释放；</P>
9 f, k) @  F" ~, K* x<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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