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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
4 i: X( o& D8 |0 _" }+ |//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
4 G- {* L. q: M: @4 T+ I" U
: C8 J( A& ]! K3 [! U% s- p#include "Unit1.h"
# [6 B+ [; H( K8 z0 m% g" F#include <fstream.h>
#include <dir.h>
1 T7 l/ u  P7 c8 B' A: K#include <sys\stat.h>
#include <malloc.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
        unsigned char *BIN_Byte;
) S$ _. P8 u/ q. x8 P        long BIN_Byte_Len;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
7 [& [0 N' W4 p! o        : TForm(Owner)
) `! {: i; x; l9 m9 e* Y{
}
7 i, \# H1 J  A2 `5 W. n# f: ?/ ?% H//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        char sPath[MAXPATH];
5 P9 @: V0 |9 i1 J, c/ h% V        struct stat statbuf;
% y# s# Z# V" [; R        FILE *stream;

" v. Y6 A5 M8 p) |" z        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
0 t) n* W+ f9 ]1 g4 R        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
) I) M8 t0 l6 |2 i6 I        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
        {
4 h3 x: a/ e# c; E+ l2 ~                strcpy(sPath,OpenDialog1->FileName.c_str());
                stream=fopen(sPath,"rb");
- P% ^+ r6 o2 E# x' y                fstat(fileno(stream),&statbuf);
& n/ A* l" _# D, W8 p' \                BIN_Byte_Len=statbuf.st_size;
, a# T3 R/ g; \$ _5 v9 p                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
                for(int i=0;i<BIN_Byte_Len;i++)
0 Y9 `$ X3 Z* r6 u* W                        fscanf(stream,"%c",&BIN_Byte); //read file
                fclose(stream);
        }
6 x" a: [5 s% ^# Q3 B2 W        free(sPath);
        free(stream);
( ?" t/ a9 W9 @, p4 ~& b}
! q; {* N! c: [$ Z//---------------------------------------------------------------------------
7 N% h9 V, z# f& pvoid __fastcall TForm1::Button2Click(TObject *Sender)
9 Z. S7 r  n5 x* }{
        char sPath[MAXPATH];
        FILE *stream;
0 V+ X- s/ w) r, n        getcwd(sPath,sizeof(sPath));//App.Path
( t# `" |9 x) T( J* c0 Y# }* @* j' i        strcat(sPath,"\\");
        SaveDialog1->InitialDir = sPath;
. K9 v, ^$ O/ ]2 `8 B: E* \9 u        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        SaveDialog1->FileName="fileTo.BIN";
        if(SaveDialog1->Execute())
2 @( y7 @  A3 g  |8 A% N1 C        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
4 j5 S* \8 S7 H                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
                        fprintf(stream,"%c",&BIN_Byte);  //save file
                fclose(stream);
; A, {( B% x9 }# m. h6 S& r        }
        free(sPath);
        free(stream);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
4 h  l- h4 T; L0 z& X' s; r4 _4 N        free(BIN_Byte);
}
! `4 {/ `# z$ Q* h- m8 i//---------------------------------------------------------------------------

打開一個檔案,再另存為另一個新檔案
& [: B! j* T# v, Q. u( _# L7 F結果兩個檔案內容一樣
8 l* }  Q# p9 y順序不一樣了
檔案前面一段內容跑到結尾去了
就像下面的情況
& P8 M' r# _! X" w7 e7 U- T原來檔案內容:ABCDEFG
% d' v  p+ b0 Y8 s新檔案內容:CDEFGAB
老大救救小弟哦

kenneth

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

kenneth

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

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
" A! f1 ?7 Y5 {" L- G$ Q0 T' q<>alloca:</P>
9 Y7 V$ S& \  i1 N1 |3 z9 Q<>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>
5 K2 }# ~4 d+ d1 x<>malloc:</P>
% i* k, W$ A% ~. r) t6 q<>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>

! N8 f/ z2 U. V% j<>以下是改后的代码</P>
# s% \- \5 t, e) z' {% e# ~<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
#pragma hdrstop</P>
: o8 M& G8 m/ \8 M; u; b: L6 e<>#include "Unit1.h"
#include &lt;fstream.h&gt;
#include &lt;dir.h&gt;
5 B- a: ?# `% _% O2 v#include &lt;sys\stat.h&gt;
#include &lt;malloc.h&gt;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
) r, `1 V# H4 y/ [/ O, G. G; M        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
; W4 A5 ?% k8 h//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
2 J8 X. U( m; V6 k# _2 S        char sPath[MAXPATH];
! q3 C5 s' V* T  z        struct stat statbuf;
        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
. s3 L1 ?9 O% l) I- x. Y' x        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
        OpenDialog1-&gt;FileName="fileFrom.BIN";
        if(OpenDialog1-&gt;Execute())
+ m; L1 F  T5 \9 g- ~+ E8 c& w        {
0 X" g9 O! x: \! Z% i: B4 q$ E! [                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"rb");
: |  u' P; |7 W3 G  K/ b; j                fstat(fileno(stream),&amp;statbuf);
                BIN_Byte_Len=statbuf.st_size;
; |8 D3 Z* L8 w& t# X                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
6 N. N3 n% `( r& L- T5 N0 g                for(int i=0;i&lt;BIN_Byte_Len;i++)
' ]- b$ g7 |6 Y& D9 {                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
% R8 ?5 g  F6 L5 G6 t                fclose(stream);
" J: k# l  r7 c! M: Y        }
}
5 i& h! u$ F4 \/ A9 B. K//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
! I1 C: Z; G$ X9 j{
# A* z; o% s# r9 \$ E        char sPath[MAXPATH];
$ {$ L, A- {' ?& |7 K        FILE *stream;
) `1 c" U% ~1 T& l, n; W$ P& ~        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
/ t/ {) k; q; o5 f# `. a        SaveDialog1-&gt;FileName="fileTo.BIN";
        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++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
# K; V0 I3 s% ]; M' L( {                fclose(stream);
        }
+ a6 T1 y6 O' E+ k1 n4 m7 h; ]1 e        free(BIN_Byte);
}
3 F- E$ V4 k( e% s; H) H//---------------------------------------------------------------------------
5 [, R, R" X! Z. R! _void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        if (BIN_Byte!=NULL)
3 h- ]( b' R& e( O6 I- g* M9 U/ o* S1 r             free(BIN_Byte);
}
* A1 P) f$ B1 i3 z//---------------------------------------------------------------------------
</P>
<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
7 _# Q; n" w( ?) c7 c<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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