Столкнулся с такой проблемой :
Из регистра читается инфа. Инфа представляет собой некую запись. Все поля нормально
считываю и обрабатываю, но с полем FileTime проблема. Т.е. другими словами у меня имеется
массив байтов, и начиная с некоторого числа i получается
buffer[i]...buffer[i+7] <---- записан тип TFileTime
Я в цикле загоняю эти данные в некоторую строку. Получаю что-то вида : '200137120238157197'.
Как мне теперь обратно из строки получить нормальные данные TFileTime?
Или я может вообще не правильно делаю???

Ошибка в 17 строке.

Код в студию!

Беру отсюда данные :

Код

type     TSlowInfoCache = record       Size      : DWord;       HasName      : LongBool;       InstallSize : int64;       LastUsed  : TFileTime;       Frequency : Integer;       Name      : array [0..261] of widechar;     end; var     Cache: TSlowInfoCache;     buffer : array [0..551] of byte;                .............. begin     RegIniFile:=TRegIniFile.Create;     RegIniFile.RootKey:=HKEY_LOCAL_MACHINE;     RegIniFile.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\App                                                                  Management\ARPCache\Xvid',true);     RegIniFile.ReadBinaryData('SlowInfoCache',buffer,552);                ..............     for i:=0 to 551 do           case i of     8..15 :   if buffer[i]<>0 then                       inf3:=inf3+IntToStr(buffer[i]);                                        16..23 : if buffer[i]<>0 then                                            inf4:=inf4+IntToStr(buffer[i]);                   ..............           end;        Cache.InstallSize:=StrToInt(inf3);      Cache.LastUsed:= ??? ;     //как обработать полученую информацию ???                ..............      Memo1.Lines.Add(IntToStr(int64(cache.InstallSize)));                ..............                                    end;

Это сообщение отредактировал(а) MFSham - 24.10.2005, 23:20

Узнать бы еще, как ты сохраняешь. Но пока попробуй так:

Код

Cache.LastUsed.dwLowDateTime:= StrToInt(inf4);

Цитата(Poseidon @ 23.10.2005, 22:21)

Узнать бы еще, как ты сохраняешь.

Никуда я сохранять эти данные не собираюсь. Просто надо вывестии данные в Memo.

Цитата(Poseidon @ 23.10.2005, 22:21)

Но пока попробуй так: Код    Cache.LastUsed.dwLowDateTime:= StrToInt(inf4);

Не, так не пойдет. Я тут немного чего откопал по FileTime :
1. FileTime содердит два числа типа Cardinal;
2. Второе из них состоит 8 символов;
3. Следовательно первое состоит не более чем из 10 символов.
На основании этого я просто разбиваю строку inf4 на две подстроки, которые заношу
под типом Cardinal в тип FileTime.
Использую функцию преобразования типа FileTime в строку, которая содержит дату в наглядном виде получаю окончательный ответ. Все это работает, но данные получаются
абсолютно левые, например : 23.11.1623 5:58:36. Я так думаю, что где-то просто
неправильно берутся данные. Только где???

Цитата(MFSham @ 24.10.2005, 23:37)

Никуда я сохранять эти данные не собираюсь

Как в реестр сохраняешь?

Цитата(Poseidon @ 25.10.2005, 00:19)

Как в реестр сохраняешь?

С реестра я просто читаю данные.

Пусть имеется этот бинарный файл, который содержит записьSlowInfoCache.
Каким образом мне считать данные из этого файла начиная, допустим, с 8 по 15 байты? Возмоно ли такое?
P.S. то что я предлагал сделать выше полная фигня

С какого места в

Цитата(MFSham @ 23.10.2005, 22:04)

buffer : array [0..551] of byte;

начинается переменная

Цитата(MFSham @ 23.10.2005, 22:04)

TFileTime

?

Цитата(Romikgy @ 26.10.2005, 09:31)

С какого места начинается переменная

С 15 байта.
Спасибо за помощь. Я решил свою проблему.

Ну как знаешь.