HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 24.10.2009, 16:45
mailbrush
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме:
6075534

Репутация: 2731


Отправить сообщение для mailbrush с помощью ICQ
По умолчанию

Цитата:
Сообщение от DiHWO  
ребят, есть статья по отправке сокетов через хттп протокол? оч надо.
Если тебе надо для теста, а не для написания сложных программ, то можешь юзать Indy. Это встроенный компоннент Delphi.

WinSock, конечно, лучше, но его используй потом - когда освоишь азы протокола
 
Ответить с цитированием

  #2  
Старый 24.10.2009, 16:40
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию

Как узнать сколько времени у таймера осталось? Без камасутры
 
Ответить с цитированием

  #3  
Старый 24.10.2009, 16:47
sherlock
Новичок
Регистрация: 22.08.2009
Сообщений: 2
Провел на форуме:
661915

Репутация: 27
Отправить сообщение для sherlock с помощью ICQ
По умолчанию

Прога должна отправлять собщение на ICQ.

Но не отправляет, почему???

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.UIN:=strtoint('555453705');
ICQClient1.Password:='lODZjetE';
ICQClient1.ICQServer:='login.icq.com';
ICQClient1.ICQPort:=strtoint('5190');
ICQClient1.Login();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ICQClient1.SendMessage(StrToInt64('554104078'),'He llo!!!TEST!!!');
end;
 
Ответить с цитированием

  #4  
Старый 24.10.2009, 16:59
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию

Цитата:
Сообщение от sherlock  
Прога должна отправлять собщение на ICQ.

Но не отправляет, почему???

procedure TForm1.Button1Click(Sender: TObject);
begin
ICQClient1.UIN:=strtoint('555453705');
ICQClient1.Password:='lODZjetE';
ICQClient1.ICQServer:='login.icq.com';
ICQClient1.ICQPort:=strtoint('5190');
ICQClient1.Login();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ICQClient1.SendMessage(StrToInt64('554104078'),'He llo!!!TEST!!!');
end;

Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
ICQClient1.SendMessage(554104078,'Hello!!!TEST!!!');
end;
Кстати:

Код:
ICQClient1.UIN:=555453705;

Последний раз редактировалось НTL; 24.10.2009 в 17:08..
 
Ответить с цитированием

  #5  
Старый 24.10.2009, 17:08
sherlock
Новичок
Регистрация: 22.08.2009
Сообщений: 2
Провел на форуме:
661915

Репутация: 27
Отправить сообщение для sherlock с помощью ICQ
По умолчанию

Цитата:
Сообщение от НTL  
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
ICQClient1.SendMessage(554104078,'Hello!!!TEST!!!');
end;
Нероботает...
 
Ответить с цитированием

  #6  
Старый 24.10.2009, 17:10
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию

Цитата:
Сообщение от sherlock  
Нероботает...

Анти-спам на 554104078 есть? Если до то добавь 555453705 в КЛ 554104078
 
Ответить с цитированием

  #7  
Старый 24.10.2009, 22:04
>>serhio<<
Познающий
Регистрация: 10.02.2009
Сообщений: 40
Провел на форуме:
59352

Репутация: 0
По умолчанию

Вообщем нужна помощь на Turbo Pascale: идет условие задачи, далше мой 1 вариант ее решения и второй только в их нужно подправить.На деюсь на ваши отклики!
Задание:
Разработать программу табулирования функций для произвольного диапазона изменения независимого параметра или аргумента.Выполнить расчет для использованных исходных значенийж: х=1-2*cos(a*y)+ln(y), a=log2(y),y є [П;2*П] ∆y=П/4
Результаты вывести в следующем виде:
Значение аргумента,значение вспомагательной функции и результата.
В программу включить ввод исходных данных и проверку диапазона от -100 до 100.Начальное значение меньше конечного, шаг разности от начального и конечного.
program primer 1;
det=pi/4;
b=2*pi;
var
a,y,x:real;
begin
y:=b;
cohile y < = с do
a:=ln (y)/ln(2);
x:=1-2*cos(a*y)+ln(y);
writeln(x,a,y);
y:=y+dety;
end;
readln;
end.
program primer2;
x,y,a,b,c,dety:real;
i,n:integer
begin
y:=pi;
b:=pi;
c:=2*pi;
det y:=pi/4;
n:=trune ((b-a)/det y);
for i:=0 to n do
begin
y:=a+(detx*i);
a:=logln(y)/ln(2);
x:=1-2*cos(a*y)+ln(y);
writeln(x,a,y);
end;
readln;
end.
 
Ответить с цитированием

  #8  
Старый 25.10.2009, 09:22
DiHWO
Участник форума
Регистрация: 23.10.2009
Сообщений: 103
Провел на форуме:
289669

Репутация: 7
По умолчанию

Тааак, из одного вопроса вытекает другой. Какие приемущества инди? И почему его не любят кодеры высокого класса? Я конечно к ним не отношусь, просто интересно ))) Кста, нашел я себе учебник...сижу теперь, учу сокеты...

Последний раз редактировалось DiHWO; 25.10.2009 в 09:42..
 
Ответить с цитированием

  #9  
Старый 25.10.2009, 10:29
mailbrush
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме:
6075534

Репутация: 2731


Отправить сообщение для mailbrush с помощью ICQ
По умолчанию

Цитата:
Сообщение от DiHWO  
Тааак, из одного вопроса вытекает другой. Какие приемущества инди? И почему его не любят кодеры высокого класса? Я конечно к ним не отношусь, просто интересно ))) Кста, нашел я себе учебник...сижу теперь, учу сокеты...
Инди - с одной стороны имеют приемущества, а с другой - недостатки. Приемущества для новичков - всё делается очень - просто. Даже HTTP-заголовков учить не надо. Вот, например, чтобы послать запрос на страничку ачата, достаточно в код добавить строчку:
Код:
Memo1.Text := IdHTTP1.Get('http://forum.antichat.ru');
Соответственно в Memo1 будет исходник странички. Простота - это и есть приемущество инди.

А теперь о недостатках - кодерам, которые программируют программы для работы с сетью инди не подходит. Почему? Потому что он достаточно медленный + такими простыми запросами, как IdHTTP1.Get не обойтись Да и вообще - лучше всего учиться на практике, поэтому с опытом поймешь...
 
Ответить с цитированием

  #10  
Старый 25.10.2009, 13:50
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


Отправить сообщение для НTL с помощью ICQ
По умолчанию

Цитата:
Сообщение от DiHWO  
Тааак, из одного вопроса вытекает другой. Какие приемущества инди? И почему его не любят кодеры высокого класса? Я конечно к ним не отношусь, просто интересно ))) Кста, нашел я себе учебник...сижу теперь, учу сокеты...
Инди дохнет к примеру если послать 1к+ запросов (Каждые 10сек) то он начнет парить...
Плюс еще инди сам выполняет перенаправление на другую страницу...
 
Ответить с цитированием
Ответ



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



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


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




ANTICHAT.XYZ