ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
02.05.2010, 23:20
|
|
Познающий
Регистрация: 26.12.2007
Сообщений: 34
Провел на форуме:
150392
Репутация:
8
|
|
Вот делаю чекер прокси, и хочу спросить, как игнорировать ошибки? Просто если прокси плохой, то вылазит ошибка "Socket error...", а мне надо, чтобы оно ее игнорило, как так сделать? :3
|
|
|
02.05.2010, 23:26
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290
Репутация:
29
|
|
try
проверка
except
обработка ошибки
end;
|
|
|
|
03.05.2010, 01:26
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Есть таймер, интервал = 5000, нужно чтобы в Label1 каждые 5 сек прибавлялось на 1. Начальное значение ноль.
|
|
|
|
03.05.2010, 01:49
|
|
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
Провел на форуме:
2835808
Репутация:
185
|
|
Код:
Глобально: var sec : Integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec := sec+1;
Label1.caption:=IntToStr(sec);
end;
Перед этим нужно задать значение sec = 0;
В FormCreate например. |
|
|
|
03.05.2010, 08:37
|
|
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199
Репутация:
21
|
|
......
Последний раз редактировалось denjf; 03.05.2010 в 08:44..
|
|
|
|
03.05.2010, 11:05
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Доброго времни суток =)
Есть задача:
Есть путь, например "C:\SomeApp\SomeFolder\target.txt"
Каким образом можно узнать SomeFolder имя может быть любое.
Заранее спасибо! =)
|
|
|
|
03.05.2010, 13:10
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028
Репутация:
28
|
|
Сообщение от iGlass
Доброго времни суток =)
Есть задача:
Есть путь, например "C:\SomeApp\SomeFolder\target.txt"
Каким образом можно узнать SomeFolder имя может быть любое.
Заранее спасибо! =)
ExtractFileDir(<path>) - если надо узнать "C:\SomeApp\SomeFolder"
в ином случае - copy, pos
Последний раз редактировалось [stranger]; 03.05.2010 в 13:12..
|
|
|
|
03.05.2010, 14:08
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от iGlass
Доброго времни суток =)
Есть задача:
Есть путь, например "C:\SomeApp\SomeFolder\target.txt"
Каким образом можно узнать SomeFolder имя может быть любое.
Заранее спасибо! =)
если длина пути всегда одинаковая то регексп
я имею ввиду количество слешей
|
|
|
|
03.05.2010, 14:36
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Да количество слешей одинаково, но название может быть разной длины.. Вот в чём косяк.. Даже если юзать регулярные выражения, то нужно будет отнимать и прибавлять разную длину.. которую как ни крути, а узнать я не могу т.к длина названия папки может быть разная...
Или я туплю? Вроде прикинул, что можно от слеша до слеша. так?
Последний раз редактировалось iGlass; 03.05.2010 в 14:39..
|
|
|
|
03.05.2010, 14:45
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
хотел сделать такое:
при нажатии на кнопку появляется картинка(анимация), идёт задержка sleep и картинка снова пропадает, но столкнулся с такой проблемой что анимация не проигрывается во время задержки. подскажите как это исправить.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Visible:=true;
Application.ProcessMessages;
sleep(1000);
Image1.Visible:=false;
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.jpg?2119737){kind=avatar}
Похожие темы
Линейный вид
