Форум: "WinAPI";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
ВнизРабота с файлами Найти похожие ветки
← →
SergeyI (2003-06-20 11:26) [0]Уважаемые ALL, помогите решить проблему не могу прочитать файл
вот код
var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer ;
begin
try
iFileHandle := FileOpen(FiName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
( iFileHandle)Уважаемые ALL, помогите решить проблему не могу прочитать файл
вот код
var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer ;
begin
try
iFileHandle := FileOpen(FiName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);
после выполнения Buffer= "" iBytesRead = 0
← →
Palladin (2003-06-20 11:48) [1]iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
iBytesRead=0 тебе повезло и программа не сглючила ибо ничего не прочиталось...
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c