Главная страница
    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.46 MB
Время: 0.043 c
14-1085668642
Соловьев
2004-05-27 18:37
2004.06.13
http://www.es.oersted.dtu.dk/~bt/schedule/schedule.html


6-1082617656
TOleg
2004-04-22 11:07
2004.06.13
Что это за ошибка - "500 Invalid Port Command"


14-1085735054
basic
2004-05-28 13:04
2004.06.13
а почему дайджет не обновляется


4-1083973469
T2K
2004-05-08 03:44
2004.06.13
ShellExecute ?


6-1082888713
Khvalera
2004-04-25 14:25
2004.06.13
NMStrmServ и NMStrm





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский