Форум АНТИЧАТ - [Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz

		Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 547 из 677

547

Опции темы

Поиск в этой теме

Опции просмотра

#5461

14.01.2010, 20:50

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

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

Цитата:

Сообщение от iGlass

Всем доброго времени суток!

У меня есть вопрос, возможно он глуп но всё же...

Этот код работает на ура...

---------------------------------------------
А этот молчит...

В чём причина?

Заранее спасибо.

Не знаю как у тебя но у меня: Форум АНТИЧАТ - Mozilla Firefox

Вот тебе пища для размышления

#5462

14.01.2010, 20:54

iGlass

Познающий

Регистрация: 14.05.2009

Сообщений: 92

Провел на форуме:
299447

Репутация: 5

Ухахаха, вот я лол :-))) Спасибо ))

#5463

15.01.2010, 18:27

Uname-A

Познающий

Регистрация: 19.08.2008

Сообщений: 69

Провел на форуме:
458484

Репутация: 31

Цитата:

Сообщение от НTL

Как выкинуть диалоговое окно из потока?
Что будет с WebBrowser если нету IE?

1.
synchronize(procedure
begin
showmessage('пыщ пыщ');
end);
2.
Могу предположить, что компонент просто откажется работать, покажет какую нить дефолтную страничку о ошибке

#5464

18.01.2010, 08:47

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

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

#5465

18.01.2010, 10:35

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

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

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

#5466

18.01.2010, 13:56

~~Пуховой~~

Banned

Регистрация: 25.11.2007

Сообщений: 62

Провел на форуме:
1702086

Репутация: 89

Цитата:

Покажите на примеры как отправить гет запрос в 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; - и все, готово.

#5467

19.01.2010, 22:20

НTL

Постоянный

Регистрация: 26.01.2008

Сообщений: 796

Провел на форуме:
5209663

Репутация: 357

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

ПС: Кто в курсе тот поймет

#5468

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;

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

#5469

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;

#5470

20.01.2010, 10:45

denjf

Участник форума

Регистрация: 12.11.2008

Сообщений: 146

Провел на форуме:
592199

Репутация: 21

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

Страница 547 из 677

547

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/WPAN/WLAN	2564	06.04.2026 23:31
[ *NIX ] Задай вопрос - получи ответ.	Xszz	*nix	1547	15.06.2010 15:41
[jQuery] - Задай вопрос, получи ответ	Isis	PHP, PERL, MySQL, JavaScript	62	25.12.2009 03:25
ЕсТь ВоПрос	Guma	Чаты	4	26.10.2005 21:48

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

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