Чтение файла

[Foxpronet]

Возникла след. неприятность.. Есть исходный файл *.obml (телефон. формат сохран. страниц на браузерах Opera mobile) напичканный nul-символами и прочим. Очень хотелось бы выдернуть кое-какие данные из него программно. Они там в некоторых местах вполне читабельны. Решить стандартным способом открытия его через tstringlist не получилось, как впрочем и через все другие извест. мне способы(паскалевский метод,поток,память)..(: Они туда просто не попадают! В лучшем случае вижу лишь пустые разделители(пробелы). Сам файл в кодировке utf8.. Опять же пробовал его для начала преобразовать в ansi станд. функцией utf8toansi(), но на выходе все таже пустая строка. Буду признателен за помощь. Вот так вот выглядит снимок подопытного файла Буфер.jpg

[doober]

Возможно это поможет

[Foxpronet]

Спасибо, конечно mr. doober, на самом деле очень ценная инфа для, меня! Тем более, что сижу на dual up соединении, а режим Turbo windows платформы этого замеч. браузера постоянно сносит... Потому обязательно перебазируюсь на идею запуска мобильной версии на платформе XP . Только мне бы хотелось в моей почти уже законченной пр-ме, что бы рядовые пользователи сохраняли эту страницу именно из своих мобильных телефонов, в этом, как бы и состоит основная логика программы, потому как она написанна как вьювер сыгранных партий в шашки, для клиентов с ВИП статусом, небезизвестного мобильного игрового сервера MobiLeap. Может быть есть какой нить другой способ в рамках Delphi ? Еще раз спасибо за ваш ответ.

[Stilet]

через все другие извест. мне способы(паскалевский метод,поток,память)..(: Они туда просто не попадают!

Ерунда! попадают еще и как. Ты как проверял?

[Foxpronet]

Согласен! Поторопился, пока писал.. Имел ввиду tstringlist (-> на выходе пустая строка)
Теперь вижу основную задачу найти какой то аналог фукции utf8toansi(), так как придется для начала сконвертировать в ansi, иначе поиск локализации этих самых читабельных данных, будет затруднен, как мне видится..(текст на рус.языке). А в станд. функции utf8toansi(), при встрече некорректного символа, насколько я могу судить, происходит прерывание, и опять же - на выходе пустая строка в отличие от нормальных текст. файлов, где все работает, как задумано.
Подскажи, пожалуйста какой метод доступа к файлу оптимальней использовать в данном случае и есть ли в природе функция для по-символьного сравнения исходного текста на предмет принадлежности к кодировке UTF8, что бы можно было отфильтровать все лишнее.. Прошу прощение за некоторую путаницу, довольно долго не юзал Delphi.

Пробовал, в частности примерно так:

     if not od.execute then exit; {тот самый файл}
     AssignFile(F, od.FileName); { File selected in dialog }
     FileMode:=fmOpenReadWrite;
     Reset(F);
     While not eof(f) do
     begin
     ReadLn(f, s);
     s:= utf8toansi(s);
     rs:= rs+#13+s;
     end;
     CloseFile(F);

Нулевой результат!
Что то более менее подходящее получилось при такой вот обработке, видимо благодаря этой строчке

 if (b1>=1)and(b1<=255) then..

(полный код ниже). Но опять же никакого толка от utf8toansi(s); Привычная пустая строка (:

     if not od.execute then exit; {тот самый файл}
     fs1 := tfilestream.create(od.filename, fmopenread or fmsharedenywrite);
     while fs1.position <> fs1.size do begin
     fs1.read(b1, 1);
     if (b1>=1)and(b1<=255) then
     s:= s+chr(b1)
     end;

Может я где-то что то напутал.. Если, возможно дай пожалуйста маленький примерчик, как это должно (или может) выглядеть. Спасибо.

[Foxpronet]

Задача частично решена 2 способом, без преобразования текста в ansi