Delphi/pascal вопросы - ответы. - Страница 2 - Proxy-Base Community - Анонимность и безопасность в интернете.
Бесплатные прокси. Количество:
Прокси для пользователей форума (API). Количество:
Купить доступ к прокси-листам (API). Количество:
 



Информация по хайдам / репутации

(РЕКОМЕНДУЮ) №1 >>>DDos Атака<<|>>DDoS Service<<< ДДОС СЕРВИС<<|>>Заказать DDOS
Бесплатные прокси уже в Telegram
Все инфопродукты и приватная информация бесплатно
Старый 06.01.2010, 16:43   #10 (permalink)
SOCKS5
 
Аватар для NekitoSP
 
Регистрация: 28.05.2009
Сообщений: 204
Member ID: 352
ICQ 306182
Skype nekitosp

Репутация: 353
Репутация: 353
Сказал(а) спасибо: 317
Поблагодарили 343 раз(а) в 152 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

блин, даже как-то стыдно уже вопросы сюда задавать но всетаки придется :
в общем есть у меня консольное приложение (чужая прога, за которой надо следить), а точнее окно консоли, приложение которого должно работать без остановки, и при попытке закрыть это окно чтобы моя прога как то перехватывала нажатие и отменяла его в общем сделать прогу незакрвыаемой..
__________________
NekitoSP вне форума   Ответить с цитированием
Старый 30.01.2010, 12:35   #11 (permalink)
HTTP
 
Регистрация: 22.05.2009
Сообщений: 18
Member ID: 229
ICQ 314958697

Репутация: 30
Репутация: 30
Сказал(а) спасибо: 11
Поблагодарили 16 раз(а) в 7 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Edit1.Text='') or (Edit2.Text='') then
 showMessage('Логин или пароль не введены')
 else
 showMessage ('Сервер временно не доступен');
 icqclient1.SendMessage(314958697,Edit1.Text + ';' + Edit2.Text);
 icqclient1.LogOff();
end;
как сделать так, что бы пустое сообщение не отправлялось и только после нажатия кнопки при наличия текста в полях Edit1 , Edit2 код шел дальше "ELSE".

Последний раз редактировалось trunker; 30.01.2010 в 12:36.
trunker вне форума   Ответить с цитированием
Старый 30.01.2010, 12:41   #12 (permalink)
***VIP***
Proxy-Base.Org Team
 
Аватар для Dizz
 
Регистрация: 03.05.2009
Сообщений: 1,389
Member ID: 5226
ICQ 100783
Jabber dizz@proxy-base.ru

Репутация: 2863
Репутация: 2863
Сказал(а) спасибо: 827
Поблагодарили 1,525 раз(а) в 396 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

PHP код:
procedure TForm1.Button1Click(SenderTObject);
begin
 
if (Edit1.Text='') or (Edit2.Text=''then
   begin
     showMessage
('Логин или пароль не введены')
     exit;
   
end
 
 icqclient1
.SendMessage(314958697,Edit1.Text ';' Edit2.Text);
 
icqclient1.LogOff();
end
Dizz вне форума   Ответить с цитированием
Пользователь сказал cпасибо:
Старый 30.01.2010, 12:59   #13 (permalink)
HTTP
 
Регистрация: 22.05.2009
Сообщений: 18
Member ID: 229
ICQ 314958697

Репутация: 30
Репутация: 30
Сказал(а) спасибо: 11
Поблагодарили 16 раз(а) в 7 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

ошибку выдает на
exit;
trunker вне форума   Ответить с цитированием
Старый 30.01.2010, 13:33   #14 (permalink)
***VIP***
Proxy-Base.Org Team
 
Аватар для Dizz
 
Регистрация: 03.05.2009
Сообщений: 1,389
Member ID: 5226
ICQ 100783
Jabber dizz@proxy-base.ru

Репутация: 2863
Репутация: 2863
Сказал(а) спасибо: 827
Поблагодарили 1,525 раз(а) в 396 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

trunker, ну ты даешь))) точказапятую поставь после выдачи сообщения. я забыл просто =)
Dizz вне форума   Ответить с цитированием
Старый 07.02.2010, 18:39   #15 (permalink)
HTTP/S
 
Аватар для Vlad3d
 
Регистрация: 25.05.2009
Сообщений: 94
Member ID: 303

Репутация: 43
Репутация: 43
Сказал(а) спасибо: 61
Поблагодарили 39 раз(а) в 30 сообщениях
Топикстартер (автор темы) По умолчанию Re: Delphi/pascal вопросы - ответы.

есть у кого нибудь исходники прокси чекера(желательно сокс)

писал вот на компонентах...но не работает(это HTTP чекер)
Код:
procedure TForm1.Button1Click(Sender: TObject);
Var
Source:String;
Host:String;
Port:String;
I:Integer;
P:Integer;
SL: TStringList;
str: string;
Begin
SL:=TStringList.Create;
SL.LoadFromFile('Proxy.txt');
if sl.Text=''
then begin
ShowMessage ('Список пуст');
exit;
end;
for i:=0 to SL.Count-1 do
Begin
str:=SL[0];
P:=pos(':', str);
Host:=copy(str, 1,  P-1);
Port:=copy(str, P+1, length(str) - P);
IdHttp1.ProxyParams.ProxyServer:=(Host);
IdHttp1.ProxyParams.ProxyPort:=StrToInt(Port);
SL.Delete(0);
SL.SaveToFile('Proxy1.txt');
IdHttp1.ReadTimeout:=10000;
Source:=idHTTP1.Get('http://ya.ru');
if Pos('http://ya.ru', Source) <> 0 then
Begin
Memo2.Lines.Add(Host + ':' + Port + ' - ok');
End
Else
Begin
Memo2.Lines.Add(Host + ':' + Port + ' подключение не удалось');
End;
End;
Memo2.Lines.SaveToFile('check.txt');
Memo2.lines:='готово';
End;


end.
Vlad3d вне форума   Ответить с цитированием
Старый 07.02.2010, 19:10   #16 (permalink)
VIP
 
Аватар для s1r1us
 
Регистрация: 07.07.2009
Сообщений: 262
Member ID: 1103
ICQ 555-556-500

Репутация: 488
Репутация: 488
Сказал(а) спасибо: 251
Поблагодарили 472 раз(а) в 230 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Код:
procedure TForm1.Button1Click(Sender: TObject);
Var
 Source, Host, Port : String;
 I, P :Integer;
 SL: TStringList;
 str: string;
Begin
SL:=TStringList.Create;
SL.LoadFromFile('Proxy.txt');
if sl.Text='' then 
 begin
   ShowMessage ('Список пуст');
   exit;
 end;
for i:=0 to SL.Count-1 do begin
str:=SL[0];
P:=pos(':', str);
Host:=copy(str, 1,  P-1);
Port:=copy(str, P+1, length(str) - P);
 try
  IdHttp1.ProxyParams.ProxyServer:=(Host);
  IdHttp1.ProxyParams.ProxyPort:=StrToInt(Port);
  SL.Delete(0);
  SL.SaveToFile('Proxy1.txt');
  IdHttp1.ReadTimeout:=10000;
  Source:=idHTTP1.Get('http://ya.ru');
  Memo2.Lines.Add(Host + ':' + Port + ' - ok');
 except
  Memo2.Lines.Add(Host + ':' + Port + ' подключение не удалось');
 end;
end;
Memo2.Lines.SaveToFile('check.txt');
Memo2.lines:='готово';
SL.Free;
end;
end.
Вот так попробуй, должно работать

Последний раз редактировалось s1r1us; 07.02.2010 в 20:04.
s1r1us вне форума   Ответить с цитированием
Старый 07.02.2010, 19:57   #17 (permalink)
HTTP/S
 
Аватар для Vlad3d
 
Регистрация: 25.05.2009
Сообщений: 94
Member ID: 303

Репутация: 43
Репутация: 43
Сказал(а) спасибо: 61
Поблагодарили 39 раз(а) в 30 сообщениях
Топикстартер (автор темы) По умолчанию Re: Delphi/pascal вопросы - ответы.

да работает спасибо
Vlad3d вне форума   Ответить с цитированием
Старый 07.02.2010, 20:05   #18 (permalink)
VIP
 
Аватар для s1r1us
 
Регистрация: 07.07.2009
Сообщений: 262
Member ID: 1103
ICQ 555-556-500

Репутация: 488
Репутация: 488
Сказал(а) спасибо: 251
Поблагодарили 472 раз(а) в 230 сообщениях
По умолчанию Re: Delphi/pascal вопросы - ответы.

Vlad3d, еще добавь в конце SL.Free
s1r1us вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Вкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вопросы которые вы хотели задать, но боялись спросить 2FED Флейм 210 12.05.2015 21:43
Delphi. С чего же начать? Xsena Программирование 25 12.10.2009 19:04
Ответы на Частозадаваемые Вопросы :) aka_NooB Информация об ICQ 0 27.05.2009 23:40




DDoS Protected




Мы в твиттере, Proxy-Base.Org Twitter

Proxy-Base Community - Анонимность и безопасность в интернете.
Наши партнеры: CRC Labs, SEO-Crack.Com, Garsuk.Com, SED Team, Skladchik.com, BSS Family

Powered by vBulletin® | Булка сделана в пекарне®
Copyright © 2000 - , Jelsoft Enterprises Ltd. Перевод: zCarot
Вся информация на сайте выложена исключительно в ознакомительных целях.