BlockWrite failed!!!!?

Hi All,

In my application, I am using 'BlockWrite' procedure to write my structured data into file. It was working fine.

But since last 2-3 days, I am getting error in BlockWrite procedure.
Actually, there are so many forms and units in my application; and i tried BlockWrite from different forms too, but in vain. I am stuck with the error and can not understand how it sudden refused to work!!!

I tried the same function with another testing application and it is working fine there; which is more confusing.

This is the testing function which I tried in both, my main application and my testing application.

[code]procedure _SaveDataToFile();
var
Buf: Array[0..255] of char;
TestFile: File of Char;
begin
AssignFile(TestFile, 'c:abcd.cfg');
ReSet(TestFile);
if not EOF(TestFile) then
Seek(TestFile, FileSize(TestFile));
Buf := 'kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk';
BlockWrite(TestFile, Buf, sizeof(Buf));
CloseFile(TestFile);
end;[/code]

Can any one help me?

Thanks in advance.

Comments

  • I swear the exact same thing happened to me.
    I have a download program that uses block write and now I get a I/O Error and when I try to recompile it mess up at the block write part.

    Using Delphi 7
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

In this Discussion