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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
//---------------------------------------------------------------------------
$ S' U) u8 M2 [; X% ~9 G& o
. V7 A/ t' ?& U- f  b' Z+ \#include <vcl.h>
#pragma hdrstop
& J% g! Y+ }0 q: {  R( d9 [
: E2 y" [, ~- A5 A#include "Unit1.h"
#include <fstream.h>
. Q! d' U' V) `" I, A#include <dir.h>
#include <sys\stat.h>
#include <malloc.h>
8 L' c9 x; O/ e# G3 k//---------------------------------------------------------------------------
: a  N* j  n' d#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
. [3 E: k! J3 r( o& O4 \        unsigned char *BIN_Byte;
8 {; e0 w, S1 S; [) @& D        long BIN_Byte_Len;
. ?  ~$ [8 O  }$ K//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
% p, N( Q/ u* D+ L5 B! Z6 a/ _( S        : TForm(Owner)
7 A" z, c$ ^7 E& X  i{
3 j- W5 q8 |' _! ^+ x( c}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
: r  h- t/ s: N/ p! v        char sPath[MAXPATH];
) `3 t7 }* V, ]* n; T& d9 E1 A: q        struct stat statbuf;
1 w/ t7 N3 B- k% K8 Q+ z3 g' [3 x! W        FILE *stream;

9 y- k: x  ^) D# `! t. e/ o0 V        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
' L: ]' E9 F) R) e) j4 a        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
  @' ^9 C$ A0 T8 w; @- ?% Y        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
        {
                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&statbuf);
8 j0 a# I' q/ c                BIN_Byte_Len=statbuf.st_size;
3 _5 Y" ^2 }# }' B& ]                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
, \! p5 b  A, \0 U                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
                fclose(stream);
        }
7 p" ]3 l) W+ ^& ~  ^5 j        free(sPath);
  M4 v7 I& r$ Q7 K# q% B! H4 t( O) x( \        free(stream);
1 Y# X# B2 G, r  K}
//---------------------------------------------------------------------------
0 q$ k, r5 r$ p7 e1 Q3 ^/ {; Uvoid __fastcall TForm1::Button2Click(TObject *Sender)
{
        char sPath[MAXPATH];
        FILE *stream;
9 ?& s1 Z4 Z1 ^* b7 `        getcwd(sPath,sizeof(sPath));//App.Path
3 U* }9 [5 F+ W$ [, R        strcat(sPath,"\\");
% z# ]# Y/ q' c1 k; z0 b8 ~        SaveDialog1->InitialDir = sPath;
$ _0 W+ {+ }( `, R3 t9 {5 i        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
' s' @- d1 c, R/ h5 z4 o+ I! ]        {
! ]: R8 {) l$ W" `* g                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
( [, {* c+ p/ [" g. x3 D' s6 W                        fprintf(stream,"%c",&BIN_Byte);  //save file
& T- L4 x: d* Z  r" E. o                fclose(stream);
        }
6 b# k4 T5 s* j( a        free(sPath);
        free(stream);
' ]. @  j% E; R" W( D7 Q: Z" g}
3 z; \' w1 M+ h& c//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        free(BIN_Byte);
+ ~- G; o) O4 g+ \}
' P* e6 `2 K7 r, |" ~& a0 G//---------------------------------------------------------------------------

" `( Y$ G6 e7 U1 J. K' A  F3 a4 v打開一個檔案,再另存為另一個新檔案
結果兩個檔案內容一樣
& U% m) A) b: u9 u/ q順序不一樣了
/ F$ _. K& R- Y8 z" J檔案前面一段內容跑到結尾去了
  c% V4 u/ n9 q. Q就像下面的情況
原來檔案內容:ABCDEFG
* p" Q0 u$ Y* f* n新檔案內容:CDEFGAB
8 g& E: ]5 ?/ M老大救救小弟哦

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>
& I$ n# A' D+ p/ _! e, Z8 M) a<>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>
* ~2 [. D8 {! t" j- 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>
; ]+ A. w4 h9 N/ r- O! [* z
<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
" L8 y- M7 V9 Q6 a' T9 k* @! N#pragma hdrstop</P>
* P4 s  G8 [8 q+ [0 m<>#include "Unit1.h"
#include &lt;fstream.h&gt;
#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
3 J' x, @& s! A2 j8 w#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
6 B( L. }, H. X/ n* _0 I! U#pragma package(smart_init)
) o: Y$ R( w  Y5 w#pragma resource "*.dfm"
% p$ B, E  ]6 E0 W/ ~TForm1 *Form1;
! F) j6 @' c, w        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
2 ^6 R- j4 ?4 p# G' l//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
) V* G( I4 E1 _" p/ I}
//---------------------------------------------------------------------------
- Z' n  S" _* a# [' ^. e) p3 @2 Bvoid __fastcall TForm1::Button1Click(TObject *Sender)
{
' C8 X* A: ~( o( K4 J' a( ^; R        char sPath[MAXPATH];
; g! S3 Z1 h, `: U7 a$ ^        struct stat statbuf;
# y3 z3 v+ ^+ j/ u! U1 s' x4 B8 F        FILE *stream;</P>
0 K+ C3 r/ Z7 f0 ~<>        getcwd(sPath,sizeof(sPath));
6 m# U# A* E) A$ i$ d3 v- g        OpenDialog1-&gt;InitialDir=sPath;
( \, I9 S( Q  [; n& `: ]! {        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
8 b* Q' g: b! H        OpenDialog1-&gt;FileName="fileFrom.BIN";
! b. l/ a3 r9 p% [# E        if(OpenDialog1-&gt;Execute())
6 X' O  G( B# p  o        {
6 Z/ g; s4 Q3 L' P9 q8 M                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
2 u" i1 Q3 ~/ G: t3 ?: U2 q* B1 W7 Q                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&amp;statbuf);
) n1 B0 D. ~  O  T5 g: E                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
/ p6 [" ~+ a! E2 F% C. X3 n                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
                fclose(stream);
        }
, A; Y: {" K4 m4 v: k  w# _}
- z6 T5 T1 A" q6 X6 m8 B//---------------------------------------------------------------------------
, ?6 S5 N8 L" D' d" }( P1 M# cvoid __fastcall TForm1::Button2Click(TObject *Sender)
{
3 }0 P  @: I2 q* c0 J" x$ n        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
3 N' l( f# O) V! u% B# {        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1-&gt;FileName="fileTo.BIN";
  g$ Q  u# h9 a/ k7 I1 d        if(SaveDialog1-&gt;Execute())
        {
                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
6 C8 I3 z! w' M6 \                        fprintf(stream,"%c",BIN_Byte);  //save file
                fclose(stream);
        }
        free(BIN_Byte);
}
//---------------------------------------------------------------------------
+ {& D2 R6 h: Bvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
$ q' ~- E' t0 k9 j% x# @3 l        if (BIN_Byte!=NULL)
             free(BIN_Byte);
}
) O+ O( J' X3 Y. Y9 N//---------------------------------------------------------------------------
, d0 W% o2 a8 i</P>
<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
<>fclose(stream)已经起到free(stream)的作用</P>
# O2 j2 \0 Y* R% L4 L

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

kenneth

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