Проблемы со чтением delphi 2009 - Общие вопросы Delphi - Страница 3

Alex11223 · 11.03.2015, 14:47

Цитата:

Хотя видно другого способа нету. Вообще хотелось бы читать через TFileStream

Как думаете, что используется внутри LoadFromFile?

Вот его исходник из ХЕ5:

Код:

procedure TStrings.LoadFromFile(const FileName: string; Encoding: TEncoding);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream, Encoding);
  finally
    Stream.Free;
  end;
end;

procedure TStrings.LoadFromStream(Stream: TStream; Encoding: TEncoding);
var
  Size: Integer;
  Buffer: TBytes;
begin
  BeginUpdate;
  try
    Size := Stream.Size - Stream.Position;
    SetLength(Buffer, Size);
    Stream.Read(Buffer, 0, Size);
    Size := TEncoding.GetBufferEncoding(Buffer, Encoding, FDefaultEncoding);
    SetEncoding(Encoding); // Keep Encoding in case the stream is saved
    SetTextStr(Encoding.GetString(Buffer, Size, Length(Buffer) - Size));
  finally
    EndUpdate;
  end;
end;

В общем я о том, что если надо, то TEncoding и с TFileStream можно использовать.
Как-то так например (вероятно можно без дополнительного буфера Bytes, но я не в курсе как, не писал на Дельфи давно)

Код:

var
  Size: Int64;
  Stream: TFileStream;
  Bytes: TBytes;
  Str: WideString;
begin
  Stream := TFileStream.Create('SRead.xml.txt', fmOpenRead);
  try
    Size := Stream.Size;
    SetLength(Bytes, Size);
    Stream.Read(Bytes[0], Size);
    Str := TEncoding.GetEncoding(1251).GetString(Bytes);
  finally
    Stream.Free;
  end;

Если бы текст был в UTF8, то можно так:

Код:

var
  Size: Int64;
  Stream: TFileStream;
  Str: UTF8String;
begin
  Stream := TFileStream.Create('SRead.xml.txt', fmOpenRead);
  try
    Size := Stream.Size;
    SetLength(Str, Size);
    Stream.Read(Str[1], Size);
  finally
    Stream.Free;
  end;

(WideString это UTF16, String=WideString начиная с 2009 и AnsiString до нее)

Alexandr17 · 11.03.2015, 14:48

Цитата:

Сообщение от Аватар

не было

Да не этот файл что я скинул.
Вот этот:

Alexandr17 · 11.03.2015, 14:51

Цитата:

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

Как думаете, что используется внутри LoadFromFile?

Вот его исходник из ХЕ5:

Код:

procedure TStrings.LoadFromFile(const FileName: string; Encoding: TEncoding);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    LoadFromStream(Stream, Encoding);
  finally
    Stream.Free;
  end;
end;

procedure TStrings.LoadFromStream(Stream: TStream; Encoding: TEncoding);
var
  Size: Integer;
  Buffer: TBytes;
begin
  BeginUpdate;
  try
    Size := Stream.Size - Stream.Position;
    SetLength(Buffer, Size);
    Stream.Read(Buffer, 0, Size);
    Size := TEncoding.GetBufferEncoding(Buffer, Encoding, FDefaultEncoding);
    SetEncoding(Encoding); // Keep Encoding in case the stream is saved
    SetTextStr(Encoding.GetString(Buffer, Size, Length(Buffer) - Size));
  finally
    EndUpdate;
  end;
end;

В общем я о том, что если надо, то TEncoding и с TFileStream можно использовать.
Как-то так например (вероятно можно без дополнительного буфера Bytes, но я не в курсе как, не писал на Дельфи давно)

Код:

var
  Size: Int64;
  Stream: TFileStream;
  Bytes: TBytes;
  Str: WideString;
begin
  Stream := TFileStream.Create('SRead.xml.txt', fmOpenRead);
  try
    Size := Stream.Size;
    SetLength(Bytes, Size);
    Stream.Read(Bytes[0], Size);
    Str := TEncoding.GetEncoding(1251).GetString(Bytes);
  finally
    Stream.Free;
  end;

Если бы текст был в UTF8, то можно так:

Код:

var
  Size: Int64;
  Stream: TFileStream;
  Str: UTF8String;
begin
  Stream := TFileStream.Create('SRead.xml.txt', fmOpenRead);
  try
    Size := Stream.Size;
    SetLength(Str, Size);
    Stream.Read(Str[1], Size);
  finally
    Stream.Free;
  end;

(WideString это UTF16, String=WideString начиная с 2009 и AnsiString до нее)

А если кодировка неизвестна. Она может быть любой. В принципе можно и через TStringList. Для asm вообще самый оптимальный вариант это читать построчно. Да к томуже так как он имеет кое какие баги. То это единственный вариант.

Аватар · 11.03.2015, 14:56

Цитата:

Да не этот файл что я скинул.

Да и в этом, скорее нет, чем есть, лень до конца пялиться на него. А вот табуляции навалом (09h).

Alexandr17 · 11.03.2015, 15:00

Цитата:

Сообщение от Аватар

Да и в этом, скорее нет, чем есть, лень до крнца пялиться на него. А вот табуляции навалом (09h).

Что табуляции навалом это ясно. Темболее что файл сегавской игры. А вот в какойто строчке 100 % #13#10#13 есть. Так как когда я копировал используя COPY он мне 1 строчку при проверки дебагом выдал
#130
ну вообщето он выдал примерно это '0'#$A
кОГДА КАК ПО ИДЕИ ОРИЕНТИРУЯСЬ НА #13#10 ОН ДОЛЖЕН МНЕ БЫЛ ПРОСТО 0 СКОПИРОВАТЬ.

Аватар · 11.03.2015, 15:19

#13#10#13#10 есть, и не мало, а #13#10#13 без #10 нет

min@y™ · 11.03.2015, 15:26

Цитата:

Для файла асемблера с расширением ASM
Потомучто когда я использовал побайтное чтение через read на delphi 7 у меня именно на этом файле не коректно работал copy и delete.
Дело в том что именно в этом файле вместо #13#10 на некоторых строках было #13#10#13
Возможно баг при чтении.

разруха не в клозетах, а в головах! (© Булгаков)
дай файл.

Цитата:

Вот и подумываю по чтению через tfilestream.
Помогите делать чтение через tfilestream.

и не подумаю! это будет чистое вредительство!

Цитата:

Всеже он больше подходит для скриптинга и парсинга.

плюнь в лицо тому, кто тебе это сказал!

Alexandr17 · 11.03.2015, 15:33

Значит я не знаю в чем там баг был допущен.
а КАК ПОСТРОЧНО ЧЕРЕЗ TSTRINGLIST ЗАГРУЖАТЬ. Только через цикл for
Для милиона строк зависнит все к чертям. Либо я читаю построчна и по мере чтения делаю сразу обработку. Либо я обрабатываю после чтения всего файла. Тут большая разница.
Необходимо этот код под Delphi 2009 передлать

Код:

procedure TfrmRCE.LoadAsmRC(FileName: String; idDom:CHar);
var FileAsm:TextFile;
  s:String;
  ws, wstr:WideString;
  edScriptb, edScriptb1, edScriptb2:Boolean;
  iacol, iarow:Integer;
  i:Array[0..5] of Integer;
  i1:integer;
begin
  try
    AssignFile(FileAsm, FileName);
    ReSet(FileAsm);
    ws:='';
    while not Eof(FileAsm) do begin
      readln(FileAsm, s);
      ws:=ws+s;
      ws:=ws+#13#10;
      wstr:=s;
      if AnsiLowerCase(wStr) = ';'+AnsiLowerCase(SEndMatrix)+AnsiLowerCase(SPtoU)+':'+AnsiLowerCase(iddom) then
        edScriptb:=false;
      if AnsiLowerCase(wStr) = ';'+AnsiLowerCase(SEndMatrix)+AnsiLowerCase(SRCD)+':'+AnsiLowerCase(iddom) then
        edScriptb1:=false;
      if AnsiLowerCase(wStr) = ';'+AnsiLowerCase(SEndMatrix)+AnsiLowerCase(SRMD)+':'+AnsiLowerCase(iddom) then
        edScriptb2:=false;
      if edScriptb then begin
        if pos(';', wstr) > 0 then
          delete(wstr,pos(';', wstr),LENGTH(wstr));
        wstr:=ToReplaceText(wstr, [#9, #32],['', '']);
        While pos(',', wstr) > 0 do begin
          MatrixColorRegionIndexArray[iacol, iarow]:=StrToInt(Copy(wstr,pos(',', wstr)-1,1));
          Delete(wstr, pos(',', wstr)-1, 2);
          iacol:=iacol+1;
        end;
        if pos('dc.b', AnsiLowerCase(wstr)) > 0 then begin
          MatrixColorRegionIndexArray[iacol, iarow]:=StrToInt(Copy(wstr,pos('dc.b', AnsiLowerCase(wstr))+4,1));
          delete(wstr,pos('dc.b', AnsiLowerCase(wstr)),5);
        end;
        iacol:=0;
        iarow:=iarow+1;
      end;
      if edScriptb1 then begin
        if pos(';', wstr) > 0 then
          delete(wstr,pos(';', AnsiLowerCase(wstr)),LENGTH(wstr));
        wstr:=ToReplaceText(wstr, [#9, #32],['', '']);
        While pos(',', wstr) > 0 do begin
          MatrixColorRegionArray[iacol, iarow]:=StrToInt(Copy(wstr,pos(',', wstr)-1,1));
          Delete(wstr, pos(',', wstr)-1, 2);
          iacol:=iacol+1;
        end;
        if pos('dc.w', AnsiLowerCase(wstr)) > 0 then begin
          MatrixColorRegionArray[iacol, iarow]:=StrToInt(Copy(wstr,pos('dc.w', AnsiLowerCase(wstr))+4,1));
          delete(wstr,pos('dc.w', AnsiLowerCase(wstr)),5);
        end;
        iacol:=0;
        iarow:=iarow+1;
      end;
      if edScriptb2 then begin
        if pos(';', wstr) > 0 then
          delete(wstr,pos(';', AnsiLowerCase(wstr)),LENGTH(wstr));
        wstr:=ToReplaceText(wstr, [#9, #32],['', '']);
        MatrixIDRegionSelectArray[iarow]:=StrToInt(Copy(wstr, pos(',', wstr)+1, 1));
        iarow:=iarow+1;
      end;
      If Pos(';'+AnsiLowerCase(SStartMatrix)+AnsiLowerCase(SPtoU)+':'+AnsiLowerCase(iddom), AnsiLowerCase(wStr)) > 0 then begin
        edScriptb:=True;
        iacol:=0;iarow:=0;
      end;
      if Pos(';'+AnsiLowerCase(SStartMatrix)+AnsiLowerCase(SRCD)+':'+AnsiLowerCase(iddom), AnsiLowerCase(wStr)) > 0 then begin
        edScriptb1:=True;
        iacol:=0;iarow:=0;
      end;
      if Pos(';'+AnsiLowerCase(SStartMatrix)+AnsiLowerCase(SRMD)+':'+AnsiLowerCase(iddom), AnsiLowerCase(wStr)) > 0 then begin
        edScriptb2:=True;
        iacol:=0;iarow:=0;
      end;
    end;
    for i1 := 0 to 5 do
      i[i1]:=0;
    i[0]:=Pos(';'+AnsiLowerCase(SStartMatrix)+AnsiLowerCase(SPtoU)+':'+AnsiLowerCase(iddom), AnsiLowerCase(ws))+Length(';'+AnsiLowerCase(SStartMatrix)+AnsiLowerCase(SPtoU)+':'+AnsiLowerCase(iddom)+#13#10);
    i[1]:=Pos(';'+AnsiLowerCase(SEndMatrix)+AnsiLowerCase(SPtoU)+':'+AnsiLowerCase(iddom), AnsiLowerCase(ws));

    i[2]:=Pos(';'+AnsiLowerCase(SStartMatrix)+AnsiLowerCase(SRCD)+':'+AnsiLowerCase(iddom), AnsiLowerCase(ws))+Length(';'+AnsiLowerCase(SStartMatrix)+AnsiLowerCase(SRCD)+':'+AnsiLowerCase(iddom)+#13#10);
    i[3]:=Pos(';'+AnsiLowerCase(SEndMatrix)+AnsiLowerCase(SRCD)+':'+AnsiLowerCase(iddom), AnsiLowerCase(ws));

    i[4]:=Pos(';'+AnsiLowerCase(SStartMatrix)+AnsiLowerCase(SRMD)+':'+AnsiLowerCase(iddom), AnsiLowerCase(ws))+Length(';'+AnsiLowerCase(SStartMatrix)+AnsiLowerCase(SRMD)+':'+AnsiLowerCase(iddom)+#13#10);
    i[5]:=Pos(';'+AnsiLowerCase(SEndMatrix)+AnsiLowerCase(SRMD)+':'+AnsiLowerCase(iddom), AnsiLowerCase(ws));

    OtherText[0]:=Copy(ws, 1, i[0]-1);
    OtherText[1]:=Copy(ws, i[1], i[2]-i[1]);
    OtherText[2]:=Copy(ws, i[3], i[4]-i[3]);
    OtherText[3]:=Copy(ws, i[5], Length(ws));
  finally
    CloseFile(FileAsm);
  end;
end;

Alexandr17 · 11.03.2015, 15:34

Цитата:

Сообщение от min@y™

разруха не в клозетах, а в головах! (© Булгаков)
дай файл.

и не подумаю! это будет чистое вредительство!

плюнь в лицо тому, кто тебе это сказал!

http://www.programmersforum.ru/attac...5&d=1426074518
Да в принципе уе согласился что через TStringList читать будет лучше. К томуже не бинарные файлы. Но вот код выше мне под delphi 2009нужно переделать

min@y™ · 11.03.2015, 15:36

Цитата:

Да не этот файл что я скинул.
Вот этот:
Вложения
Тип файла: txt region_colors.asm.txt

прекрасно открывается и обрабатывается. чот ты гонишь, дrужок!

Цитата:

#13#10#13#10 есть, и не мало, а #13#10#13 без #10 нет

подтвеждаю, проверил, чтобы убедиться.

11.03.2015, 15:19	#26
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	#13#10#13#10 есть, и не мало, а #13#10#13 без #10 нет Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Delphi 2009 проблемы!!!	sanekch1	Помощь студентам	3	07.08.2010 15:53
проблемы с Char и String в 2009 Delphi	Kurai	Помощь студентам	4	12.04.2010 14:56
Проблемы с чтением данных в Delphi	cyberandom	Помощь студентам	11	05.02.2010 19:52
Проблемы с выполнением ХП в Delphi 2009	MargoNik	БД в Delphi	10	01.06.2009 08:53
Проблемы с framework-ом ну и с Delphi 2009	Altera	Свободное общение	1	18.05.2009 22:07