Solved

Set file size without writing in it

Posted on 2004-03-24
8
778 Views
Last Modified: 2010-04-04
It is possible to set file size when using TFileStream:

var f : tfilestream;
begin
f := tfilestream.create('somefile.dat',fmcreate or fmopenwrite);
f.size := $1000000;
f.free
end;

Is it possible to do the same thing without using TFileStream? Example with using untyped file would be the best.
0
Comment
Question by:ZhaawZ
8 Comments
 
LVL 26

Expert Comment

by:Russell Libby
ID: 10672405
Yes, you can set the file size, even beyond what is actually there...

Some code from a PAQ that I participated in. You can modify the function to just take a file handle, the real key to this are the calls to SetFilePointer / SetEndOfFile.

Hope this helps,
Russell


function HiLong(Value: Int64): LongWord;
begin
  result:=((Value shr 32) and $FFFFFFFF);
end;

function LoLong(Value: Int64): LongWord;
begin
  result:=LongWord(Value);
end;

function CreateJunkFile(FileName: String; Size: Int64): Boolean;
var  hJunk:      THandle;
     dwLow:      Integer;
     dwHigh:     Integer;
begin

  // Get high/low
  dwLow:=LoLong(Size);
  dwHigh:=HiLong(Size);

  // Create the new junk file
  hJunk:=CreateFile(PChar(FileName), GENERIC_WRITE, 0, nil, CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0);
  if (hJunk <> INVALID_HANDLE_VALUE) then
  begin
     // Set the file pointer
     if (SetFilePointer(hJunk, dwLow, @dwHigh, FILE_BEGIN) = LoLong(Size)) then
        // Set end of file
        result:=SetEndOfFile(hJunk)
     else
        // Failed to set file pointer
        result:=False;
     // Close the file
     CloseHandle(hJunk);
  end
  else
     // Failure
     result:=False;

end;
0
 
LVL 11

Author Comment

by:ZhaawZ
ID: 10672735
mm .. found it ..

var
  f : file;
begin
assignfile(f,'d:\somefile.dat');
rewrite(f,1);
seek(f,$10000000);
truncate(f);
closefile(f);
end;

rllibby, thanx for the help, but it was without using untyped files ;)

No help needed anymore...
0
 
LVL 26

Expert Comment

by:Russell Libby
ID: 10672742

What do you thing seek and truncate call behind the scenes???

Russell



0
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 
LVL 11

Author Comment

by:ZhaawZ
ID: 10672920
Is there anything wrong?
0
 
LVL 1

Expert Comment

by:IrishFBall32
ID: 10695371
It appears that you second example would work just fine, in fact i once wrote a similar program to test that my computer could actually address the full capacity of my harddrive.

The only thing to keep in mind though, if you take a file who's size is say 1MB, and change its size to 10MB there will be 9MB worth of "garbage" in the file from whatever was on the spots on the drive that the new size takes up. In other words it is similar to an un-initialized variable being full of the garbage from whatever was in RAM before it.
0
 
LVL 11

Author Comment

by:ZhaawZ
ID: 10695798
Yes, I know ;) Actually I just reserve the necessary space on disk before writing the file and then write data to it.
0
 

Accepted Solution

by:
PashaMod earned 0 total points
ID: 12072844
Closed, 125 points refunded.
PashaMod
Community Support Moderator
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
How to disable mouse scroll in a combo box field within a Delphi cxGrid 4 158
select query - oracle 16 100
Delphi...Split view - idea? 1 89
DBCtrlGrid, Delphi, Scroll 8 38
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

856 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question