Hi,
I am writing a Delphi application that will merge a number of files into one file. The problem I have is that I have to "Pad" out each of the files to 4MB before combining them into the one file. So, if a file was only 1.5MB I would have to pad the remaining space (2.5MB) with $FF's. I think I can figure out the file merging itself but this padding has me stumped, I have tryed various methods each of which are too slow, any suggestons?
TIA.
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Hi,
Yeh, I tried this also, problem is it was very slow, took several minutes on my machine, could of course be a problem with my machine. I also tried pre-creating a 4 meg file full of FF's and masking the data over it, this was very fast and worked but I will need to do padding for 8M, 16M and possibly 32M in the future. I will look at the fileWrite method now and see what I come up with as I havent looked at that function yet.
Thanks, keep those ideas coming!
It is fast enough.
I think
procedure TForm1.Button1Click(Sender
var
f: file;
buf: array[0..255] of char;
i: integer;
h: integer;
begin
for i := 0 to 255 do
buf[i] := #$ff;
h := FileOpen('test.tst',fmOpen
if h > 0 then
begin
for i := 0 to 100000 do
FileWrite(h,buf,256);
FileClose(h);
end;
end;
Business Accounts
Answer for Membership
by: Moroni24Posted on 2004-07-20 at 10:56:35ID: 11595452
What methods have your tried?
Have you tried using "write" within a loop?
procedure Write(F, V1,...,Vn);
Description
Write writes a file to a file component. F is a file variable, and each V is a variable of the same type as the component type of F. For each variable written, the current file position is advanced to the next component. If the current file position is at the end of the file (that is, if Eof(F) is True), the file is expanded.
Below is an example, it won't compile, but you should get the idea.
padding := $FF's
maxFileSize := 4meg;
while filePos(file) < maxFileSize do begin
write(file,padding);
end;
You could also look at the fileWrite method