Скачать: CL | DM;

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);

---

← →
Jack128 ©   (2004-04-27 16:34) [8]

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

---

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

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

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

---

← →
evvcom ©   (2004-04-27 17:12) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c