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

kenneth

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

& A  f; c/ `- y6 z2 b" l8 |% [#include <vcl.h>
( j6 R* F: A2 J$ x0 ~8 O#pragma hdrstop

- T; b, j+ n: T' y; \$ Y1 y+ u#include "Unit1.h"
#include <fstream.h>
0 B: z! i9 ^8 z' ]#include <dir.h>
# {) _( u; E# _6 K#include <sys\stat.h>
#include <malloc.h>
8 m: {% V/ R; }& \7 g//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
/ I7 U4 o2 M$ d  NTForm1 *Form1;
' i2 b) p, f9 S6 ~6 O0 {0 A+ s$ g        unsigned char *BIN_Byte;
: @1 J7 v5 M+ l, h6 V7 ?        long BIN_Byte_Len;
/ q7 K" x( u9 ]$ Y, }0 q0 q//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
9 m3 c" q! q# n9 c- ?        : TForm(Owner)
) q3 d# ?5 L! f% ~8 B" O8 _{
' i, g! B" A# _1 i  A% B+ j}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
6 r, e7 Y% A# q. t' u  d        struct stat statbuf;
5 B4 y) u' S0 a2 Y+ C        FILE *stream;
8 `' m3 T2 v7 W! [* Q" Y
7 I) _6 o4 y5 ~        getcwd(sPath,sizeof(sPath));
0 q. y* t3 h  Z; `  H        OpenDialog1->InitialDir=sPath;
        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
' k4 ?! [! @4 i, c# i        OpenDialog1->FileName="fileFrom.BIN";
4 ?( o( Z# X3 p2 P        if(OpenDialog1->Execute())
        {
1 g' _& Y. T! f+ a. Z$ v& P                strcpy(sPath,OpenDialog1->FileName.c_str());
* t3 d2 ]' e  s7 |: C                stream=fopen(sPath,"rb");
" H( L# n/ Z% e4 X                fstat(fileno(stream),&statbuf);
                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
2 e! `7 l  o4 Q& f                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
                fclose(stream);
9 v" O1 X4 J$ c9 S        }
        free(sPath);
        free(stream);
2 Z3 K, N7 u$ U5 I}
: V9 Y: {  e4 q$ W& `//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
! Z" A/ B% Z& ?. ], N- ?2 r9 ?{
        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
9 Q3 B6 }) w/ V2 l        strcat(sPath,"\\");
+ I6 ?  M% s* Y' j2 C9 b7 q# B- w( K' ~        SaveDialog1->InitialDir = sPath;
        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
) r/ Z6 m% E! \3 y                stream=fopen(sPath,"wb");
- }$ ?  @9 G4 W9 R! \                for(int i=0;i<BIN_Byte_Len;i++)
/ j" u3 }2 R3 N  L3 y! E                        fprintf(stream,"%c",&BIN_Byte);  //save file
5 F6 G# K5 K% U# F! H# Z, R                fclose(stream);
' M" q; u; V0 i4 G( n        }
! `$ v& Q) ~9 B, e        free(sPath);
        free(stream);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
; N: w3 ~' K" O5 S) g8 I* l{
        free(BIN_Byte);
3 H2 u4 @  J, L1 B  J2 x2 y, u  j+ i}
% I" V  {( q/ X7 h* X! Y8 C( x//---------------------------------------------------------------------------

0 N7 N7 U( e! b. ^' d. g& S打開一個檔案,再另存為另一個新檔案
' |  v5 N# k* k4 a0 l; _# m' O結果兩個檔案內容一樣
順序不一樣了
, T* p$ J' T7 N( I3 Y# b% C* v檔案前面一段內容跑到結尾去了
就像下面的情況
原來檔案內容:ABCDEFG
: `. s% [# t) c* m. ?& s新檔案內容:CDEFGAB
/ Z* f  }. J& Y0 \7 f3 s老大救救小弟哦
0 x& @  _) G; \  G/ S: J7 Y

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>
! u; |9 }& \8 M1 c! d<>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>
<>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>
, D9 o' c; `# s; @' d! r% Y  f. B
) W1 k: L9 b/ e7 ]# x1 F  u<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
* J5 X( N( y# F: O" V3 N#include &lt;fstream.h&gt;
#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
" I. l8 S9 M7 L0 k# ?9 m#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
#pragma package(smart_init)
/ ^5 t) l. \8 `1 ?+ ?6 L#pragma resource "*.dfm"
- ^) n) n( t5 c' h. aTForm1 *Form1;
; m) y, Z& \" }  P1 f        unsigned char *BIN_Byte;
$ @$ G: F( Q; U1 G5 A8 `        long BIN_Byte_Len;
3 c, U5 r0 t5 }//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
8 j* K( C& E6 q; B{
( A& L3 L& g( U' i}
//---------------------------------------------------------------------------
: z1 D  s' i; p7 O% H$ G& m* Ivoid __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
        struct stat statbuf;
        FILE *stream;</P>
) x2 f/ g1 S( `1 I* B" ]3 N<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
9 h) S- d/ b0 O( u        OpenDialog1-&gt;FileName="fileFrom.BIN";
: |( ~4 `# L- O! |! D        if(OpenDialog1-&gt;Execute())
        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
2 v9 s+ W/ S, j* j. p- x                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
5 E$ J) y8 Y) r! \' n) ^: ?                for(int i=0;i&lt;BIN_Byte_Len;i++)
4 C6 Q2 Y" z% e                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
                fclose(stream);
% x9 P. I! d* M8 u3 R        }
* O* y' ?) P0 n: @0 g7 O) v  q1 W5 T}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
5 U: L9 b5 K7 N, Y+ c! S: W% k{
        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
. f5 d/ o/ ~7 L4 J1 O  f% ]/ e        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
        {
6 S9 l" T# v$ r3 ]9 p  Q4 Q                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);
        }
$ t4 y& B5 a8 P# {  U3 G        free(BIN_Byte);
, _9 }. C/ i' @' `4 f}
//---------------------------------------------------------------------------
, Q) P1 ~% m( v2 T$ b0 s8 yvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
" m5 y3 _' C6 y2 T8 u) W        if (BIN_Byte!=NULL)
4 x+ q4 e) E$ C+ U/ k             free(BIN_Byte);
}
//---------------------------------------------------------------------------
$ @2 Y# h7 v, I</P>
<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
0 L4 b% n5 E! T2 M<>fclose(stream)已经起到free(stream)的作用</P>
3 N3 c5 Q! R% A( K! j6 A& [

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

kenneth

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