OpenDialog1.Filter := 'Exe files|*.exe';

@xxbesoxx · Регистрация: 13.02.2009

Студворк — интернет-сервис помощи студентам

Добрый день ребята ! Хочу совет и помочь, заранее спасибо .

ест на Form1 -е Memo1 OpenDialog1 и кнопка . хочу что бы программа открывал exe файл и разархивировать и отображалось текст на Memo1 как Ассемблер или как сам Delphi . на пример так
======================================== ======================================

4D5A500002000000 04000F00FFFF0000 B800000000000000 40001A0000000000
0000000000000000 0000000000000000 0000000000000000 0000000000010000
BA10000E1FB409CD 21B8014CCD219090 546869732070726F 6772616D206D7573
742062652072756E 20756E6465722057 696E33320D0A2437 0000000000000000
0000000000000000 0000000000000000 0000000000000000 0000000000000000
0000000000000000 0000000000000000 0000000000000000 0000000000000000
0000000000000000 0000000000000000 0000000000000000 0000000000000000
0000000000000000 0000000000000000 0000000000000000 0000000000000000
504500004C010900 9F3EF64E00000000 00000000E0008E81 0B01021900840E00
00C6040000000000 189B0E0000100000 00A00E0000004000 0010000000020000
0500000000000000 0500000000000000 00F0130000040000 0000000002000000
0000100000400000 0000100000100000 0000000010000000 0000000000000000
00700F00602F0000 00C01000002C0300 0000000000000000 0000000000000000

1. Opendialog1 --> Filter-- exe [*.exe,*.exe] здесь понятно

2. Button -- OnClick

if opendialog1.Execute then
OpenDialog1.Filename := '';
OpenDialog1.Filter := 'Exe files|*.exe';

Потом как продолжать ? Memo1.Execute ??? или как ?

@freest · 25.12.2011, 18:35

1 Не тот раздел
2.Читайте файл по байтам и записывайте в 16ричной форме в Мемо

@xxbesoxx · 25.12.2011, 18:42 **[ТС]**

freest пожалуйста выложите силка где на этот идёт речь , 1 Не тот раздел = где на это можно почитать ?

@freest · 25.12.2011, 18:44

это Пролог, а не Паскаль и не Дельфи

@xxbesoxx · 25.12.2011, 18:55 **[ТС]**

Нету не где объяснения и практические уроки где идёт разговор на такой программу ???? Мне надо просто создать программу которой открывать будет такой текст из exe файл

@freest · 25.12.2011, 20:53

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
hex([0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f]).
getN(0,[R|_],R):-!.
getN(N,[_|T],R):-Nn is N-1,getN(Nn,T,R).
 
readFile(Path):-
    seeing(Old),
    assert(count(1,0)),
    see(Path),
    hex(HEX),repeat,
    get_byte(Code),
    HByteDec is (Code div 16),LByteDec is (Code mod 16),
    getN(HByteDec,HEX,HByteHex),getN(LByteDec,HEX,LByteHex),
    write(HByteHex),write(LByteHex),
    (retract(count(7,N)),write(' '),
    (N=3,Nn=0,nl;N\=3,Nn is N+1),assert(count(0,Nn));
    retract(count(C,N)),C\=16,Cn is C+1,assert(count(Cn,N))),
    at_end_of_stream,seeing(Stream),close(Stream),see(Old),retractall(count(_,_)).

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
?- readFile('alg.txt').
23696e636c7564 65203c636f6e69 6f2e683e0d0a76 6f6964206d6169 
6e28290d0a7b0d 0a09696e742053 31412c5331423b 0d0a09696e7420 
692c6a3b0d0a09 696e7420415b35 5d5b355d3d7b30 7d3b0d0a09696e 
7420425b355d5b 355d3d7b307d3b 0d0a09666f7228 20693d303b2069 
3c353b20692b2b 290d0a0909666f 7228206a3d303b 206a3c353b206a 
2b2b290d0a0909 097363616e6628 222564222c2641 5b695d5b6a5d29 
3b0d0a09666f72 2820693d303b20 693c353b20692b 2b290d0a090966 
6f7228206a3d30 3b206a3c353b20 6a2b2b290d0a09 097b0d0a090909 
696628693d3d6a 290d0a09090909 425b695d5b6a5d 3d312d693b0d0a 
090909656c7365 0d0a0909090942 5b695d5b6a5d3d 312b322a6a3b0d 
0a090909707269 6e746628222564 5c6e222c425b69 5d5b6a5d293b0d 
0a09097d0d0a09 5331413d415b31 5d5b315d3b0d0a 09666f7228693d 
313b20693c353b 20692b2b290d0a 09095331413d53 31412b415b695d 
5b695d3b0d0a09 7072696e746628 225331413a2025 645c6e222c5331 
41293b0d0a0953 31423d425b315d 5b315d3b0d0a09 666f7228693d31 
3b20693c353b20 692b2b290d0a09 095331423d5331 422b425b695d5b 
695d3b0d0a0970 72696e74662822 5331423a202564 5c6e222c533142 
293b0d0a096966 285331413e4229 0d0a097b0d0a09 09696e74205370 
413d303b0d0a09 09696e7420536e 413d303b0d0a09 09666f7228693d 
303b693c353b20 692b2b290d0a09 0909666f72286a 3d303b206a3c35 
3b206a2b2b290d 0a090909096966 28415b695d5b6a 5d3e30290d0a09 
09090909537041 2b3d415b695d5b 6a5d3b0d0a0909 0909656c73650d 
0a090909090953 6e412b3d415b69 5d5b6a5d3b0d0a 09097072696e74 
6628225370413a 2025645c6e222c 537041293b0d0a 09097072696e74 
662822536e413a 2025645c6e222c 536e41293b0d0a 097d0d0a09656c 
73650d0a097b0d 0a0909696e7420 5370423d303b0d 0a0909696e7420 
536e423d303b0d 0a0909666f7228 693d303b693c35 3b20692b2b290d 
0a090909666f72 286a3d303b206a 3c353b206a2b2b 290d0a09090909 
696628425b695d 5b6a5d3e30290d 0a090909090953 70422b3d425b69 
5d5b6a5d3b0d0a 09090909656c73 650d0a09090909 09536e422b3d42 
5b695d5b6a5d3b 0d0a0909707269 6e746628225370 423a2025645c6e 
222c537042293b 0d0a0909707269 6e74662822536e 423a2025645c6e 
222c536e42293b 0d0a097d0d0a09 67657463682829 3b0d0a7d
true .

@xxbesoxx · 25.12.2011, 20:53 **[ТС]**

неужели не кто не сможет помочь ребята ?

@freest · 25.12.2011, 20:57

а я что сделал?

@xxbesoxx · 25.12.2011, 21:06 **[ТС]**

freest Щас попробую разобрать кодом спасибо тебя

Добавлено через 5 минут
freest Пожалуйста выложи здесь полный проект программы у меня сегодня голова взрывается , пожалуйста очень прошу !!!!! не понял из какого свойстве ты пишешь это код

@freest · 25.12.2011, 21:09

Если вы не заметили, то вы находитесь в разделе ПРОЛОГ и этот код написан на SWI Prolog.
Если хотете добиться того же результата на дельфи, то откройте файл как бинарный и по байтно выводите его в свой Memo

@xxbesoxx · 25.12.2011, 21:20 **[ТС]**

файл как бинарный = не понял как это ? не когда не писал такого ... пожалуйста объясни или где написано подробно силка выложите

@freest · 25.12.2011, 21:28

кароче откройте как File of Byte и радуйтесь жизни
или обратитесь во фриланс, там вам помогут

@xxbesoxx · 25.12.2011, 22:56 **[ТС]**

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

Добавлено через 1 час 15 минут
тема еще актуальна

@Грымзик · 25.12.2011, 23:37

freest, объясни мне, тут вообще про пролог речь или нет?)

@freest · 26.12.2011, 00:07

это надо в Дельфи или Паскаль перенести

Добавлено через 21 минуту
xxbesoxx Задача понятно ! Здесь писать нечего сложного ! Видно что у вас нету опить работа файла ! Возьмите книга и внимательно читайте глав работа файла. Это мои советь ! А если вам срочно тогда надо заказать программу и покупать исходниками. Если вам интересно программирование ! там сложного ничего нету вазите книга и там все подробно написано

@xxbesoxx · 26.12.2011, 00:35 **[ТС]**

Грымзик Здравствуйте. Объясняю ! надо простои программу написать который открыть exe файл и будет отображать текст как на пример на Delphi открываешь exe и показывает на на фотке коты я прикрепил здесь .
-----------------------------------------------------------------------
Кидаю на форму компонент OpenDialog1 Memo1 и кнопка Button

1. OpenDialog1 - Свойстве Filter = exe [*.exe,*.exe]
2. на Button Свойстве OnClick пишу

if opendialog1.Execute then
OpenDialog1.Filename := '';
OpenDialog1.Filter := 'Exe files|*.exe'; и не магу доделать что бы программа открыл exe файл и отображал текст на Memo1
-----------------------------------------------------------------------
Просьба если кто то писал такой программа или знаете где написано таки примеры выложите ссылку пожалуйста
-------------------------------------------------------------------------
freest Я на это человеку не понял что говорить .... Уважаемы freest когда отвечайте надо объяснять или вообще не отвечать.... ваши короче не кому не надо и от куда копировал это исходники наверно сам не помнишь

@freest · 26.12.2011, 00:40

Добрый день ребята ! Хочу совет и помочь, заранее спасибо .

ест на Form1 -е Memo1 OpenDialog1 и кнопка . хочу что бы программа открывал exe файл и разархивировать и отображалось текст на Memo1 как Ассемблер или как сам Delphi . на пример так
======================================== ======================================

4D5A500002000000 04000F00FFFF0000 B800000000000000 40001A0000000000
0000000000000000 0000000000000000 0000000000000000 0000000000010000
BA10000E1FB409CD 21B8014CCD219090 546869732070726F 6772616D206D7573
742062652072756E 20756E6465722057 696E33320D0A2437 0000000000000000
0000000000000000 0000000000000000 0000000000000000 0000000000000000
0000000000000000 0000000000000000 0000000000000000 0000000000000000
0000000000000000 0000000000000000 0000000000000000 0000000000000000
0000000000000000 0000000000000000 0000000000000000 0000000000000000
504500004C010900 9F3EF64E00000000 00000000E0008E81 0B01021900840E00
00C6040000000000 189B0E0000100000 00A00E0000004000 0010000000020000
0500000000000000 0500000000000000 00F0130000040000 0000000002000000
0000100000400000 0000100000100000 0000000010000000 0000000000000000
00700F00602F0000 00C01000002C0300 0000000000000000 0000000000000000

1. Opendialog1 --> Filter-- exe [*.exe,*.exe] здесь понятно

2. Button -- OnClick

if opendialog1.Execute then
OpenDialog1.Filename := '';
OpenDialog1.Filter := 'Exe files|*.exe';

-------------------------------------------------------------------------------------------
Эта задания почти все средние программист будет выполнять через 1 час доработанный интерфейсами. не знаешь и не научишь так программирование потому что видна не понимаешь не один строка кода.... не злись на меня студент лучи открывай книга на русском языке есть много интернете

@xxbesoxx · 26.12.2011, 00:52 **[ТС]**

Ты это вспоминаешь да ??? Я понял Видно что ты Киевлян .... Когда я так ответил человеку там било разговор про база данных .... это серьезный и надо внимательно разобрать
======================================== ======================
Но хорошо Киевлян я разберу сам и покажу тебя.... вот это я хорошо запомню

))

@Mawrat · 26.12.2011, 05:07

xxbesoxx, можно конечно и в Мемо коды записывать, но удобнее, наверное, применить компонент TStringGrid - таблица. В такую таблицу в отдельные ячейки можно записывать коды. И эти коды будет удобнее править, если потребуется. Если надо большой файл загружать, то придётся продумать вопрос о страничной загрузке.
Хотя, для начала, можно попробовать и в Мемо загрузить - чтобы разобраться с задачей.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,602

	OpenDialog1.Filter := 'Exe files\|.exe'; 25.12.2011, 18:30. Показов* 4369. Ответов 18 Метки нет (Все метки) Добрый день ребята ! Хочу совет и помочь, заранее спасибо . ест на Form1 -е Memo1 OpenDialog1 и кнопка . хочу что бы программа открывал exe файл и разархивировать и отображалось текст на Memo1 как Ассемблер или как сам Delphi . на пример так ======================================== ====================================== 4D5A500002000000 04000F00FFFF0000 B800000000000000 40001A0000000000 0000000000000000 0000000000000000 0000000000000000 0000000000010000 BA10000E1FB409CD 21B8014CCD219090 546869732070726F 6772616D206D7573 742062652072756E 20756E6465722057 696E33320D0A2437 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 0000000000000000 504500004C010900 9F3EF64E00000000 00000000E0008E81 0B01021900840E00 00C6040000000000 189B0E0000100000 00A00E0000004000 0010000000020000 0500000000000000 0500000000000000 00F0130000040000 0000000002000000 0000100000400000 0000100000100000 0000000010000000 0000000000000000 00700F00602F0000 00C01000002C0300 0000000000000000 0000000000000000 1. Opendialog1 --> Filter-- exe [.exe,.exe] здесь понятно 2. Button -- OnClick if opendialog1.Execute then OpenDialog1.Filename := ''; OpenDialog1.Filter := 'Exe files\|*.exe'; Потом как продолжать ? Memo1.Execute ??? или как ? 0

@freest Українець 424 / 318 / 16 Регистрация: 26.09.2009 Сообщений: 844
	25.12.2011, 18:35
	1 Не тот раздел 2.Читайте файл по байтам и записывайте в 16ричной форме в Мемо 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,602
	25.12.2011, 18:42 [ТС]
	freest пожалуйста выложите силка где на этот идёт речь , 1 Не тот раздел = где на это можно почитать ? 0

@freest Українець 424 / 318 / 16 Регистрация: 26.09.2009 Сообщений: 844
	25.12.2011, 18:44
	это Пролог, а не Паскаль и не Дельфи 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,602
	25.12.2011, 18:55 [ТС]
	Нету не где объяснения и практические уроки где идёт разговор на такой программу ???? Мне надо просто создать программу которой открывать будет такой текст из exe файл 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,602
	25.12.2011, 20:53 [ТС]
	неужели не кто не сможет помочь ребята ? 0

@freest Українець 424 / 318 / 16 Регистрация: 26.09.2009 Сообщений: 844
	25.12.2011, 20:57
	а я что сделал? 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,602
	25.12.2011, 21:06 [ТС]
	freest Щас попробую разобрать кодом спасибо тебя Добавлено через 5 минут freest Пожалуйста выложи здесь полный проект программы у меня сегодня голова взрывается , пожалуйста очень прошу !!!!! не понял из какого свойстве ты пишешь это код 0

@freest Українець 424 / 318 / 16 Регистрация: 26.09.2009 Сообщений: 844
	25.12.2011, 21:09
	Если вы не заметили, то вы находитесь в разделе ПРОЛОГ и этот код написан на SWI Prolog. Если хотете добиться того же результата на дельфи, то откройте файл как бинарный и по байтно выводите его в свой Memo 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,602
	25.12.2011, 21:20 [ТС]
	файл как бинарный = не понял как это ? не когда не писал такого ... пожалуйста объясни или где написано подробно силка выложите Миниатюры 0

@freest Українець 424 / 318 / 16 Регистрация: 26.09.2009 Сообщений: 844
	25.12.2011, 21:28
	кароче откройте как File of Byte и радуйтесь жизни или обратитесь во фриланс, там вам помогут 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,602
	25.12.2011, 22:56 [ТС]
	freest наверно я понятни языке попросил что сила выложите или проект выложите если уже написал. вы меня извините здесь по ваши короче ничего не понятно . ну как вы хотите на ваши коде ничего не понятно и вообще не знаю если работает Добавлено через 1 час 15 минут тема еще актуальна 0

@Грымзик 2507 / 1483 / 37 Регистрация: 14.09.2009 Сообщений: 2,740
	25.12.2011, 23:37
	freest, объясни мне, тут вообще про пролог речь или нет?) 0

@freest Українець 424 / 318 / 16 Регистрация: 26.09.2009 Сообщений: 844
	26.12.2011, 00:07
	это надо в Дельфи или Паскаль перенести Добавлено через 21 минуту xxbesoxx Задача понятно ! Здесь писать нечего сложного ! Видно что у вас нету опить работа файла ! Возьмите книга и внимательно читайте глав работа файла. Это мои советь ! А если вам срочно тогда надо заказать программу и покупать исходниками. Если вам интересно программирование ! там сложного ничего нету вазите книга и там все подробно написано 1

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,602
	26.12.2011, 00:35 [ТС]
	Грымзик Здравствуйте. Объясняю ! надо простои программу написать который открыть exe файл и будет отображать текст как на пример на Delphi открываешь exe и показывает на на фотке коты я прикрепил здесь . ----------------------------------------------------------------------- Кидаю на форму компонент OpenDialog1 Memo1 и кнопка Button 1. OpenDialog1 - Свойстве Filter = exe [.exe,.exe] 2. на Button Свойстве OnClick пишу if opendialog1.Execute then OpenDialog1.Filename := ''; OpenDialog1.Filter := 'Exe files\|.exe'; и не магу доделать что бы программа открыл exe файл и отображал текст на Memo1 ----------------------------------------------------------------------- Просьба если кто то писал такой программа или знаете где написано таки примеры выложите ссылку пожалуйста ------------------------------------------------------------------------- freest* Я на это человеку не понял что говорить .... Уважаемы freest когда отвечайте надо объяснять или вообще не отвечать.... ваши короче не кому не надо и от куда копировал это исходники наверно сам не помнишь Миниатюры 0

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,602
	26.12.2011, 00:52 [ТС]
	Ты это вспоминаешь да ??? Я понял Видно что ты Киевлян .... Когда я так ответил человеку там било разговор про база данных .... это серьезный и надо внимательно разобрать ======================================== ====================== Но хорошо Киевлян я разберу сам и покажу тебя.... вот это я хорошо запомню )) 0

@Mawrat 13116 / 5897 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	26.12.2011, 05:07
	xxbesoxx, можно конечно и в Мемо коды записывать, но удобнее, наверное, применить компонент TStringGrid - таблица. В такую таблицу в отдельные ячейки можно записывать коды. И эти коды будет удобнее править, если потребуется. Если надо большой файл загружать, то придётся продумать вопрос о страничной загрузке. Хотя, для начала, можно попробовать и в Мемо загрузить - чтобы разобраться с задачей. 0