Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: 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 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.032 c
1-1085874268
Вова
2004-05-30 03:44
2004.06.13
Работа с ресурсами


14-1085838902
Guddini
2004-05-29 17:55
2004.06.13
Подскажите, как найти все файлы в папке с заданной маской?


3-1084861570
Tananda
2004-05-18 10:26
2004.06.13
Нужно выводить ограниченный список в DBLookupCombobox


1-1085726881
errorr
2004-05-28 10:48
2004.06.13
Галочки в stringgrid


3-1084629746
ss300
2004-05-15 18:02
2004.06.13
Строковые функции хранимых процедур Interbase