ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

24.10.2009, 16:45
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме: 6075534
Репутация:
2731
|
|
Сообщение от DiHWO
ребят, есть статья по отправке сокетов через хттп протокол? оч надо.
Если тебе надо для теста, а не для написания сложных программ, то можешь юзать Indy. Это встроенный компоннент Delphi.
WinSock, конечно, лучше, но его используй потом - когда освоишь азы протокола 
|
|
|

24.10.2009, 16:40
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме: 5209663
Репутация:
357
|
|
Как узнать сколько времени у таймера осталось? Без камасутры
|
|
|

24.10.2009, 16:47
|
|
Новичок
Регистрация: 22.08.2009
Сообщений: 2
Провел на форуме: 661915
Репутация:
27
|
|
Прога должна отправлять собщение на 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;
|
|
|

24.10.2009, 16:59
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме: 5209663
Репутация:
357
|
|
Сообщение от 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..
|
|
|

24.10.2009, 17:08
|
|
Новичок
Регистрация: 22.08.2009
Сообщений: 2
Провел на форуме: 661915
Репутация:
27
|
|
Сообщение от НTL
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
ICQClient1.SendMessage(554104078,'Hello!!!TEST!!!');
end;
Нероботает...
|
|
|

24.10.2009, 17:10
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме: 5209663
Репутация:
357
|
|
Сообщение от sherlock
Нероботает...
Анти-спам на 554104078 есть? Если до то добавь 555453705 в КЛ 554104078
|
|
|

24.10.2009, 22:04
|
|
Познающий
Регистрация: 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.
|
|
|

25.10.2009, 09:22
|
|
Участник форума
Регистрация: 23.10.2009
Сообщений: 103
Провел на форуме: 289669
Репутация:
7
|
|
Тааак, из одного вопроса вытекает другой. Какие приемущества инди? И почему его не любят кодеры высокого класса? Я конечно к ним не отношусь, просто интересно ))) Кста, нашел я себе учебник...сижу теперь, учу сокеты...
Последний раз редактировалось DiHWO; 25.10.2009 в 09:42..
|
|
|

25.10.2009, 10:29
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
Провел на форуме: 6075534
Репутация:
2731
|
|
Сообщение от DiHWO
Тааак, из одного вопроса вытекает другой. Какие приемущества инди? И почему его не любят кодеры высокого класса? Я конечно к ним не отношусь, просто интересно ))) Кста, нашел я себе учебник...сижу теперь, учу сокеты...
Инди - с одной стороны имеют приемущества, а с другой - недостатки. Приемущества для новичков - всё делается очень - просто. Даже HTTP-заголовков учить не надо. Вот, например, чтобы послать запрос на страничку ачата, достаточно в код добавить строчку:
Код:
Memo1.Text := IdHTTP1.Get('http://forum.antichat.ru');
Соответственно в Memo1 будет исходник странички. Простота - это и есть приемущество инди.
А теперь о недостатках - кодерам, которые программируют программы для работы с сетью инди не подходит. Почему? Потому что он достаточно медленный + такими простыми запросами, как IdHTTP1.Get не обойтись  Да и вообще - лучше всего учиться на практике, поэтому с опытом поймешь...
|
|
|

25.10.2009, 13:50
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме: 5209663
Репутация:
357
|
|
Сообщение от DiHWO
Тааак, из одного вопроса вытекает другой. Какие приемущества инди? И почему его не любят кодеры высокого класса? Я конечно к ним не отношусь, просто интересно ))) Кста, нашел я себе учебник...сижу теперь, учу сокеты...
Инди дохнет к примеру если послать 1к+ запросов (Каждые 10сек) то он начнет парить...
Плюс еще инди сам выполняет перенаправление на другую страницу...
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|