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

Вниз

Файлы файлы файлы!!   Найти похожие ветки 

 
John Doe ©   (2004-03-13 20:39) [0]

Здрасте!! Мне необходимо прочитать файл и записать его побайтно в массив.Я использую Example(пример) из делфовского help"а.
Всегда выдается ошибка, а чтение происходит не всегда(или
не со всеми файлами), почему??
Как считать данные из "Buffer" (если они туда вообще заносятся)??
И почему если аттрибут "fmOpenRead" в функции "FileOpen" заменить на "faReadOnly", то файл вообще не читается!!

Помогите кто может!!

procedure TForm1.Button1Click(Sender: TObject);

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
       StringGrid1.RowCount := StringGrid1.RowCount + 1;
       StringGrid1.Cells[1,i+1] := Buffer[i];
       StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
     end;
   finally
     FreeMem(Buffer);
   end;
 end;
end;

Заранее благодарен!!


 
Defunct ©   (2004-03-13 20:48) [1]

procedure TForm1.Button1Click(Sender: TObject);
Var FileStream: TFileStream;
begin
 Try
   FileStream := TFileStream.Create("c:\100.jpg",fmOpenRead);
   FileStream.Position := 0;
   // В FileStream прочитанный файл, осталось только перекопировать в массив
 Finally
   FileStream.Free;
 End;
end;


 
Dimaxx ©   (2004-03-14 01:57) [2]

2 Defunct: После создания потока нет необходимости ставить указатель в ноль - метод create автоматически это делает.


 
default ©   (2004-03-14 02:10) [3]

Defunct ©   (13.03.04 20:48) [1]
или в TMemoryStream загружать(сразу и массив готов!)


 
Fay ©   (2004-03-14 02:52) [4]

Попробуй так

procedure  Jopa(fn : String);
var
 Buf : PChar;
 h : THandle;
 sz, n : Cardinal;
begin
 h := CreateFile(PChar(fn), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
 if h = INVALID_HANDLE_VALUE then
   begin
     case GetLastError of
       .... blablalbla..
     end;
     Exit;
   end;
 sz := GetFileSize(h, nil);
 GetMem(Buf, sz);
 ReadFile(h, Buf^, sz, n, nil);
 for sz := 0 to n do
   begin
     StringGrid1.RowCount := StringGrid1.RowCount + 1;
     StringGrid1.Cells[1,i+1] := Buf[i];
     StringGrid1.Cells[2,i+1] := Char(Byte(Buf[i])+$30);
   end;
 FreeMem(Fuf);
 CloseHandle(h);
end;


 
John Doe   (2004-03-14 23:57) [5]

Всем спасибо за помощь!! Работает!! Особенно JOPA!!


 
Fay ©   (2004-03-15 00:19) [6]

Ваще-то Char(Byte(Buf[i])+$30) не совсем то, что хотел автор вопроса. 8) Я просто слишком долго не спал 8))
И  StringGrid1.RowCount надо бы вынести из цикла, типа:
StringGrid1.RowCount := StringGrid1.RowCount + n;
for ....


 
John Doe   (2004-03-15 21:15) [7]

2Fay
StringGrid мне не нужен!! Все что мне было нужно я подделал под себя и все нормально работает!! Благодарствую!! :)



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

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

Наверх





Память: 0.46 MB
Время: 0.037 c
1-1079422455
fika
2004-03-16 10:34
2004.04.04
Unicode


14-1078336966
mur
2004-03-03 21:02
2004.04.04
что такое префиксная форма записи?


1-1079626166
Kor@l
2004-03-18 19:09
2004.04.04
mouse and RButton


14-1078979847
Цветочек
2004-03-11 07:37
2004.04.04
Редактировать ключевое поле


7-1074346348
Magician
2004-01-17 16:32
2004.04.04
Как отследить изменение реестра на подобии программы Regmon





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский