FileRead(iFileHandle, abBytes, iFileLength);?

← →
Dysan © (2004-04-27 16:15) [0]

Не подскажите почему выполняеться
abBytes:array of variant;

FileRead(iFileHandle, abBytes, iFileLength);
и abBytes - пустой! :(

← →
evvcom © (2004-04-27 16:16) [1]

А SetLength делаешь?

← →
Digitman © (2004-04-27 16:18) [2]

> почему

потому что abBytes - указатель

← →
evvcom © (2004-04-27 16:21) [3]

и к тому же array of Variant

← →
PVOzerski © (2004-04-27 16:21) [4]

указывай target"ом abBytes[0]. И SetLength - это тоже забывать нельзя.

← →
Jack128 © (2004-04-27 16:25) [5]

Хе. Так просто варианты из файла не прочитаешь ;-) ..Где то(по моему на http://delphibase.endimus.com/) видел процедуры чтения/записи вариантов из файла..

← →
Тимохов © (2004-04-27 16:31) [6]

> Jack128 © (27.04.04 16:25) [5]

прочитаешь, но не все.
числа - пожалуйста,
строки - фиг.

← →
Dysan © (2004-04-27 16:32) [7]

вобщем я сделат так:

iFileHandle := FileOpen(form9.OD.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
setlength(abBytes,iFileLength);
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
FileClose(iFileHandle);
for i := 0 to iBytesRead-1 do
begin
abBytes[i]:=Byte(Buffer[i]);
end;
FreeMem(Buffer);

> прочитаешь, но не все.
> числа - пожалуйста,
> строки - фиг.
вот и я о том.. AV на раз схлопочешь.. А если там вариантные массивы? :-)))

> А если там вариантные массивы? :-)))

это фигня, а если интерфейсы?

А если в файле и вовсе лабуда какая? Проверять оставляем это Пушкину?

FileRead(iFileHandle, abBytes, iFileLength);? Найти похожие ветки