🚀 go-pugleaf

Hello Remy,
I wrote this code before your answer,
return me "Stream File Error..."
Where is my mistake?

Thanks,
Safari

void __fastcall TMain::BitBtn1Click(TObject *Sender)
{
    int b = 0;
    int hExten = 0;
    BYTE hBufer[1];
    int hBytes = Edit3->Text.ToInt();
    if (FileExists(Edit1->Text))
    {
       TFileStream *hSource = new TFileStream(Edit1->Text,
       fmOpenRead | fmShareDenyWrite);
       Progress->Max = hSource->Size;
       for (int a = 0; a < hSource->Size; a++)
       {
          AnsiString hName = Format("%s.%.3d", ARRAYOFCONST((
          Edit2->Text, hExten++)));
          TFileStream *hTarget = new TFileStream(hName, fmCreate);
          do
          {
             b += 1;
             Progress->Position = hSource->Position;
             hSource->ReadBuffer (hBufer, 1);
             hTarget->WriteBuffer(hBufer, 1);
          }
          while ((b = hBytes) | (b > hSource->Size));
          delete hTarget;
       }
       delete hSource;
       Progress->Position = 0;
    }
}


Remy Lebeau (TeamB) wrote:
> "Safari" <Safari@alloymail.com> wrote in message
> news:3E8F1D05.40008@alloymail.com...
> 
> 
>>How can i split a file with TFileStream?
>>I want to read Exmp:
>>1..50,000 bytes of 1,000,000 bytes to MyFile.001
>>50,001..100,000 bytes of 1,000,000 bytes to MyFile.002