Board index » cppbuilder » help -plz....--file code....(a simple one)

2005-11-02 02:12:40 AM
cppbuilder0
// end_of_file is bool
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenDialog1->Execute();
Edit1->Text=OpenDialog1->FileName;
TFileStream *t1=new TFileStream(Edit1->Text,fmOpenRead);
if(FileCreate("d:\\trial.cpy")==-1)
Button2->Click();
TFileStream *t2=new TFileStream(s,fmOpenWrite|fmShareDenyNone);
t1->Seek(0,0);
t2->Seek(0,0);
while(end_of_file==false)
{
if(t1->Read((char *)&c,1)==1)
t2->Write((char *)&c,1);
else
end_of_file=true;
}
t1->Free();
t2->Free();
t1->~TFileStream();
t2->~TFileStream();
}
here's the simple code...if u have a nice code plz send it here
 

DILIP K wrote:
Are you trying to copy a file from one place to another ? Because if you
are, Windows includes a CopyFile function that makes it much simpler.
executing. You should test to check whether the user cancelled the dialog
before continuing.
you've created it.
suggestions put together: (untested)
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Open the dialog, and if it is cancelled, then return.
if( !OpenDialog1->Execute() )
return;
Edit1->Text = OpenDialog1->FileName;
TFileStream *t1 = new TFileStream( Edit1->Text, fmOpenRead );
int Result = FileCreate( "d:\\trial.cpy" );
if( Result < 0 )
Button2->Click();
else
FileClose( Result );
TFileStream *t2 = new TFileStream( s, fmOpenWrite |
fmShareDenyNone );
t1->Seek( 0, soFromBeginning );
t2->Seek( 0, soFromBeginning );
while( true )
{
char c;
if( t1->Read( &c, sizeof( char ) ) < sizeof( char ) )
break;
t2->Write( &c, sizeof( char ) );
};
delete t1;
delete t2;
}
HTH
Jonathan
 

"Jonathan Benedicto" < XXXX@XXXXX.COM >wrote:
~ JD
 

{smallsort}

JD wrote:
copying it char-by-char. Otherwise, I'd have used CopyFile.
Jonathan
 

DILIP K wrote:
You did not try very hard to find a suitable Subject.
How about: 'Trying to read from and write to a file'. ?
And words like help and please do not belong in a Subject.
Hans.
 

"Remy Lebeau \(TeamB\)" < XXXX@XXXXX.COM >wrote:
~ JD
 

"JD" < XXXX@XXXXX.COM >wrote in message
Gambit
 

Interestingly enough it still got read though didn't it.
Hans Galema wrote: