ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 594 из 677 « Первая < 94494544584 590 591 592 593 594 595 596 597 598 604644 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

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

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

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

Репутация: 259
Отправить сообщение для EndLeSSDre@M с помощью ICQ
По умолчанию
Цитата:
Сообщение от 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');

это в конце проги вставь
 
Ответить с цитированием

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

Репутация: 265


Отправить сообщение для stepashka_ с помощью ICQ
По умолчанию
Цитата:
Сообщение от EndLeSSDre@M  
sleep(3000);
ShowMessage('Hello');

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

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

Репутация: 259
Отправить сообщение для EndLeSSDre@M с помощью ICQ
По умолчанию
сделай такую процедуру:

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..
 
Ответить с цитированием

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

Репутация: 265


Отправить сообщение для stepashka_ с помощью ICQ
По умолчанию
Цитата:
Сообщение от 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 сек
 
Ответить с цитированием

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

Репутация: 259
Отправить сообщение для EndLeSSDre@M с помощью ICQ
По умолчанию
Как нет то.. у тя вот так должно быть:

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; 
 
Ответить с цитированием

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

Репутация: 265


Отправить сообщение для stepashka_ с помощью ICQ
По умолчанию
Цитата:
Сообщение от 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'
 
Ответить с цитированием

  #5938  
Старый 29.03.2010, 17:35
AlexTheC0d3r
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135

Репутация: 425
Отправить сообщение для AlexTheC0d3r с помощью ICQ
По умолчанию
Цитата:
Сообщение от 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мс
 
Ответить с цитированием

  #5939  
Старый 29.03.2010, 17:44
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503

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

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

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

  #5940  
Старый 29.03.2010, 21:34
TrueBit
Познающий
Регистрация: 21.11.2009
Сообщений: 77
Провел на форуме:
2482290

Репутация: 29
По умолчанию
Цитата:
Сообщение от s0l_ir0n  
PHP код:
function CenterWindow(Wnd:HWND):boolean;
var
 R:TRect;
 X,Y,W,H:integer;
begin  
  GetWindowRect(Wnd, R);
  W:=GetSystemMetrics(SM_CXSCREEN);
  H:=GetSystemMetrics(SM_CYSCREEN);
  X := (W div 2) - ((R.Right - R.Left) div 2);
  Y := (H div 2) - ((R.Bottom - R.Top) div 2);
  result:=SetWindowPos(Wnd, 0, X, Y, 0, 0, SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE)
end; 
Спасибо!
А как считать содержимое edit1?
 
Ответить с цитированием
Ответ
Страница 594 из 677 « Первая < 94494544584 590 591 592 593 594 595 596 597 598 604644 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/WPAN/WLAN 2564 06.04.2026 23:31
[ *NIX ] Задай вопрос - получи ответ. Xszz *nix 1547 15.06.2010 15:41
[jQuery] - Задай вопрос, получи ответ Isis PHP, PERL, MySQL, JavaScript 62 25.12.2009 03:25
ЕсТь ВоПрос Guma Чаты 4 26.10.2005 21:48



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


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




ANTICHAT.XYZ