FileStream

[ryton]

Часть кода, на строчке Reader.ReadListBegin; выкидывает ошибку Invalid property value.Посмотрел примеры,вроде все правильно,да и как то работать с этим тока сейчас пришлось,может кто что подскажет...
FileStream:= TFileStream.Create('E:\WorkRyton\Ло ги\radius-2008.4.26-3_26_22.log',
fmOpenRead);
Reader := TReader.Create(FileStream, 2048);
Reader.ReadListBegin;
s:=Reader.ReadStr;

[alexBlack]

If the next item in the stream is not a start-of list marker as written by the WriteListBegin method, ReadListBegin raises an EReadError exception.

Посмотрите порядок записи. Вызван ли WriteListBegin после создания потока на запись ?

[ryton]

Мне из файла только читать надо....А писать в него вообще нельзя,ну всмысле нежелательно.

[alexBlack]

Сообщение от ryton

Мне из файла только читать надо....А писать в него вообще нельзя,ну всмысле нежелательно.

Но кто-то же в него записал. Значит первым элементом записан не маркер списка. Об этом Вам и сообщается в ошибке - неверное значение свойства.

Прикрепите пример файла и объясните, что из него Вы хотите считать.

[ryton]

Файл лога сервера.размер его от 50 метров до 3 гигов,пишет в него естественно сервак,а мне надо программно его анализировать.Если открывать Reset то не получается,хотя Lister открывает.

[alexBlack]

То есть это текстовый файл ?
Тогда Вы зря используете TReader. Для него данные должны быть подготовлены TWriter'ом.

Попробуйте по-другому. Например, с использованием TParser:

var F:TFileStream;
    P:TParser;
    S:String;
begin
   F := TFileStream.Create('uMain.pas', fmOpenRead);
   try
      P := TParser.Create(F);
      try
         repeat
            S := P.TokenString;
            
         until P.NextToken = toEOF
      finally
         P.free;
      end;
   finally
      F.free;
   end

Но, по моему, этот вариант даже для 50М будет слишком долгим.
Проще используя TFileStream переместиться ближе к концу файла (если, конечно, не нужно анализировать весь log), затем читать в буфер (FileStream.Buffer) и уже из буфера выбирать строки - поиск разделителей строк #13#10.

[ryton]

в этом и самая проблема,что искать нужно по всему логу.Если брать из архива,то и с помощью Reset можно работать нормально,но тоже долго.Пасибо за совет,сейчас попробую

[B_N]

ryton, открывайте его лучше через CreateFile.

[ryton]

я просто в этом не сильно разбираюсь,а TokenString берет не всю строку,а по частям.

[alexBlack]

Сообщение от ryton

я просто в этом не сильно разбираюсь,а TokenString берет не всю строку,а по частям.

Ну, Вы же все равно потом будете разбирать строки.
А полными строками можно читать, например, так:

procedure TForm1.FormCreate(Sender: TObject);
var buffer : array [word] of char;
    C, LP : integer;
    LS : string;
    F:TFileStream;

 function nextString:String;
 var S1:String;
     P:integer;
 begin
    if C = 0 then begin
       C := sizeOf(Buffer);
       C := F.read(buffer, C);
       if C = 0 then begin
          if LS = '' then result := #27 else result := LS;
          exit;
       end;
       LP := 0;
    end;

    P := LP;
    while (P < C) do begin
       if Buffer[P] = #10 then LP := P+1
       else if Buffer[P] = #13 then break;
       inc(P);
    end;

    if P-LP = 0
    then S1 := ''
    else begin
       setString(S1, PChar(@Buffer[LP]), P-LP);
    end;
    LS := LS + S1;

    if Buffer[P] = #13 then begin
       result := LS;
       LS := '';
       inc(P); LP := P;
    end else begin
       if P >= C then C := 0;
       result := nextString
    end;
 end;

var S:String;
begin
   Memo1.Lines.Clear;
   F := TFileStream.Create('d:\system.pas', fmOpenRead);
   try
      C := 0; LS := '';
      while true do begin
         S := nextString;
         if S = #27 then break;
         memo1.lines.add(S);
      end;
   finally
       F.free;
   end;