Stream.Seek Stream.Position возвращает ноль.

← →
rioko (2012-08-02 10:54) [0]

FromF := TFileStream.Create(pp + "UserData\" + BaseName + "DB.db", fmOpenRead); Application.ProcessMessages(); try ToF := TFileStream.Create(DirToRepack + "\" + FileName, fmCreate); end; try FromF.Seek(BeginByte, soFromBeginning); ShowMessage("Seek(BeginByte \ "+inttostr(FromF.Position) +" \ "+inttostr(BeginByte)); Application.ProcessMessages(); ToF.CopyFrom(FromF, RecFileSize); finally ToF.Free; end; finally FromF.Free; end;

Так вот, все прекрасно работает если файл менее полутора гигабайт, а когда больше то после выполнения Seek при проверке
ShowMessage("Seek(BeginByte \ "+inttostr(FromF.Position) +" \ "+inttostr(BeginByte));
показывает что позиция ноль.

Что делать? Записывается то нормально а вот как прочесть данные и почему сик не работает если там int64 и длины хватает в любом случае?

← →
Cobalt © (2012-08-02 15:36) [1]

Удалено модератором
Примечание: создание пустых сообщений

← →
Rouse_ © (2012-08-02 18:59) [2]

Вместо Seek используй свойство Position

← →
rioko (2012-08-02 19:42) [3]

Rouse_

Спасибо большое :)

> rioko (02.08.12 10:54)

> и почему сик не работает если там int64 и длины хватает
> в любом случае?

Работает он, но там есть два перегруженных метода Seek принимающие разные типы второго параметра.

)

function TStream.GetPosition: Int64;
begin
Result := Seek(0, soCurrent);
end;

Stream.Seek Stream.Position возвращает ноль. Найти похожие ветки