| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не читает данные из файла

Страницы:   < 1 2 >

john-s ©   (2010-06-15 18:25:00) 

Здравствуйте!
Проблема считыванием данных с файла GOOD.DBF именно проблема в файле. Если открыть блокнотом и изменить его дописав один символ все читается. Файл создает другая программа так что повлиять на него нет возможности. В чем проблема и как прочитать? Заранее спасибо!

Вот сам файл http://www.rapidshare.ru/1528375

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
f:TFileStream;
buf: array[0..100000] of char;
begin
f:= TFileStream.Create('D:\Progect Delphi\GOODS.DBF', fmOpenReadWrite);
label2.Caption:=inttostr(f.Seek(0,soFromEnd));
f.Seek(0, SoFromBeginning) ;
label1.Caption:=inttostr(f.Seek(0,soFromCurrent));
f.Read(buf, 100000);
Memo1.Lines.Add(buf);
f.Free;
end;


---

john-s   (2010-06-15 19:00:00) [21]

я тока еще осваиваю делфи, с таким чудом столкнулся впервые куда копать натолкните в нужную сторону.

---

Правильный$Вася   (2010-06-15 18:48:00) [22]

> TFileStream.Create('D:\Progect Delphi\GOODS.DBF', fmOpenReadWrite);

это ты таким способом дбф читаешь?
ну-ну...
зачем так?

---

KilkennyCat   (2010-06-15 18:40:00) [23]

вычисляем шапку, поля, и читаем нативно, смещаясь куда надо, если так охота...
а вышеприведенный код полная глупость.

---

turbouser   (2010-06-15 18:29:00) [24]

Ээмм.. Так этож DBF. У него своя структура.. Зачем его блокнотом насиловать?

---

Страницы:   < 1 2 >

Наверх