![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() ![]() |
![]() |
petro_fm |
![]()
Сообщение
#1
|
Гость ![]() |
нужно открыть уже открытый файл,для чтения, пишу вот так :
AssignFile(f,fn.Text); FileMode:=fmShareDenyNone ; {$I-} reset(f); {$I-} err:=IOREsult; if err<>0 then begin ShowMessage('Error open file # '+IntToStr(err)); exit; End; возвращает ошибку №32 FileMode пробовал разные, все равно не открывает , но команды type, copy както этот файл открывают ???? а как ???? |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
У тебя файл (который пытаешься открыть) случаем не текстовый? Это первое... А второе - чтобы ТЫ мог открыть файл, то та программа, которая открыла его ДО тебя, должна была это сделать через fmShareDenyNone, что не запрещало бы тебе тоже открывать файл...
|
Гость |
![]()
Сообщение
#3
|
Гость ![]() |
да,файл текстовый (файл системного журнала 1С)
та программа, которая до меня открыла, не знаю КАК это зделала, НО ТоталКомандер выевер эго открываэт, и type открывает, и копи копирует, а я его открыть не могу, АБЫДНА , ДА ![]() |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Если файл текстовый, то FileMode менять бесполезно:
Цитата(Delphi Help) FileMode variable Description The FileMode variable determines the access mode to use when typed and untyped files (not text files) are opened using the Reset procedure. Попробуй так: var f:TFileStream; |
Гость |
![]()
Сообщение
#5
|
Гость ![]() |
memo1.Lines.LoadFromStream(f1);
Access violation at adress XXXXX in module XXXXX read of adress XXXXX . вот так вот пишет гадина ![]() может еще какие идеи ???? |
Гость |
![]()
Сообщение
#6
|
Гость ![]() |
ооооо, Всемогущий ALL помоги незнающему, подскажи как же все таки type файлик открывает а я немогу !!!!
|
Malice |
![]()
Сообщение
#7
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: ![]() ![]() ![]() |
ооооо, Всемогущий ALL помоги незнающему, подскажи как же все таки type файлик открывает а я немогу !!!! Вот так попробуй: var f:integer; Чтобы читать построчно только придется немного похлопотать ![]() Упс, проверил - не работает.. Сообщение отредактировано: Malice - 22.01.2007 15:43 |
Гость |
![]()
Сообщение
#8
|
Гость ![]() |
плохо
![]() я перед запуском своєй программы копирую 1cv7.mlg в другой файл, но это ж ни дело ![]() |
hiv |
![]()
Сообщение
#9
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 660 Пол: Мужской Реальное имя: Михаил Репутация: ![]() ![]() ![]() |
вот так вот пишет гадина Есть идея!!! Может покажешь кусок кода где ошибка возникает (включая определение переменных).![]() может еще какие идеи ???? -------------------- Никогда не жадничай. Свои проблемы с любовью дари людям!
|
Гость |
![]()
Сообщение
#10
|
Гость ![]() |
var f:textfile;
f1:TFileStream; begin AssignFile(f,fn.Text); FileMode:=fmShareDenyNone ; {$I-} reset(f); {$I-} err:=IOREsult; if err<>0 then begin ShowMessage('Error open file # '+IntToStr(err)); exit; End; Здесь раз - #32 f:=TFileStream.create(fn.Text, fmShareDenyNone); memo1.Lines.LoadFromstream(f); <<<<<< здесь два Access violation ...... |
volvo |
![]()
Сообщение
#11
|
Гость ![]() |
Ты что, именно этот код пытаешься запускать? Чего ты сюда постишь-то бред этот? Ты КОПИРУЙ а не впечатывай, ты ж ошибки вносишь!!! Как ты, например, создаешь TextFile через конструктор TFileStream?
В общем, я смотрю, по-хорошему не понимаем... Либо ты даешь код (не куски, а КОД, напиши маленькую программу, которая ТОЛЬКО пытается читать открытый файл, и запость ее сюда ПОЛНОСТЬЮ), который компилируется и запускается на выполнение, либо я закрываю тему... Балагана на форуме и без тебя хватает! |
Гость |
![]()
Сообщение
#12
|
Гость ![]() |
опс, ошибочка вышла
f1:=TFileStream.create(fn.Text, fmShareDenyNone); memo1.Lines.LoadFromstream(f1); <<<<<< здесь два Access violation ...... так вот |
Malice |
![]()
Сообщение
#13
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 705 Пол: Мужской Репутация: ![]() ![]() ![]() |
прверил сейчас на 1с-вской базе, вариант Volvo нормально работает..
|
Гость |
![]()
Сообщение
#14
|
Гость ![]() |
йопт РАБОТАЕТ
пасиба Вольво !!!! ![]() |
![]() ![]() |
![]() |
Текстовая версия | 10.07.2025 19:28 |