Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];

Вниз

Не могу считать файл в буфер!   Найти похожие ветки 

 
Frozzen   (2004-12-10 18:45) [0]

Уже взял текст с хелпа

var
 iFileHandle: Integer;
 iFileLength: Integer;
 iBytesRead: Integer;
 Buffer: PChar;
 i: Integer;
begin
 if OpenDialog1.Execute then
 begin
   try
     iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
     iFileLength := FileSeek(iFileHandle,0,2);
     FileSeek(iFileHandle,0,0);
     Buffer := PChar(AllocMem(iFileLength + 1));
     iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
     FileClose(iFileHandle);

     for i := 0 to iBytesRead-1 do
     begin
       ShowMessage(IntToStr(Integer(Buffer[i])));

       при таком обращении выдает ошибку
и дебагером содержимое буфера не отображает
   
     end;
   finally
     FreeMem(Buffer);
   end;
 end;


 
DiamondShark ©   (2004-12-10 18:52) [1]

Не обманывай, ни с какого "хелпа" такую ерунду взять нельзя.

iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);


 
Frozzen   (2004-12-10 18:57) [2]

Delphi6 help на функцию FileRead example


 
Frozzen   (2004-12-10 18:58) [3]

Delphi6 help на функцию FileRead example


 
Fay ©   (2004-12-10 19:01) [4]

В 5-ке тоже 8)


 
DiamondShark ©   (2004-12-10 19:10) [5]

Ну что ж... От очепяток никто не застрахован.


 
8ung   (2004-12-10 19:14) [6]

Ошибка!
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);


 
Fay ©   (2004-12-10 19:15) [7]

2 8ung   (10.12.04 19:14) [6]
Где?!!!
8)


 
8ung   (2004-12-10 19:17) [8]

iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
Посмотри, что в примере написано, а что у меня!



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

Форум: "Основная";
Текущий архив: 2004.12.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.036 c
4-1099316462
maxz
2004-11-01 16:41
2004.12.26
Проверка CRC32


1-1102673024
B-boy-Dimo-N
2004-12-10 13:03
2004.12.26
Как прервать выполнение рекурсии одним нажатием клавиши ?


1-1102717713
Bobby Digital
2004-12-11 01:28
2004.12.26
Memo


8-1096419202
ZDimitriy
2004-09-29 04:53
2004.12.26
Подскажите как преобразовать Hbitmap в Tbitmap


3-1101712572
Rule
2004-11-29 10:16
2004.12.26
Чегото не могу подключится через FB embeded к базе





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский