Скачать: CL | DM;

CD-ROM   Найти похожие ветки 

← →
SergeyM   (2004-05-07 20:07) [0]

Народ приветик!  
Чето я в тупике, подскажите как, т.е. с помощью каких функций API или может быть других, уже незнаю, мне добраться до CD-ROMa и прочитать содержимое диска. ShellTreeView не подходит, нужно программным путем. Желательно примерчик или ссылку на ресурс с расшифровкой.

---

← →
Jack128 ©   (2004-05-07 20:09) [1]

createfile/readfile/writefile

---

← →
SergeyM   (2004-05-07 20:37) [2]

Хорошо щас попробую.
Но если возможно то хотябы коротенький пример дайте.

---

← →
Jack128 ©   (2004-05-07 20:53) [3]

лень :-)  Те обязательно на апи? Стандартные паскалевские процедуры не катят?

var
 f: file;
 s: string;
begin
 AssignFile(f, "d:\test.dat");
 reset(f, 1);
 SetLength(s, FileSize(f));
 BlockRead(f, PChar(s)^, Length(s));
 CloseFile(f);
end;

---

← →
SergeyM   (2004-05-07 21:13) [4]

Да мне в принципе всеравно, т.к. я енто еще ни как делать не умею. Т.е. ни разу не пробовал добраться до CD-ROMa

---

← →
Jack128 ©   (2004-05-07 21:30) [5]

> ни разу не пробовал добраться до CD-ROMa

а ты что, считаешь что файлы на сидюке чем то отличаются от файлов на винте???

---

← →
SergeyM   (2004-05-07 21:43) [6]

Да нет,  я как раз щас пробую так:
сначало GetLocgicalDrives
затем в цикле проверяю СДюшник это или нет
потом наверное через SetCurrentDirectory встану на текущий каталог и в цикле считаю все содержимое диска.
Но на диске ведь дофига всякого мусора, как мне отфильтровать нужные расширения например exe, bmp, jpg,mp3 и др.

Так как ты думаешь так прокатит?

---

← →
Jack128 ©   (2004-05-07 22:08) [7]

сделаешь вот это:

> Да нет,  я как раз щас пробую так:
> сначало GetLocgicalDrives
> затем в цикле проверяю СДюшник это или нет

а теперь уже не важно сидюк это или винт, схема одинаковая

> Так как ты думаешь так прокатит?
пока нет реального кода - не знаю ;-)

---

← →
SergeyM   (2004-05-07 22:23) [8]

Слушай чето я не вкурил а как я узнаю конец диска?

---

← →
Jack128 ©   (2004-05-07 22:27) [9]

в faq ищи пример с FindFirst/FindNext

---

← →
SergeyM   (2004-05-07 22:44) [10]

Как раз я только что енто пробовал, но обломался. Пошел в FAQ.

---

← →
Alex Konshin ©   (2004-05-07 23:45) [11]

FindClose не забудь

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.044 c