ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
22.02.2009, 14:38
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
А нельзя ли сделать так чтоб на время выполнения команды прога не зависала?
|
|
|
22.02.2009, 14:41
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Вот эту процедурку пропиши:
Код:
procedure sleep(ms:cardinal);
var
tc:cardinal;
begin
tc:=GetTickCount;
repeat
Application.ProcessMessages;
until GetTickCount-tc > ms;
end;
|
|
|
|
22.02.2009, 14:46
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Собсно АП, или никто не знает как это сделать? =(
Есть у меня такой код:
Код:
bot1.Disconnect;
bot2.Disconnect;
bot3.Disconnect;
bot4.Disconnect;
bot5.Disconnect;
bot6.Disconnect;
bot7.Disconnect;
bot8.Disconnect;
bot9.Disconnect;
bot10.Disconnect;
Как мне сделать так чтоб использовался цикл, вот что-то вроде такого
Код:
For i:=1 to 10 do begin
bot[i].Disconnect;
end;
|
|
|
|
22.02.2009, 15:53
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
for i:=1 to bot1.count -1 do
begin
bot[i].Disconnect;
end;
что-то в таком роде
|
|
|
|
22.02.2009, 16:38
|
|
Участник форума
Регистрация: 19.08.2005
Сообщений: 132
Провел на форуме:
1387194
Репутация:
121
|
|
вот я например очищаю так эдиты, может поможет
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
tc :TComponent;
i:Integer;
begin
For i:=1 to 10 do begin
tc:= FindComponent('Edit' + inttoStr(i));
(tc as TEdit).Text:='';
end;
end
|
|
|
|
22.02.2009, 16:42
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Неработает =( Вот лог компилятора:
Код:
[Error] Unit1.pas(240): Undeclared identifier: 'count'
[Error] Unit1.pas(242): Undeclared identifier: 'bot'
[Fatal Error] Spammer.dpr(5): Could not compile used unit 'Unit1.pas'
|
|
|
|
22.02.2009, 16:52
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Сообщение от nilux
вот я например очищаю так эдиты, может поможет
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
tc :TComponent;
i:Integer;
begin
For i:=1 to 10 do begin
tc:= FindComponent('Edit' + inttoStr(i));
(tc as TEdit).Text:='';
end;
end
Во спс, помогло!
А вот еще столкнулся с проблеммой. Делаю прогу типо радмина через сокеты (Tserversocket, Tclientsocket) Так вот если пытаюсь приконнектится по сети или по инету с внешним IP, то все норм, но как реализовать коннект если сервер находится за NAT'ом?
З.Ы. пробрасывать порты не предлагать, вот ведь Qip както коннектится если клиент за NAT'ом сидит. Оч прошу помоч
Последний раз редактировалось Maxxxtri23; 22.02.2009 в 16:55..
|
|
|
|
22.02.2009, 17:21
|
|
Познающий
Регистрация: 20.04.2008
Сообщений: 39
Провел на форуме:
382668
Репутация:
49
|
|
Подскажите как устанавливать компоненты и где можно их скачать
|
|
|
|
22.02.2009, 17:41
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Сообщение от bogger
Подскажите как устанавливать компоненты и где можно их скачать
Скачать в яндексе или гугле, а устанавливать так:
1. Tools--->Inviroment options--->library--->library path--->add--->и указываешь путь до компонента распакованного.
2. в Папке с компонентом есть файл .dpk, ты его запускаешь и жмешь compile---->install.
3. Все, если прогло все без ошибок, то компонент поставится и будет на одной и вкладок палитры, зависит о компонента
|
|
|
|
22.02.2009, 17:50
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
Скачать в яндексе или гугле, а устанавливать так:
убил)))
p.s. сори за оффтоп
Последний раз редактировалось KIR@PRO; 22.02.2009 в 18:05..
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
