| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как поставить условие записи BlockWrite?

буффер ©   (2009-10-03 06:45:00) 

Пытаюсь загрузить файл с http:\\ и при попытке копирования файла, с помощью BlockWrite возникает ошибка записи если целевой файл не найден. Как поставить условие так, чтобы ошибка не возникала?
 ЗЫ. или как проверить наличие файла...


function GetInetFile(const fileURL, FileName: string): boolean;
const
 BufferSize = 1024;
var
 hSession, hURL: HInternet;
 Buffer: array[1..BufferSize] of Byte;
 BufferLen: DWORD;
 f: file;
 sAppName: string;
begin
 Result := False;
 sAppName := ExtractFileName(Application.ExeName);
 hSession := InternetOpen(PChar(sAppName),
 INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 try
   hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
   try
     AssignFile(f, FileName);
     Rewrite(f,1);
     repeat
       InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
       Application.ProcessMessages();
       BlockWrite(f, Buffer, BufferLen);
       Application.ProcessMessages();
     until
     BufferLen = 0;
     CloseFile(f);
     Result := True;
   finally
     InternetCloseHandle(hURL);
   end;
 finally
   InternetCloseHandle(hSession);
 end;
end;


---

intlex   (2009-10-04 23:32:00) [1]

надо проверить значение BufferLen, возможно при чтении произошла ошибка

---

Anatoly Podgoretsky   (2009-10-03 16:56:00) [2]

Такой ошибки быть не может, или файл будет создан или произойдет ошибка раньше, на rewrite

---

DVM   (2009-10-03 15:22:00) [3]

> Leonid Troyanovsky ©   (03.10.09 13:10) [2]


> TFileStream forever ;)

А, ну да, как же я забыл о нем. :)

---

Leonid Troyanovsky   (2009-10-03 13:16:00) [4]

> буффер   (03.10.09 06:45)  

>      Rewrite(f,1);

Да, и 1 смотрится нелепо.

TFileStream forever ;)

--
Regards, LVT.

---

Leonid Troyanovsky   (2009-10-03 13:10:00) [5]

> буффер   (03.10.09 06:45)  

> целевой файл не найден. Как поставить условие так, чтобы
> ошибка не возникала?

RTFM: IOResult function, example.

> DVM ©   (03.10.09 11:25) [1]

> Писать с помощью функций WinAPI и обрабатывать результаты

TFileStream forever.

--
Regards, LVT.

---

DVM   (2009-10-03 11:25:00) [6]

> Как поставить условие так, чтобы ошибка не возникала?

Писать с помощью функций WinAPI и обрабатывать результаты функций.
Или хотя бы с пом оберток что в SysUtils.

AssignFile, Rewrite и т.д. на мой взгляд неудобные.

---

Наверх