Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

TFileStream   Найти похожие ветки 

 
kosmach   (2002-08-12 07:57) [0]

Такая проблема. Мне нужно один и тот же файл открыть для чтения одновременно с помощью TFileStream.Create. Однако сделать это таким путем
FS1, FS2: TFileStream;
...
FS1:=TFileStream.Create("file", fmOpenRead);
FS2:=TFileStream.Create("file", fmOpenRead);

не получается. Можно ли вообще что либо подобное сделать, или хотя бы отловить ошибку, при повторной попытке открыть файл, потому как блок try... except здесь не работает.
Если где-то непонятно выразился, могу уточнить. Помогите пожалуйста.


 
Ученик   (2002-08-12 08:29) [1]

fmOpenRead or fmShareDenyNone


 
kosmach   (2002-08-12 08:45) [2]

Спасибо, большое. Все работает, но можно еще маленький вопросик на будущее. Как вообще обрабатывать ошибки при работе с потоками?
Не обижусь на какую-нибудь ссылочку или примерчик, вообщем что-нибудь;)))


 
Viktor Kushnir   (2002-08-13 08:33) [3]

Я оббычто недаю примерно так.
FS1:=TFileStream.Create("file", fmOpenRead);
Try
// делай что нибудь
Finally
FS1.free
End;



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

Форум: "Система";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.009 c
3-68662
Barmutik
2002-09-30 12:20
2002.10.21
Midas ... выгребание большого курсора


4-69080
Aquaform
2002-09-08 16:29
2002.10.21
Hе могу найти ошибку


14-68977
Kotka
2002-09-28 16:41
2002.10.21
Пиратское Delphi


14-68973
ev
2002-09-27 21:23
2002.10.21
простенькая карта


1-68793
Gregory
2002-10-09 20:40
2002.10.21
Сортировка в TListView





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский