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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
//---------------------------------------------------------------------------
0 H$ f6 V! E! y" y. }
. W8 X% K) ~, O3 P, G% J8 ~#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <fstream.h>
#include <dir.h>
8 t- ?2 h; B7 x  ?) {  b  t#include <sys\stat.h>
#include <malloc.h>
6 @/ ~5 k7 `; |" X' K//---------------------------------------------------------------------------
. Q; |5 ~7 D3 C1 {4 C#pragma package(smart_init)
4 V. s7 M$ P, Z, M#pragma resource "*.dfm"
TForm1 *Form1;
9 b/ q$ w! l* O; D( D* D) I+ i7 L5 V% U7 f' H        unsigned char *BIN_Byte;
' q7 |& g) d( Q6 r+ w% ]        long BIN_Byte_Len;
2 u- w* o" w7 s' K, c//---------------------------------------------------------------------------
. i% M/ v# ]8 n__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
6 M6 ]7 s/ x8 T, b. t' s! q        struct stat statbuf;
" i! z/ D2 h3 P+ |        FILE *stream;
& c' b5 M& a  N5 t+ M: V" g8 C
% Y! C; |7 w5 s# L) Z        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
% _- T7 |+ K0 K% d0 y' h8 i        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
        {
: z7 h- y% |- q3 `# n( a                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
                fstat(fileno(stream),&statbuf);
                BIN_Byte_Len=statbuf.st_size;
+ \5 p8 f: t$ m1 r                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
                fclose(stream);
        }
        free(sPath);
        free(stream);
}
//---------------------------------------------------------------------------
0 m# T, y7 j4 B, s6 Gvoid __fastcall TForm1::Button2Click(TObject *Sender)
{
        char sPath[MAXPATH];
2 e/ Q$ {) b, T& |2 {) s! H        FILE *stream;
6 m* A3 Z9 |# x+ C5 Q( m0 Y        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1->InitialDir = sPath;
3 h, {9 \# w6 I3 e7 I9 a! f, \        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
# J% m/ I2 q, U        SaveDialog1->FileName="fileTo.BIN";
: |8 ]  E8 w8 X        if(SaveDialog1->Execute())
        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
$ u! c) X# m' M0 x) B8 d9 i5 g                for(int i=0;i<BIN_Byte_Len;i++)
0 |+ R( n# o4 z% n) O5 t                        fprintf(stream,"%c",&BIN_Byte);  //save file
$ G7 C- E- z/ [% o                fclose(stream);
; i% }* s2 V5 }0 h6 d        }
! {% a' _) o3 E5 G7 v# a        free(sPath);
% U: B7 B& U6 `- Q) e4 T8 w/ r        free(stream);
}
//---------------------------------------------------------------------------
( S4 y$ q' Z8 hvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
        free(BIN_Byte);
}
//---------------------------------------------------------------------------
+ D$ U  [- F3 T! K$ j. G8 H
打開一個檔案,再另存為另一個新檔案
結果兩個檔案內容一樣
. O6 B2 L# m& e& a* H, G$ v8 f: ?順序不一樣了
檔案前面一段內容跑到結尾去了
就像下面的情況
原來檔案內容:ABCDEFG
8 C4 [) V. Z2 V  O新檔案內容:CDEFGAB
+ q5 u, A( ~! p老大救救小弟哦

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>
6 y& f5 O4 F8 B4 S- J<>alloca allocates size bytes on the stack; the allocated space is automatically freed up when the calling function exits.</P>
( I8 [; v. L3 m) @, ]6 E' 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>
1 y: e) F' y0 X
; w4 A, f. I0 e. m  n8 J9 D- i# G<>以下是改后的代码</P>
<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
<>#include "Unit1.h"
#include &lt;fstream.h&gt;
" A6 `# t- J. D) ?) {#include &lt;dir.h&gt;
* H' W" V# ]0 e#include &lt;sys\stat.h&gt;
% V2 q) b* p! Q4 `; I. S#include &lt;malloc.h&gt;
3 t$ F7 p% X# R  E1 E5 O. V//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
3 q+ F2 z  m; g' q- O! @TForm1 *Form1;
, \; F& s5 Y1 X; Y        unsigned char *BIN_Byte;
4 F/ I. l8 p! a: i        long BIN_Byte_Len;
# j! F% i5 O# |" f! x9 x) `( U//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
, s: X/ a& Y( V; q, a6 ~        : TForm(Owner)
1 L& l5 A5 N) \" L; l5 Z# v: r{
' `- ]3 Z2 B) m) C3 d: M}
7 J4 k8 ?/ X. \; N+ |) K6 h; c//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
$ z* p! ?# f& [; B        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1-&gt;FileName="fileFrom.BIN";
        if(OpenDialog1-&gt;Execute())
+ w) x- {2 B  {2 `, `1 ]# e        {
8 y* E, ?1 E$ i5 k. J                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
& X8 \8 m" P4 a+ D, Z2 a3 X                stream=fopen(sPath,"rb");
4 _. I, `8 {9 D                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
" D- n3 o2 a- B  e                for(int i=0;i&lt;BIN_Byte_Len;i++)
7 U$ s( L4 Y0 r$ l+ ^$ Y/ V                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
                fclose(stream);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
3 n4 d+ Y/ q/ M# Q' ^+ {        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
- M; E4 ]' f) C5 [# r        SaveDialog1-&gt;FileName="fileTo.BIN";
        if(SaveDialog1-&gt;Execute())
0 |# M7 J8 H2 B# k7 K        {
                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
0 X& O; w& W( [0 x$ z# b" J# j                stream=fopen(sPath,"wb");
3 @# r  n6 I# f+ y( W                for(int i=0;i&lt;BIN_Byte_Len;i++)
* c3 C# n% n( C  Y8 [; D, H& v* \6 x                        fprintf(stream,"%c",BIN_Byte);  //save file
% Z+ q4 x; X# Y4 N( B                fclose(stream);
        }
        free(BIN_Byte);
4 r4 [4 m4 ]1 ]0 T}
//---------------------------------------------------------------------------
& N: B0 }6 W: X+ g# \! h6 tvoid __fastcall TForm1::FormDestroy(TObject *Sender)
& \- V# F) p) g  s) }{
        if (BIN_Byte!=NULL)
8 F+ C7 q1 a' K' q& _5 D4 g  U* Y             free(BIN_Byte);
' o- T& }1 \( f! j}
//---------------------------------------------------------------------------
0 D. N7 s0 [) |) U5 e! W. b$ A</P>
$ ?6 P3 |0 b/ B% j  L' a/ n) Q<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
2 `0 X! q5 N4 }1 L) b<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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