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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
//---------------------------------------------------------------------------
7 h2 H6 t& S9 y% P& ]; W* B
  P1 n* z  @& s* E4 V2 h& {2 k7 N#include <vcl.h>
#pragma hdrstop
9 F& f/ |7 D) I/ W* k: I. G
#include "Unit1.h"
5 y- n0 L; r7 e! \/ u#include <fstream.h>
( [- I4 j8 b  [#include <dir.h>
#include <sys\stat.h>
#include <malloc.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
5 f. |# u) Z" ?#pragma resource "*.dfm"
, p* K! C9 c0 R" }( j2 VTForm1 *Form1;
        unsigned char *BIN_Byte;
3 B' O$ v, E9 C1 n5 y. l        long BIN_Byte_Len;
//---------------------------------------------------------------------------
* k0 g% z; y: K% I6 Z9 x8 a7 }__fastcall TForm1::TForm1(TComponent* Owner)
2 ~3 l- }& M6 w4 ?# F. b" C        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
- E: f  O% T1 q% N! r        struct stat statbuf;
9 Y" C. o( m9 }0 U  J        FILE *stream;

        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1->FileName="fileFrom.BIN";
  `3 d* v- x! b' D$ {( f; ^, o        if(OpenDialog1->Execute())
        {
4 N" A' J  M3 ]/ E7 v                strcpy(sPath,OpenDialog1->FileName.c_str());
) V$ ^- b( Y# ?, U2 Y  p                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&statbuf);
3 P) b1 D$ M% j$ }4 b" i                BIN_Byte_Len=statbuf.st_size;
/ v/ x: ~% k7 c2 Z5 e, n( R) @) x                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
& v$ x/ w1 j9 Q4 x/ C4 h                for(int i=0;i<BIN_Byte_Len;i++)
8 O& p# D. h7 ]" b) R/ a                        fscanf(stream,"%c",&BIN_Byte); //read file
                fclose(stream);
& g' m9 s0 w$ e        }
$ W( T* M# m3 V5 g. a2 r5 G# a        free(sPath);
        free(stream);
}
//---------------------------------------------------------------------------
& c7 G2 S4 e# {- @& m2 e& yvoid __fastcall TForm1::Button2Click(TObject *Sender)
* l+ i1 {4 u5 x( m' v6 r{
- q2 @( M) H4 y  g5 l8 C) R# R        char sPath[MAXPATH];
        FILE *stream;
& w( d% w2 X, R        getcwd(sPath,sizeof(sPath));//App.Path
. V( ^7 Z$ B, B' V- b+ M! p        strcat(sPath,"\\");
        SaveDialog1->InitialDir = sPath;
        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
9 h; _" a* E% X                stream=fopen(sPath,"wb");
" {' k6 X- O# C# E" n) W                for(int i=0;i<BIN_Byte_Len;i++)
/ R; f6 k, n+ B# \$ u& A                        fprintf(stream,"%c",&BIN_Byte);  //save file
; L, ~6 R8 J. Y% g                fclose(stream);
+ L& T* f% v/ O  G$ m! N, v        }
0 a, s# i3 E6 H& m3 }7 i7 j" S        free(sPath);
& _6 t- ]* I$ w, N3 l        free(stream);
2 b0 ]3 o3 i  T9 D; ^& E}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
' N8 C4 {9 D0 q& x  x4 O{
' \5 _" R' H+ d7 K        free(BIN_Byte);
}
) t( }* @0 h0 A. N( X6 m7 e  ^//---------------------------------------------------------------------------

打開一個檔案,再另存為另一個新檔案
- L9 l- H/ q6 n' t( L0 P結果兩個檔案內容一樣
順序不一樣了
% K$ K, D( \( L5 O2 Z6 `4 c7 A0 h2 b檔案前面一段內容跑到結尾去了
就像下面的情況
4 g' D# ?& g9 G) N5 d# b原來檔案內容:ABCDEFG
新檔案內容:CDEFGAB
2 q# m9 D2 {2 w2 j  {老大救救小弟哦

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
<>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>
4 B+ F3 h9 T- s* \& ?<>malloc:</P>
2 B; b6 X, D. D( b! 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>
4 {; K  k4 ]6 ]; `5 p4 R<>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>
+ ^0 t: v/ C$ [5 w<>//---------------------------------------------------------------------------</P>
/ r. V! |( C  b: q1 e9 P) m8 J<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
#include &lt;fstream.h&gt;
#include &lt;dir.h&gt;
: Q2 O* X. M" R6 y2 d#include &lt;sys\stat.h&gt;
& b9 K. |% j  m2 w3 ]: q- Y#include &lt;malloc.h&gt;
5 c7 [3 N. H4 r( J  x1 f: X6 [6 k//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
/ V, E+ W: x; v        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
7 j' f  b# H. X& y% e//---------------------------------------------------------------------------
0 }+ |! M6 d. Q" b- Y: h4 d( b__fastcall TForm1::TForm1(TComponent* Owner)
4 W4 N/ y2 ^8 a3 x) @% k        : TForm(Owner)
{
, S# i9 s6 r( f& w5 V}
//---------------------------------------------------------------------------
9 j3 x) J1 {2 T) [. N7 Avoid __fastcall TForm1::Button1Click(TObject *Sender)
; l$ v% n+ p2 L7 _; R6 n{
        char sPath[MAXPATH];
  H: G4 Y7 J  Z' H! J/ W9 z        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
6 l& K! t, c- H; m6 f        OpenDialog1-&gt;InitialDir=sPath;
, {7 w/ `8 F, {/ A8 _        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
; I4 v: H0 D2 I* N        OpenDialog1-&gt;FileName="fileFrom.BIN";
: V$ S6 Y' G( U( ]' L* h$ O2 |2 Y        if(OpenDialog1-&gt;Execute())
* z3 d4 A4 n, k8 y  _# o        {
  t) }) l* ^8 c  k$ w0 A                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
5 l9 ^8 \8 g+ C5 k                stream=fopen(sPath,"rb");
                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++)
3 J; p5 I  M1 ]4 P5 f( {+ D                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
& Y6 K3 n! s- O7 t% q( J) d& s. |                fclose(stream);
9 a3 f7 w6 G4 |1 q! g4 _        }
& s- `) Y) C+ c9 C}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
+ i& i$ k7 m& h( a- ]! v) O{
        char sPath[MAXPATH];
. m7 B" A5 T6 {; p        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
2 G% g" E) R! c9 y. s        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
# U  ^7 U0 T$ ~1 k  i* m' y        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
8 j; C+ S9 @" p' K6 s6 G5 V        {
" a3 q% M; z/ c& j; T' \                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
0 i/ r5 [1 Y5 E. I4 z! y$ u" U" f                        fprintf(stream,"%c",BIN_Byte);  //save file
3 ~. z# Z' C- X                fclose(stream);
        }
9 n; w1 [) p+ e+ b        free(BIN_Byte);
}
4 T5 q$ v1 K3 \4 H% _* |//---------------------------------------------------------------------------
/ C; B7 k5 o! |, Z& Avoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
2 s- I' y7 l& F' ]8 T: [        if (BIN_Byte!=NULL)
+ |  o1 p. E( U0 c& q( n0 N  ^             free(BIN_Byte);
}
; r1 P0 D5 n& F8 \8 s//---------------------------------------------------------------------------
</P>
! ^3 j- l5 v" z" x1 {4 p2 C<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
# j5 i" V2 O4 F0 P<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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