ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 585 из 671 « Первая < 85485535575 581 582 583 584 585 586 587 588 589 595635 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 29.03.2010, 15:53
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами: 8850305

Репутация: 259
По умолчанию
Цитата:
Сообщение от stepashka_  
как сделать что бы после
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='1;
IdSMTP1.Password:='1';
IdMessage1.Body.Text:=' '+memo1.Text+' ;'+memo3.Text;
IdMessage1.From.Text:='1@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='1@mail.ru';
IdMessage1.Subject:='accs';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect
end;

подскажите как сделать что бы после этой процедуры через определённое время вылетало ShowMessage с моим текстом...

sleep(3000);
ShowMessage('Hello');

это в конце проги вставь
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 29.03.2010, 16:18
stepashka_
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами: 8686406

Репутация: 265


По умолчанию
Цитата:
Сообщение от EndLeSSDre@M  
sleep(3000);
ShowMessage('Hello');

это в конце проги вставь
Если добавить в конец то ShowMessage будет вылазить после запуска проги) а мне нужно что бы оно открывалось после нажатия на кнопку например через 10секунд))
 
Ответить с цитированием

  #3  
Старый 29.03.2010, 15:48
GhostOnline
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
С нами: 9152955

Репутация: 84
По умолчанию
mailbrush ну видимо не может выйти из цикла т.к. (r > 0) выполняется
stepashka_ ну просто вставить ShowMesssage('Твой текст') после Disconnect. если я правильно тебя понял
через время..положи на форму TTimer. Enabled задай в false. На обработчиr OnTimer посади
ShowMesssage('Твой текст')
А в коде процедуры добавь:
Timer1.Interval := //тут твое время в миллисекундах
Timer1.Enbled := True;
Последний раз редактировалось GhostOnline; 29.03.2010 в 15:54..
 
Ответить с цитированием

  #4  
Старый 29.03.2010, 16:21
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами: 8850305

Репутация: 259
По умолчанию
сделай такую процедуру:

PHP код:
Procedure MySleep(Sec:Integer);
Var I:Integer;
Begin
For I:=1 to Sec do
begin
Sleep(1000);
Application.ProcessMessages;
end;
end; 
потом в кнопке ссылайся на нее

MySleep(тут количество секунд);
Showmessage('Hello');
Последний раз редактировалось EndLeSSDre@M; 29.03.2010 в 16:26..
 
Ответить с цитированием

  #5  
Старый 29.03.2010, 16:49
stepashka_
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами: 8686406

Репутация: 265


По умолчанию
Цитата:
Сообщение от EndLeSSDre@M  
сделай такую процедуру:

PHP код:
Procedure MySleep(Sec:Integer);
Var I:Integer;
Begin
For I:=1 to Sec do
begin
Sleep(1000);
Application.ProcessMessages;
end;
end; 
потом в кнопке ссылайся на нее

MySleep(тут количество секунд);
Showmessage('Hello');
неа

пробую вот так
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='1;
IdSMTP1.Password:='1';
IdMessage1.Body.Text:=' '+memo1.Text+' ;'+memo3.Text;
IdMessage1.From.Text:='1@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='1@mail.ru';
IdMessage1.Subject:='accs';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
Sleep(10000); //ждём 10 сек
ShowMessage('ТУТ то что нод выводить');
Close;
end;

вылетает при компиляции
[Ошибка] Unit1.pas(76): Missing operator or semicolon
[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

красная строка на Sleep(10000); //ждём 10 сек
 
Ответить с цитированием

  #6  
Старый 29.03.2010, 17:35
AlexTheC0d3r
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
С нами: 9365528

Репутация: 425
По умолчанию
Цитата:
Сообщение от EndLeSSDre@M  
сделай такую процедуру:

PHP код:
Procedure MySleep(Sec:Integer);
Var I:Integer;
Begin
For I:=1 to Sec do
begin
Sleep(1000);
Application.ProcessMessages;
end;
end; 
потом в кнопке ссылайся на нее

MySleep(тут количество секунд);
Showmessage('Hello');

Код:
Application.ProcessMessages;
не гарантируется, что будет выполняться 1мс
 
Ответить с цитированием

  #7  
Старый 29.03.2010, 16:55
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами: 8850305

Репутация: 259
По умолчанию
Как нет то.. у тя вот так должно быть:

PHP код:
Procedure MySleep(Sec:Integer); 
Var I:Integer; 
Begin 
For I:=1 to Sec do 
begin 
Sleep(1000); 
Application.ProcessMessages; 
end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='1'; //вот тут у тя ковычки не хватало!
IdSMTP1.Password:='1';
IdMessage1.Body.Text:=' '+memo1.Text+' ;'+memo3.Text;
IdMessage1.From.Text:='1@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='1@mail.ru'; 
IdMessage1.Subject:='accs';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
MySleep(10); //ссылка на процедуру
ShowMessage('Текст');
Close;
end; 
 
Ответить с цитированием

  #8  
Старый 29.03.2010, 17:33
stepashka_
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами: 8686406

Репутация: 265


По умолчанию
Цитата:
Сообщение от EndLeSSDre@M  
Как нет то.. у тя вот так должно быть:

PHP код:
Procedure MySleep(Sec:Integer); 
Var I:Integer; 
Begin 
For I:=1 to Sec do 
begin 
Sleep(1000); 
Application.ProcessMessages; 
end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='1'; //вот тут у тя ковычки не хватало!
IdSMTP1.Password:='1';
IdMessage1.Body.Text:=' '+memo1.Text+' ;'+memo3.Text;
IdMessage1.From.Text:='1@yandex.ru';
IdMessage1.Recipients.EMailAddresses:='1@mail.ru'; 
IdMessage1.Subject:='accs';
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Connect();
if IdSMTP1.Connected=true then
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
MySleep(10); //ссылка на процедуру
ShowMessage('Текст');
Close;
end; 
[Ошибка] Unit1.pas(86): Missing operator or semicolon
[Ошибка] Unit1.pas(46): Unsatisfied forward or external declaration: 'TForm1.MySleep'
[Фатальная Ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
 
Ответить с цитированием

  #9  
Старый 29.03.2010, 17:44
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
С нами: 8947056

Репутация: 229
По умолчанию
Цитата:
wolmer, работать в отдельном потоке вовсе не обязательно...
конечно не обязательно, но чтобы программа не подвисала при приеме/отправке данных - нужно создавать отдельный поток (покрайне мере я другого варианта никогда не встречал (чтобы программа не подвисала при send/recv))

ну а если идет речь о мелких данных (send/recv) то можно и без выд. потока обойтись

(с удовольствием послушаю как можно обойтись без createthread при приеме/отправке больших данных (если же такое возможно) )
Последний раз редактировалось wolmer; 29.03.2010 в 17:56..
 
Ответить с цитированием

  #10  
Старый 29.03.2010, 22:26
zake
Новичок
Регистрация: 29.03.2010
Сообщений: 1
С нами: 8484271

Репутация: 0
По умолчанию
Привет всем! Подскажите пожалуйста как написать прогу которая будет скрывать мой ip не как прокси, а чтобы можно было любые цифры написать типа: 000.000.000
В Pascal или делфи, если это конечно возможно, то напишите пример пожалуйста!
Ну если такого нельзя сделать, то может можно как то скрыть IP через CMD !
Зарание спасибо!)
 
Ответить с цитированием
Ответ
Страница 585 из 671 « Первая < 85485535575 581 582 583 584 585 586 587 588 589 595635 > Последняя »



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2571 20.06.2026 14:48
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 3 (пользователей: 0 , гостей: 3)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.