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

Вниз

Чтение текстового файла, занятого другим приложением !   Найти похожие ветки 

 
312kbps   (2007-10-02 14:46) [0]

Подскажите плиззз, как прочитать текстовый файл занятого другим приложением ???
файл заблокирован не монопольно, блокнотом я его могу прочитать

а вот
AssignFile(f, "c:\ek.txt");
Reset(f); - ошибка, пишет что файл занят (


 
Palladin ©   (2007-10-02 14:49) [1]

попробуй
FileMode:=0;
AssignFile(f, "c:\ek.txt");
Reset(f);


 
Reset(f);   (2007-10-02 14:52) [2]

А как опИсана переменная f?
var f: Textfile; //???


 
Palladin ©   (2007-10-02 14:54) [3]


> Reset(f);   (02.10.07 14:52) [2]

а типа это на что то повлияет?


 
Ega23 ©   (2007-10-02 15:03) [4]

Посмотри на это, может что-то и вытащишь полезного
http://dfc.com.ru/?sid=2&id=7&itemid=2

Ссылку кто-то из мастеров приводил; кто - хоть убей не помню...


 
Reset(f);   (2007-10-02 15:06) [5]

Естественно, на мой взгляд. Возможно у автора f определена как :text.
Тогда необходимо просто
Assign(f, ...);
а не AssignFile(f, ...);


 
312kbps   (2007-10-02 15:08) [6]

F: Textfile;


 
312kbps   (2007-10-02 15:09) [7]

AssignFile(f,"c:\ek.txt");
  Reset(f);
  Readln(f, str);
  ShowMessage("1. line of textfile:" + str);
  Closefile(f);

вот в таком виде не работает (


 
clickmaker ©   (2007-10-02 15:10) [8]


> Assign(f, ...);
> а не AssignFile(f, ...);

монопенисуально
Assign - для обратной совместимости с древними дельфями


 
312kbps   (2007-10-02 15:14) [9]


> Palladin ©   (02.10.07 14:49) [1]
> попробуй
> FileMode:=0;
> AssignFile(f, "c:\ek.txt");
> Reset(f);


так тоже не помогает

так как прочитать текст с этого файла ? )


 
Denis_ ©   (2007-10-02 15:18) [10]


> http://dfc.com.ru/?sid=2&id=7&itemid=2

Интерфейс реально сделан.Я даже не понял сначала, чего это открылось.


 
Palladin ©   (2007-10-02 15:18) [11]


> Reset(f);   (02.10.07 15:06) [5]
> Естественно, на мой взгляд. Возможно у автора f определена
> как :text.Тогда необходимо простоAssign(f, ...);а не AssignFile(f,
>  ...);

Хочешь сказать что AssignFile при f:Text не будет работать? ню ню...


 
Германн ©   (2007-10-02 15:19) [12]


> Palladin ©   (02.10.07 14:49) [1]
>
> попробуй
> FileMode:=0;
>

Из справки:
The FileMode variable determines the access mode to use when typed and untyped files (not text files) are opened using the Reset procedure.


 
clickmaker ©   (2007-10-02 15:21) [13]

StringList.LoadFromFile()?


 
Ega23 ©   (2007-10-02 15:22) [14]


> Интерфейс реально сделан.Я даже не понял сначала, чего это
> открылось.


Ага, мне тоже очень понравилось. Весьма стильно


 
Palladin ©   (2007-10-02 15:22) [15]


> 312kbps   (02.10.07 15:14) [9]

ну а так из файла читается?

var
f:TFileStream
s:TStringList;

f:=TFileStream.Create(<FileName>,fmOpenRead or fmShareDanyNone);
s.LoadFromStream(f);


 
Palladin ©   (2007-10-02 15:24) [16]


> Германн ©   (02.10.07 15:19) [12]

верно... тогда [15] ...


 
312kbps   (2007-10-02 15:28) [17]

Undeclared identifier: "fmShareDanyNone"  - !?


 
312kbps   (2007-10-02 15:29) [18]

Процесс не может получить доступ к файлу (

[15] - все равно не работает


 
Вася Правильный   (2007-10-02 15:29) [19]


> Ссылку кто-то из мастеров приводил; кто - хоть убей не помню.

см сюда http://dfc.com.ru/?sid=6


 
Palladin ©   (2007-10-02 15:30) [20]


> 312kbps   (02.10.07 15:28) [17]

ну так не нужно тупо копировать... подумаешь в буковке ошибся :)
fmShareDenyNone


 
312kbps   (2007-10-02 15:33) [21]


> Palladin ©   (02.10.07 15:30) [20]


нашел и исправил, все равно не работает (


 
Palladin ©   (2007-10-02 15:37) [22]

где то подстава...
1 ты не тот файл открываешь в блокноте
2 ты не тот файл открываешь в программе
3 ты обманул гдето в другом месте


 
312kbps   (2007-10-02 15:38) [23]


> где то подстава...
> 1 ты не тот файл открываешь в блокноте
> 2 ты не тот файл открываешь в программе
> 3 ты обманул гдето в другом месте


да нет, ни разу не обманул
проверял даже так:
sub sjkdafhaksjdfhk()
   Open "file.txt" For Binary As #1
   Close #1
end sub

тут смог (

но мне надо на делфи считать инфу с этого файла !


 
312kbps   (2007-10-02 15:39) [24]

только соответственно подставлял свой файл


 
Palladin ©   (2007-10-02 15:42) [25]


> 312kbps   (02.10.07 15:39) [24]

тогда последняя попытка, убери из [15] fmShareDenyNone


 
312kbps   (2007-10-02 15:51) [26]


> Palladin ©   (02.10.07 15:42) [25]

убирал, тоже не помогает


 
homm ©   (2007-10-02 15:57) [27]

Что, встолько постов и все бестолку???
CreateFile. Параметры в справке. Примеры в тырнете.


 
Anatoly Podgoretsky ©   (2007-10-02 16:11) [28]

> 312kbps  (02.10.2007 15:38:23)  [23]

Ну конечно обманул, здесь же открывается как не текстовый, а двоичный файл.


 
312kbps   (2007-10-02 16:26) [29]

покажите пожалуйста пример )))
а то я неделю буду ковырятся , пока пойму (если пойму) как надо сделать !



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

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

Наверх





Память: 0.51 MB
Время: 0.04 c
2-1191312738
webpauk
2007-10-02 12:12
2007.10.28
PopupMenu.Items.Width


1-1187332690
andreoman
2007-08-17 10:38
2007.10.28
При отображении MessageDlg сворачивается окно (TForm)


11-1174595095
ElectriC
2007-03-22 23:24
2007.10.28
размер KOL


9-1154865892
Сан-саныч
2006-08-06 16:04
2007.10.28
Md2 модели


2-1191315966
webpauk
2007-10-02 13:06
2007.10.28
Положение компонента





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