xpin2013 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: procedure TDataModule1.WBHFS1CreateHandle(const Name: string;   out Handle: Cardinal); var   m: TMemoryStream; begin   if AnsiSameText(Name, 'Home.htm') then   begin     m := TMemoryStream.Create;     m.LoadFromFile(PathWebFiles + 'Home.htm');     Handle := WBHFS1.AddFile(Name, m);   end else   if AnsiSameText(Copy(Name, 1, 5), 'Image') then   begin     m := TMemoryStream.Create;     ImageStream.Position := 0;     m.CopyFrom(ImageStream, ImageStream.Size);     Handle := WBHFS1.AddFile(Name, m);   end; end;   Всего записей: 291 | Зарегистр. 16-01-2014 | Отправлено: 09:07 09-03-2014

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Где хранить файлы

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование