Tilted Forum Project Discussion Community - [Delphi] Help with binary files

Tilted Forum Project Discussion Community (https://thetfp.com/tfp/)

- Tilted Technology (https://thetfp.com/tfp/tilted-technology/)

- - [Delphi] Help with binary files (https://thetfp.com/tfp/tilted-technology/53370-delphi-help-binary-files.html)

hrdwareguy

04-23-2004 09:11 AM

[Delphi] Help with binary files

First of all, don't laugh because I'm using Delphi...it's not my choice.

I have to rewrite a c program in delphi and I'm having trouble dealing with binary files.

Here is my c code:

Code:

FILE:*fp,*fp1;

int:i,j;

fp=fopen(binfile,"rb");

while (!feof(f2))

{

    fp1=fopen(temp,"wb");

    for(i=0;i<100000;i++)

    {

        ch=fgetc(fp);

        if(feof(fp))

        {

            break;

        }

        fputc(ch,fp1);

    }

    fclose(fp1);

    do something with temp

}

This is used to break up large files and upload to our websit.

I need to do the same thing but only in Delphi.

rahein

04-28-2004 09:40 AM

There is nothing wrong with Delphi it is a very good language. Most people just don't know about it and think it sucks. Those same people like VB.

Look at the FFileStream class it should do what you want. And fast to because you are not doing it byte by byte, it uses buffers instead.

hrdwareguy

04-28-2004 02:00 PM

I finally figured out how to do this with block read and block write. Looks something like this:

Code:

var f1,f2:file;

cnt:integer;

    assignfile(f1,infile);

    reset(f1,100000);

    while not eof(f1) do begin

        blockread(f1,ch,1,cnt);

        assignfile(f2,outfile);

        rewrite(outfile,100000);

        blockwrite(f2,ch,cnt);

    end;

All times are GMT -8. The time now is 06:35 PM.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76