Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Только чтение 
:(
    Опции темы
Over G
Дата 19.5.2002, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 30.3.2002

Репутация: нет
Всего: нет
Как открыть файл только для чтения, когда он запущен и прочитать из его конца 15 символов. Записывал при помощи BloackWrite(...) Пробовал через TMemoryStream - ошибка accessError
PM MAIL   Вверх
Vit
Дата 19.5.2002, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
А что TFileStream если открыть только на чтение не работает?


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Over G
Дата 19.5.2002, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 30.3.2002

Репутация: нет
Всего: нет
Так вылезает ткакая же ошибка, что и у MemoryStream.
PM MAIL   Вверх
Vit
Дата 19.5.2002, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
А через

assignfile()
reset()

то же самое?


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Over G
Дата 19.5.2002, 18:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 30.3.2002

Репутация: нет
Всего: нет
а на строке Reset будет I/o Error. Файл ведь запущен...  ???
PM MAIL   Вверх
362214
Дата 20.5.2002, 06:38 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Попробуй так:

{$-}
reset()
{$+}
  Вверх
Over G
Дата 20.5.2002, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 30.3.2002

Репутация: нет
Всего: нет
Не получается и так, он выдает пустую строку.... ???
PM MAIL   Вверх
Over G
Дата 21.5.2002, 19:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 30.3.2002

Репутация: нет
Всего: нет
Ну че никто помочь не может?
PM MAIL   Вверх
Vit
Дата 21.5.2002, 21:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Уж не знаю в чем проблема, но этот код у меня работает(открывает файл уже открытый MS Word, и читает перые 14 байт):


Код

 var b:string[15];
begin
  with TFileStream.create('c:\MyFile.doc', fmShareDenyNone) do
    try
      read(b,14);
      showmessage(b);
    finally
      Free;
    end;



--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
PILOT
Дата 21.5.2002, 22:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


производство
****


Профиль
Группа: Модератор
Сообщений: 2724
Регистрация: 4.4.2002
Где: москва

Репутация: нет
Всего: 54
А вот еще одно решение :)
Код

procedure TForm1.Button1Click(Sender: TObject);
type
AnyType = byte; // как тебе нужно
var
F: file of AnyType;
const
FName = 'D:/Exp.exe'; //запущенный файл
begin
begin
 AssignFile(F, FName); { File selected in dialog }
 FileMode:=fmOpenRead;
 Reset(F);
//  ...
//  ...
 CloseFile(F);
 FileMode:=fmOpenReadWrite;
end;
end;


СУВ.
ЗЫ. "...Если бы спорт приносил деньги, то на каждом турнике висело бы по два еврея."


--------------------
тут могла быть Ваша реклама...
PM MAIL WWW ICQ   Вверх
Over G
Дата 23.5.2002, 20:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 30.3.2002

Репутация: нет
Всего: нет
Спасибо!
Но мне нужно прочитать последние 14 байт запущенного exe-файла, а не первые... Не  подскажите как?
PM MAIL   Вверх
Vit
Дата 23.5.2002, 21:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Код
 var b:string[15];
begin
  with TFileStream.create('c:\MyFile.doc', fmShareDenyNone) do
    try
     seek(15,soFromEnd);
      read(b,14);
      showmessage(b);
    finally
      Free;
    end;
end;



--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0872 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.