Бинарные файлы

[Kazik]

Товарищи...выручайте...
Нужно удалить определенную часть бинарного файла (от начала файла)
Что-то типа лечения

[Serge_Bliznykov]

Язык программирования то какой?

а вообще, TFileStream - исходный файл открыли, переписали с определённой позиции в выходной файл.
буквально несколько строк... Хотите пример на Delphi ?

[Пепел Феникса]

варианта два, через временный файл, и через память(первый надежнее)
1)временный файл

procedure DeleteBytesFromStart(Filename:string;CountOfBytes:integer);
var TempName:string;
     FS,TFS:TFileStream;
begin
 TempName:=FileName+'.tmp';
 RenameFile(PChar(FileName),PChar(TempName));
 FS:=TFileStream.Create(FileName,fmCreate);
 TFS:=TFileStream.Create(TempName,fmOpenRead);
 TFS.Seek(CountOfBytes,soFromBeginning);
 FS.CopyFrom(TFS,TFS.Size);
 FS.Free;
 TFS.free;
 DeleteFile(TempName);
end;

2)память

procedure DeleteBytesFromStart(Filename:string;CountOfBytes:integer);
var FS,:TFileStream;
     MS:TMemoryStream;
begin
 FS:=TFileStream.Create(FileName,fmOpenRead);
 MS:=TMemoryStream.Create;
 FS.Seek(CountOfBytes,soFromBeginning);
 MS.CopyFrom(FS,FS.Size);
 FS.Size:=0;
 FS.CopyFrom(MS,MS.Size);
 FS.Free;
 MS.free;
end;

со вторым если честно до конца не уверен.

[Kazik]

звиняте...язык C++Builder
забыл блин

[Пепел Феникса]

хм, на билдере, сейчас переведу проверю, и тогда выложу.

[Пепел Феникса]

в общем вот
1)временный файл

void DeleteBytesFromStart(AnsiString FileName,int CountOfBytes)
{
     AnsiString TempFile=FileName+".tmp";
     RenameFile(FileName,TempFile);//тут не уверен что приведение типов не нужно
     TFileStream* FS=new TFileStream(FileName,fmCreate);
     TFileStream* TFS=new TFileStream(TempFile,fmOpenRead);
     TFS->Seek(CountOfBytes,soFromBeginning);
     FS->CopyFrom(TFS,TFS->Size);//тут могут скобки понадобится, или/и разименоывание указателя(*TFS)
     delete FS;
     delete TFS;
     DeleteFile(TempName);
}

2)память

void DeleteFilesFromStart(AnsiString FileName,int CountOfBytes)
{
     TFileStream* FS=new TFileStream(FileName,fmOpenRead);
     TMemoryStream* MS=new TMemoryStream();
     FS->Seek(CountOfBytes,soFromBeginning);
     MS->CopyFrom(FS,FS->Size);//то же что и в первом
     FS->Size=0;
     FS->CopyFrom(MS,MS->Size);//см выше
     delete FS;
     delete MS;
}

проверить правда не могу, у меня билдер веселый, виснет вечно