| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Считывание файла прогриммы

Николай Быков ©   (2002-10-10 14:09:00) 

Я на паскале очень легко используя процедуры blockread blockwrite прекрасно считывал ехе-шник прграммы, а в Делфи столкнулся с невозможностью делать это. (выдается какая-то ошибка)

---

Rouse_   (2002-10-10 15:21:00) [1]

> Николай Быков © (10.10.02 15:02)
Нет ну вы сами подумайте зачем здесь давать информацию которая есть уже у вас? Нужен пример? Легко, но чуточку усилий плз, а то это получается неуважение к отвечающим

вот вам грубый набросок

procedure TForm1.Button1Click(Sender: TObject);
var f:TFileStream;
s:array [0..9] of char;
tmp:String;
begin
f := TFileStream.Create("c:\test.txt",fmOpenReadWrite);
f.Read(s,10);
Caption := String(s);
f.Seek(0, soFromBeginning);
tmp := "1234567890";
Move(tmp[1],s[0],10);
f.Write(s,10);
f.Free;
end;

Желаю успехов

---

Pumpkin   (2002-10-10 15:06:00) [2]

>Мне его нужно в буффер записать только. Туда пишет процедура blockread.
Чтобы сделать BlockRead надо вначале сделать Reset, а вот здесь облом.

F := TFileStream.Create(ParamStr(0), fmOpenRead or fmOpenDenyNone);
F.ReadBuffer( Buf, SizeOfExeFile );

Поправьте если я не прав.

---

BOA_KAA   (2002-10-10 15:04:00) [3]

Придурок! Я-то знаю, как это сделать, а ты - нет. И еще раз внимательно прочитай, что Pumpkin написал!

---

Николай Быков   (2002-10-10 15:02:00) [4]

2 BOA_KAA
Fucking niga, please read the help about this procedure.

---

BOA_KAA   (2002-10-10 15:00:00) [5]

НЕ ХОЧЕШЬ - ПРИМЕРА НЕ ПОЛУЧИШЬ И РАЗБИРАЙСЯ ТОГДА САМ!

---

Николай Быков   (2002-10-10 14:57:00) [6]

Я не писал что мне надо записывать в ехе-шник.
Мне его нужно в буффер записать только. Туда пишет процедура blockread

2 BOA_KAA
А ты почитай хелп по этой процедуре а потом и задавай такие е**нные вопросы.

---

Pumpkin   (2002-10-10 14:42:00) [7]

Это тебе не ДОС, можно только читать. Хотя ты Reset-ом только для чтения не откроешь. Пользуй TFileStream или FileOpen (как обертку для APIшных).

---

BOA_KAA   (2002-10-10 14:31:00) [8]

Ну, не знаю, куда они у тебя считывабт, раз не прочитать:-)

Пример дать?

---

Николай Быков   (2002-10-10 14:24:00) [9]

2 BOA_KAA
А куда по твоему эти процедуры считывают файл? :-0

---

Rouse_   (2002-10-10 14:19:00) [10]

Читать то ты сможешь, нужно открыть файл только для чтения, а вот писать в запущенный ехе увы нет

Желаю успехов

---

BOA_KAA   (2002-10-10 14:19:00) [11]

Попробуй прочитать его в буфер, а оттуда уже считывать

---

Reindeer Moss Eater   (2002-10-10 14:14:00) [12]

Не повезло тебе

---

Наверх