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

kenneth

新建一個專案,在窗口Form1上加兩個按鈕,一個OpenDialog1,一個SaveDialog1;
7 c& J) Q5 @2 g//---------------------------------------------------------------------------
5 L' @" ], T8 }) A" a
( q! ~7 u. F0 X$ S7 I, x# i: d) F#include <vcl.h>
+ C  g+ b' C7 F3 v3 c#pragma hdrstop
9 I/ q% L  H, Z: N7 N
( S; o) ~) a! n: V( ~5 h  T0 C1 r; [' ]#include "Unit1.h"
' l+ v, u* w; I+ @) M#include <fstream.h>
#include <dir.h>
; c* I% J! n1 Q4 h* J( O#include <sys\stat.h>
#include <malloc.h>
//---------------------------------------------------------------------------
) P' Q' ?2 \; @5 @( b( p# S. x#pragma package(smart_init)
6 D+ y/ O) S5 N% J  `#pragma resource "*.dfm"
% l, s& f- W( J3 t0 w* p& L( xTForm1 *Form1;
        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
8 J( x% y* q! P0 X0 x# G- B{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
4 I  a; J" W0 a/ F6 l{
( L) l; A& ]2 k9 y& C9 C" a        char sPath[MAXPATH];
+ @6 s# Y" Q+ d        struct stat statbuf;
        FILE *stream;

        getcwd(sPath,sizeof(sPath));
        OpenDialog1->InitialDir=sPath;
* Z" F# Q! E7 O. H0 M# l. o        OpenDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
. d( _4 R6 u3 e2 X6 w        OpenDialog1->FileName="fileFrom.BIN";
        if(OpenDialog1->Execute())
* e5 F8 i. G) a0 H        {
                strcpy(sPath,OpenDialog1->FileName.c_str());
% D3 L( j- ?6 x  Q. q                stream=fopen(sPath,"rb");
& @; j& R+ C4 Q# b$ Y% N8 U# N                fstat(fileno(stream),&statbuf);
& b# @" j3 {/ L# s- O; Y                BIN_Byte_Len=statbuf.st_size;
6 O: ^' \' j! I& b7 r9 Y$ [+ y* ?                BIN_Byte=(unsigned char *)alloca(BIN_Byte_Len);
" T* C4 ^. K, _5 P- r                for(int i=0;i<BIN_Byte_Len;i++)
                        fscanf(stream,"%c",&BIN_Byte); //read file
                fclose(stream);
        }
        free(sPath);
        free(stream);
* `/ T0 Z& W8 r! q}
//---------------------------------------------------------------------------
- ?: Z! M8 b+ v' V$ x7 U, nvoid __fastcall TForm1::Button2Click(TObject *Sender)
$ x- p! z0 `9 g( d{
9 U* M! h7 q! U' T        char sPath[MAXPATH];
        FILE *stream;
        getcwd(sPath,sizeof(sPath));//App.Path
        strcat(sPath,"\\");
* \' v! T9 B6 }% @0 N        SaveDialog1->InitialDir = sPath;
) ]6 y4 }2 U+ \5 U5 F+ Z        SaveDialog1->Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
1 i/ h- e' ^- y        SaveDialog1->FileName="fileTo.BIN";
9 p2 r! l/ @# j8 H0 f. J        if(SaveDialog1->Execute())
        {
                strcpy(sPath , SaveDialog1->FileName.c_str());
                stream=fopen(sPath,"wb");
                for(int i=0;i<BIN_Byte_Len;i++)
1 `  Q0 R9 \# O0 ]                        fprintf(stream,"%c",&BIN_Byte);  //save file
                fclose(stream);
( v* H* b) ?: x! {9 x0 t0 ^: `4 k        }
        free(sPath);
. f$ |4 d# N" \        free(stream);
}
. @! `) ?* R- ?//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
        free(BIN_Byte);
& }$ l$ O( ^- t# ], P8 f$ @2 E/ f}
//---------------------------------------------------------------------------
. W! [2 l1 S5 p* E5 g  J
打開一個檔案,再另存為另一個新檔案
+ g7 h) D- F7 m結果兩個檔案內容一樣
- o* i, i6 L- \: w5 d順序不一樣了
檔案前面一段內容跑到結尾去了
+ Z4 d( C2 r$ Y1 C7 |就像下面的情況
1 R, C9 j% z7 f1 u) p原來檔案內容:ABCDEFG
) D$ Y  T  W" \% p/ [1 F% M新檔案內容:CDEFGAB
老大救救小弟哦

kenneth

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

high_hill

<>不知道你找出的问题在那儿，我判断是alloca和malloc的误用。c++中对指针（内存）的操作总是容易出错，这些系统函数的使用，最好先仔细看看help。</P>
<>alloca:</P>
<>Allocates temporary stack space.</P>
: `% ], D% N6 {. n* p; w  s) \<>alloca allocates size bytes on the stack; the allocated space is automatically freed up when the calling function exits.</P>
) ]9 d+ e3 V6 O) {<>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>
; g$ p2 J& x0 _/ ]<>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>
& b8 K1 O9 q2 s8 M8 r2 U: G<>//---------------------------------------------------------------------------</P>
<>#include &lt;vcl.h&gt;
4 j  s* t+ `9 b# E7 G3 u5 l( |#pragma hdrstop</P>
<>#include "Unit1.h"
#include &lt;fstream.h&gt;
#include &lt;dir.h&gt;
#include &lt;sys\stat.h&gt;
#include &lt;malloc.h&gt;
2 i7 ^+ c; s2 q7 L7 Z' s//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
        unsigned char *BIN_Byte;
        long BIN_Byte_Len;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
$ Q( t8 Q- `1 B{
}
( @3 p" n, ^% o. b( o. O. ?( H) l//---------------------------------------------------------------------------
5 e# X  [) e5 Fvoid __fastcall TForm1::Button1Click(TObject *Sender)
{
( O' p3 o- C, k: o) B: m! e: O9 j        char sPath[MAXPATH];
        struct stat statbuf;
9 N6 f7 H0 w# \. q* ~, G8 v& C3 D        FILE *stream;</P>
<>        getcwd(sPath,sizeof(sPath));
        OpenDialog1-&gt;InitialDir=sPath;
' [/ p% ?: r* w5 J8 ?        OpenDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
( l/ r6 d4 {  r' ^8 m# a( n' R" _9 T        OpenDialog1-&gt;FileName="fileFrom.BIN";
        if(OpenDialog1-&gt;Execute())
        {
                strcpy(sPath,OpenDialog1-&gt;FileName.c_str());
                stream=fopen(sPath,"rb");
' ]' j' z+ k  ]2 v* {( G$ z                fstat(fileno(stream),&amp;statbuf);
. G) N  u9 @7 Y$ z                BIN_Byte_Len=statbuf.st_size;
                BIN_Byte=(unsigned char *)malloc(BIN_Byte_Len);
1 \2 a( c, \$ }' }( e; Q" ?: w                for(int i=0;i&lt;BIN_Byte_Len;i++)
- X2 q2 ~$ B: S5 t6 K; W; F6 ]                        fscanf(stream,"%c",&amp;BIN_Byte); //read file
                fclose(stream);
1 y6 Z3 y) A  P. @/ y        }
3 ]% A8 y' x0 W( t}
( A% a4 L/ H( K) h* `/ i//---------------------------------------------------------------------------
' ?" f8 x7 i3 C5 Ovoid __fastcall TForm1::Button2Click(TObject *Sender)
{
8 P& \( G- }! ?5 X( `        char sPath[MAXPATH];
  T/ ~( Q7 Y) p2 b% [& w* ]        FILE *stream;
. z4 b4 R( Q/ S$ Y0 r        getcwd(sPath,sizeof(sPath));//App.Path
* Q$ H) U7 b0 Q; @        strcat(sPath,"\\");
        SaveDialog1-&gt;InitialDir = sPath;
        SaveDialog1-&gt;Filter = "BIN_File(*.BIN)|*.BIN|All_File(*.*)|*.*";
- ]3 I- J" c3 v" t$ i        SaveDialog1-&gt;FileName="fileTo.BIN";
8 Q) }( F9 e6 q+ g        if(SaveDialog1-&gt;Execute())
        {
                strcpy(sPath , SaveDialog1-&gt;FileName.c_str());
! [9 H$ U9 R- D, a0 y" X                stream=fopen(sPath,"wb");
                for(int i=0;i&lt;BIN_Byte_Len;i++)
                        fprintf(stream,"%c",BIN_Byte);  //save file
. Z) `4 R6 i- q9 ]. }                fclose(stream);
8 a! k  O' R& N2 L1 {        }
2 j+ d  y: h" r; A# Z        free(BIN_Byte);
1 [# j7 M1 A7 f2 x}
//---------------------------------------------------------------------------
' A, n" ]4 H8 Qvoid __fastcall TForm1::FormDestroy(TObject *Sender)
{
        if (BIN_Byte!=NULL)
             free(BIN_Byte);
}
//---------------------------------------------------------------------------
' _7 X% K0 g" k: {$ ~3 a0 q</P>
  R& \1 b% b+ H; F+ o. S- ]5 t+ P<>free(sPath); free(stream);此两句也有问题。</P>
<>char sPath[MAXPATH];不需要释放；</P>
<>fclose(stream)已经起到free(stream)的作用</P>

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

kenneth

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

kenneth

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

kenneth

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