Удалить кусок файла.

[Farrel]

Появилась необходимость удалить кусок из файла, причём пришлось использовать стандарстный fstream, т.к. большой кусок проги написан на вижле. Тут возникли 2 проблемы:QT походе не различает seekg и seekp, и fstream имеет в нём только один указатель для работы с файлами. По крайней мере при попытке сделать seekg и seekp в разные часли файла, после каждой из операций tellg и tellp возвращали одинаковые значения.
Сделал так:

void writer::del(minfo todel)
{
    long double startoffset;
    long double endoffset;
    char c;
    startoffset=todel.offset;                                              
    endoffset=startoffset+todel.i.filelen+todel.i.namelen+todel.i.worklen+1;      
    while(!archive.eof())                                                   
    {
        archive.seekp(endoffset);
        archive.read((char*)&c,1);
        archive.seekp(startoffset);
        archive.write((char*)&c,1);
        startoffset++;
        endoffset++;//
    }
}

нужный кусок файла удаляется, но размер файла остаётся прежним и соответственно конец файла забит мусором. Как этот "хвост" убрать?