как все таки правильно прочитать файл
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
как все таки правильно прочитать файл - 2007-03-18 21:06:06.783333
|
|
|
rbzombie
Сообщений: 88
Оценки: 0
Присоединился: 2005-01-07 04:14:13
|
Что за … не могу врубиться,руки кривые,может еще что-то.
пытаюсь прочитать весь файл,не важно какой делаю так:
hGif:=CreateFile(pchar('d:\new.gif'),0,0,nil,generic_read,open_existing,0);
if (hGif=0) then begin showmessage('not found file or system open error');exit;end
else
sz:=GetFileSize(hGif);
for i:=0 to (sz-2) do begin
readFile(hGif,buf,sizeof(buf),rx,nil);
listbox1.items.add(inttohex(buf,8));
end;
прога висит,или жрет много памяти в лучшем случае что-то выдает,но один и тот же результат на всех строчках.Без цикла,как считать? нужен динамический массив,а как же индекс указывать получается опять for.
Пробовал вот так:
var f:file;
begin
assignfile(f,'d:\new.gif');
reset(f);
while(not(eof(f))) do begin
readln(f,s);
listbox1.items.add(inttohex(s,8));
end;
долго считывает но результат верный,да еще как представить данные в машинном виде а то они появляются задом на перед пытался и с конца файла читать,ни как.Направьте на правильный путь не уча
|
|
|
|
|
RE: как все таки правильно прочитать файл - 2007-03-18 21:17:10.760000
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
for i:=0 to (sz-2) do begin
readFile(hGif,buf,sizeof(buf),rx,nil); ну и? sz – это размер файла в байтах, а ты пытаешься прочитать (sz-1)*sizeof(buf) байт.
readln(f,s);
listbox1.items.add(inttohex(s,8)); quote:
они появляются задом на перед
потому что добавляешь в начало списка. и я так и не понял, какой формат файла? бинарные данные? а какого тогда типа переменная s?
|
|
|
|
|
RE: как все таки правильно прочитать файл - 2007-03-18 21:20:18.683333
|
|
|
rbzombie
Сообщений: 88
Оценки: 0
Присоединился: 2005-01-07 04:14:13
|
переменная s word or dword читаю бинарные
|
|
|
|
|
RE: как все таки правильно прочитать файл - 2007-03-18 21:48:50.580000
|
|
|
rbzombie
Сообщений: 88
Оценки: 0
Присоединился: 2005-01-07 04:14:13
|
а так что не поможет for i:=0 to (sz div (sizeof(buf))) do
и как же их добавить в конец списка.
Я еще к тому же компоненты плохо знаю,короче труба,почти что ничего не знаю,читал много писал мало и наоборот
и смех и грех
|
|
|
|
|
|
