ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
15.08.2009, 22:41
|
|
Новичок
Регистрация: 25.07.2009
Сообщений: 17
Провел на форуме:
86414
Репутация:
3
|
|
люди помогите пожалуйста. в программе есть кнопка. после её нажатия открывается окно браузера и сайт. мне нужно поменять этот сайт. так вот проблема в том что Resource Builder не показывает обработчик OnClick ни одной кнопки. просто примерно вот такой текст каждой кнопки.
object btnpay: TButton
Left = 129
Top = 129
Width = 67
Height = 25
Caption = 'Pay'
TabOrder = 5
Visible = False
OnClick = btnpayClick
а где находится обработчик? все обыскал!
Помогите кто знает. я в pascal ни бум бум.
|
|
|
16.08.2009, 02:31
|
|
Новичок
Регистрация: 10.10.2006
Сообщений: 2
Провел на форуме:
32403
Репутация:
0
|
|
|
|
|
|
16.08.2009, 08:24
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284
Репутация:
54
|
|
anticmc: Если строка, содержащая url, не зашифрована, то можно открыть программу HEX-редактором и попробывать там найти и заменить URL.
А обработчик события на паскале ты никогда не найдешь, потому что этот код компилируется в машинный.
Последний раз редактировалось Nullsleep; 16.08.2009 в 08:32..
|
|
|
|
16.08.2009, 13:18
|
|
Новичок
Регистрация: 25.07.2009
Сообщений: 17
Провел на форуме:
86414
Репутация:
3
|
|
Сообщение от Nullsleep
anticmc: Если строка, содержащая url, не зашифрована, то можно открыть программу HEX-редактором и попробывать там найти и заменить URL.
А обработчик события на паскале ты никогда не найдешь, потому что этот код компилируется в машинный.
спасибо. разобрался!)
|
|
|
|
16.08.2009, 15:45
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
anticmc, мне так показалось, что речь идёт о Delphi? Берёшь DeDe(Delphi decompilator), грузишь в него свой exe-шник. Декомпилируешь. И там найдёшь на вкладке Procedures все обработчики(в машинном коде, естественно)
|
|
|
|
16.08.2009, 22:23
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
вопрос нуба но все же:
Есть код
While......
begin
if ...... then
begin
Что здесь надо поставить чтобы выполнение While "Повторилось"???
end;
end;
Команда "End;" не подходит т.к. обработчик начинает ругаться на большое кол-во End-ов...
|
|
|
|
16.08.2009, 22:26
|
|
Участник форума
Регистрация: 22.11.2008
Сообщений: 142
Провел на форуме:
636446
Репутация:
32
|
|
Привет всем, кто меня читает.
Прошу мне немножко помоч.
Пишу прогу на Delphi, она работает с текстовым файлом.
Мне нужно в определённый момент вернуть курсор на нулевую позицию, незакрывая файл.
Поясню:
Код:
var
F: TextFile;
S: String;
begin
AssignFile(F, 'MyTextFile.txt'); //Связываем файловую переменную с файлом
{$I-} //Отключаем сообщения об ошибках
Reset(F); //Открываю файл для чтения (Позиция равна нулю)
Readln(F, S); //Читаю первую строку (Позиция изменлась)
Flush(F); //Освобождаю память (Не уверен, что это нужно делать при чтении,
если кто знает поясните)
Closefile(F); //Закрываю файл
end;
|
|
|
|
16.08.2009, 22:54
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Сообщение от НTL
Что здесь надо поставить чтобы выполнение While "Повторилось"???
а что у тебя в условии While стоит? сделай, чтоб было True и всё повторится
Сообщение от Flenov
Мне нужно в определённый момент вернуть курсор на нулевую позицию, незакрывая файл.
по-моему с текстовым файлом это не сделать. только типизированный или нетипизированный
Сообщение от Flenov
Flush(F); //Освобождаю память (Не уверен, что это нужно делать при чтении,
если кто знает поясните)
при чтении не надо (она записывает файл)
|
|
|
|
16.08.2009, 22:59
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Сообщение от ZdezBilYa
а что у тебя в условии While стоит? сделай, чтоб было True и всё повторится
по-моему с текстовым файлом это не сделать. только типизированный или нетипизированный
при чтении не надо (она записывает файл)
Код:
while Memo1.Lines.Count > 0 do
Я не уверен что "Истина" тут подойдет
|
|
|
|
16.08.2009, 23:18
|
|
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582
Репутация:
107
|
|
Сообщение от НTL
Код:
while Memo1.Lines.Count > 0 do
Я не уверен что "Истина" тут подойдет поставь переменную, например
Код:
temp:=Memo1.Lines.Count;
while temp> 0 do
а там уже оперируй ей
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
