Загрузка exe файла в Memo

← →
Dmitrijan © (2010-02-11 00:12) [0]

Уважаемые форумчане, подскажите новичку, мне нужно загрузить exe файл в Memo. Процедурой Memo1.Lines.LoadFromFile ("exefile"); не грузится, а точнее загружает только три символа и все. Обычным же блокнотом .exe открыть можно.

← →
Германн © (2010-02-11 00:14) [1]

Какая цель загрузки exe-файла в Memo?

← →
dmitrijan © (2010-02-11 00:18) [2]

Там написано название используемого инсталлятора. (Например Inno, NSIS и т.д). Собственно это мне и нужно.

← →
Германн © (2010-02-11 00:21) [3]

> Там написано название используемого инсталлятора. (Например
> Inno, NSIS и т.д). Собственно это мне и нужно.

Сделай поиск по файлу слов, которые тебе нужны. Найдешь, прочитай и покажи хоть в лейбле, хоть в мемо. Зачем грузить в мемо кучу нечитаемого мусора.

← →
KilkennyCat © (2010-02-11 00:27) [4]

Что-то мне подсказывает, что поиск здесь лишнее, наверняка это в определенном месте, по крайней мере, у каждого в отдельности.

← →
dmitrijan © (2010-02-11 00:34) [5]

Германн, Не получается, в текстовых находит эти слова, в exe никак.
Вот мой код для txt:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
s1,s2,s3:String;
i:integer;
begin
Memo1.Lines.LoadFromFile("1.txt");
s1:="inno";
s2:="nsis";
s3:="installshield";
for i:=0 to Memo1.Lines.Count-1 do
if Pos(s1, Memo1.Lines.Text)<>0
then
begin
Label1.Font.Color:=clTeal;
Label1.Caption:=(s1);
RichEdit1.Lines.Clear;
RichEdit1.Lines.LoadFromFile("res\inno.doc");
end;
for i:=0 to Memo1.Lines.Count-1 do
if Pos(s2, Memo1.Lines.Text)<>0
then
begin
Label1.Font.Color:=clTeal;
Label1.Caption:=(s2);
RichEdit1.Lines.Clear;
RichEdit1.Lines.LoadFromFile("res\nsis.doc");
end;
for i:=0 to Memo1.Lines.Count-1 do
if Pos(s3, Memo1.Lines.Text)<>0
then
begin
Label1.Caption:=(s3);
end;
if Pos(s1, Memo1.Lines.Text) or Pos(s2, Memo1.Lines.Text) or Pos(s3, Memo1.Lines.Text)=0
then
begin
RichEdit1.Lines.Clear;
Label1.Font.Color:=clRed;
Label1.Caption:=("Инсталлятор не опознан!");
end;
end;

← →
Германн © (2010-02-11 01:19) [6]

> dmitrijan © (11.02.10 00:34) [5]
>
> Германн, Не получается

Я же тебе советовал искать в файле А ты ищешь в той бредятине, которую загрузил в мемо из файла метод LoadFromFile. Почувствуй разницу!

Ищи что-то типа "Boyer-Moore-Horspool pattern searching
algorithm".

← →
Германн © (2010-02-11 01:28) [7]

> KilkennyCat © (11.02.10 00:27) [4]
>
> Что-то мне подсказывает, что поиск здесь лишнее, наверняка
> это в определенном месте, по крайней мере, у каждого в отдельности.
>

Когда я советовал "поиск в файле" я имел в виду что-то типа Германн © (11.02.10 01:19) [6]
Но это поиск в буфере, в который читается файл блоками. А вот то, что ты имел в виду - это именно "поиск в файле"! :)

← →
KilkennyCat © (2010-02-11 01:33) [8]

и даже бредятину надо писать нормально, мы не индусы. Достаточно одного прогона, с выходом по нахождению, и не надо так часто присваивать цвет, достаточно один раз, в конце.

И еще раз скажу - ненужен тут поиск, и даже вреден, не слушай Германна, он не выспался.

← →
Германн © (2010-02-11 01:33) [9]

> dmitrijan © (11.02.10 00:34) [5]

Если не найдешь, могу кинуть исходник, но очень старый (от Д1). Алгоритм понять можно.

← →
KilkennyCat © (2010-02-11 01:35) [10]

> А вот то, что ты имел в виду - это именно "поиск в файле"!
> :)

Я имел ввиду, что инсталлятор оставляет свою метку в определенном месте и определенного размера. Сие позволяет прочитать ее сразу, поиск тут никаким боком, кроме того, вероятность, что в файле будут два и более слова равных заданным признакам достаточно высока.

← →
dmitrijan © (2010-02-11 01:36) [11]

Как я понял Memo можно вообще выкинуть, а искать слова по вышесказанному алгоритму. Спасибо за подсказку, буду пробовать.

← →
dmitrijan © (2010-02-11 01:37) [12]

Германн, конечно, хотелось бы взглянуть на ваш исходник :)

← →
Германн © (2010-02-11 01:39) [13]

> И еще раз скажу - ненужен тут поиск, и даже вреден, не слушай
> Германна, он не выспался.
>

Лучше не слушать котов ночью. :)
Костя. Если известен адрес нужного байта в файле, так тут и нужен поиск в файле. Точнее позиционирование.
А если адрес не известен, то нужно искать.

← →
Германн © (2010-02-11 01:40) [14]

> dmitrijan © (11.02.10 01:37) [12]

Почта в анкете валидна?

← →
KilkennyCat © (2010-02-11 01:41) [15]

> Если известен адрес нужного байта в файле, так тут и нужен
> поиск в файле. Точнее позиционирование.

бред.

> А если адрес не известен, то нужно искать.

что искать? набор байт, случайно образовавшие "inno" и "nsis" ?

← →
dmitrijan © (2010-02-11 01:42) [16]

Валидна :)

← →
Германн © (2010-02-11 01:46) [17]

> KilkennyCat © (11.02.10 01:41) [15]
>
>
> > Если известен адрес нужного байта в файле, так тут и нужен
> > поиск в файле. Точнее позиционирование.
>
> бред.
>

Ну это не ко мне. Не я написал процедуру Seek. :)

← →
Германн © (2010-02-11 01:46) [18]

> dmitrijan © (11.02.10 01:42) [16]

Отправил.

← →
dmitrijan © (2010-02-11 01:48) [19]

Германн, спасибо за исходник, буду разбиратся.

← →
KilkennyCat © (2010-02-11 01:54) [20]

> Не я написал процедуру Seek. :)

ну тогда посмотри, как она написана, и покажи мне, как там происходит поиск. Я так думаю, что компьютеры медленно работают до сих пор только из-за этого: как только что-то потребуется процессору, он говорит: а дайте-ка мне это по такому-то адресу, и все, полная жопа, все остальные начинают искать адрес...

← →
Smile (2010-02-11 02:01) [21]

> KilkennyCat © (11.02.10 01:54) [20]

Очень редко "выглядываю" ночью, тем более приятно, наблюдать, что даже в такое время суток, есть те, кто может указать на "их" место, тем кто этого заслуживает
:)

← →
Германн © (2010-02-11 02:03) [22]

> KilkennyCat © (11.02.10 01:54) [20]
>
>
> > Не я написал процедуру Seek. :)
>
> ну тогда посмотри, как она написана

Костя, проспись. Ты уже совсем вышел из сабжа! Ты читаешь ответы, но не понимаешь их.

> Smile (11.02.10 02:01) [21]
>
> > KilkennyCat © (11.02.10 01:54) [20]
>
> Очень редко "выглядываю" ночью, тем более приятно, наблюдать,
> что даже в такое время суток, есть те, кто

"Германн © (11.02.10 01:57) [11]

> KilkennyCat © (11.02.10 00:30) [5]
>
> а мне предлагают винды бесплатно.

Ты Костя сегодня ночью читаешь очень невнимательно. Там не предлагают "винды бесплатно". Там предостерегают от покупки пиратской версии. :)
<Цитата>

KilkennyCat © (11.02.10 02:00) [12]

> Германн © (11.02.10 01:57) [11]

Я ваще не читаю. Просто бросается крупный шрифт, автоматом воспринимаю.
"
:)

> Ты читаешь ответы, но не понимаешь их.

Да. Не понимаю.
Я не понимаю, какой может быть поиск, да еще по какому-то алгоритму для строк(!), когда задача стоит как четкое определение типа файла по сигнатуре.

KilkennyCat, Да я тоже думал про сравнение сигнатур, но этот метод для меня сложен.Я писал в первом посте, что удивился когда открыл файл блокнотом, и увидел, что там строкой написан тип инсталлятора. Примерно в начале файла.

Потом удивишься, что практически большинство екзешников определятся как nsis

Это в случае с поиском.

Вот пример из блокнота файл Inno:
<assemblyIdentity
name="JR.Inno.Setup"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>

слов NSIS там не нашел, впрочем как и в NSIS файле слов Inno.

> dmitrijan © (11.02.10 02:21) [25]
>
> Да я тоже думал про сравнение сигнатур, но
> этот метод для меня сложен.

Правильно думал. И Это в разы менее сложно, чем hBoyer-Moore-Horspool. Можешь убедиться, вот его реализация: http://www.angusj.com/delphi/searches.html

Для поиска по сигнатуре тебе нужно:
Определить, где они находятся. Это можно прочитав документацию к инсталлятору, или препарированием оного.
Открыть файл. assdignFile, reset
Переместиться в нужную позицию. seek
Прочитать нужное количество (равное размеру сигнатуры) байт. Readbuffer
Сравнить. if
Закрыть файл. closefile
Итого: менее 10 строк кода, 99,9% точности результата.

Спасибо всем! Буду эксперементировать.

> KilkennyCat © (11.02.10 02:16) [24]
>
>
> > Ты читаешь ответы, но не понимаешь их.
>
>
> Да. Не понимаю.
> Я не понимаю, какой может быть поиск, да еще по какому-
> то алгоритму для строк(!), когда задача стоит как четкое
> определение типа файла по сигнатуре.

Задача вообще-то на тот момент вообще не была озвучена. Был только дурацкий вопрос о загрузке exe-файла в Memo.

Загрузка exe файла в Memo Найти похожие ветки