Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Файловая система
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.05.2015, 22:29
zelstep[zel] zelstep[zel] вне форума
Прохожий
 
Регистрация: 07.02.2010
Сообщения: 4
Репутация: 10
Радость Запись дисков из под Delphi 7 :)

Собственно нарыл в интернете исходник.. чуток подправил, но не могу сделать так чтобы нужное кол-во копий можно было записывать. Максимум две копии записывает и все. Может кто-то сталкивался ..
Те кто в лодке, подскажите как правильно записывать несколько копий

Исходник прикрепил.
Вложения
Тип файла: zip BurnDVD.zip (380.1 Кбайт, 12 просмотров)

Последний раз редактировалось zelstep[zel], 15.05.2015 в 13:16.
Ответить с цитированием
  #2  
Старый 15.05.2015, 08:25
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

DiscStream возмодно надо перемотать в начало.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #3  
Старый 15.05.2015, 15:04
zelstep[zel] zelstep[zel] вне форума
Прохожий
 
Регистрация: 07.02.2010
Сообщения: 4
Репутация: 10
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
DiscStream возмодно надо перемотать в начало.
Спасибо за помощь.
А как это правильно сделать ? я с IMAPI2 никогда ничего не делал
да и в интернете толком ничего нет по данной теме.
Ответить с цитированием
  #4  
Старый 15.05.2015, 17:26
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Предположу, что как и у любого наследника стрима есть свойство position. видимо его и надо выставлять в 0 перед каждой новой записью диска.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 15.05.2015, 19:14
zelstep[zel] zelstep[zel] вне форума
Прохожий
 
Регистрация: 07.02.2010
Сообщения: 4
Репутация: 10
По умолчанию

Спасибо всем за наводки Так и есть, надо было на начало указатель перевести. Тут эта функция называется : RemoteSeek

почитал MSDN https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

в итоге добавил три переменных

Код:
  Move: IMAPI2_TLB._LARGE_INTEGER;
  Origin: DWORD;
  NewPosition: IMAPI2_TLB._ULARGE_INTEGER;

и строчку с обнулением

Код:
DiscStream.RemoteSeek(Move,Origin,NewPosition) ;

Работает !!! Всем спасибо !

Теперь хочу разобраться как можно один поток сразу на несколько физических DVD дисков одновременно записывать

Последний раз редактировалось zelstep[zel], 15.05.2015 в 19:18.
Ответить с цитированием
  #6  
Старый 15.05.2015, 19:34
Аватар для Admin
Admin Admin вне форума
Администратор
 
Регистрация: 03.10.2005
Адрес: Россия, Москва
Сообщения: 1,534
Версия Delphi: Delphi 7
Репутация: выкл
По умолчанию

Возможно пригодится

http://www.delphisources.ru/pages/so.../cd_tools.html
http://www.delphisources.ru/pages/so...sh_imager.html
Ответить с цитированием
Этот пользователь сказал Спасибо Admin за это полезное сообщение:
zelstep[zel] (15.05.2015)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:26.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter