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

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

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

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

26.10.2008, 04:43

diznt

Постоянный

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

Сообщений: 643

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

Репутация: 445

Знающие люди подскажите в чем моя ошибка?
Пишу флудер для гостевухи... (особо ее не флудить... я так для набива рук написал)

Это потоки:

Код:

procedure Fluder.Execute;
var
 list:TStringList;
 a,b,c,d,e,r:string;
begin
 randomize;
 a:='оаыве';
 b:='нецйг';
 c:='зъхлр';
 d:='кунуй';
 e:='иьпар';
 r:=a[Random(Length(a))]+b[Random(Length(b))]+d[Random(Length(c))]+e[Random(Length(e))]+c[Random(Length(c))];
 idhttp1.Create(nil);
 list:=TStringList.Create;
 list.Add('name='+r);
 list.Add('txt='+r);
 list.Add('send=1');
 IdHTTP1.Post('http://www.ko-luch.ru/cgi-bin/gbform.cgi',list);
 list.Free;
end;

procedure Fluder.IdHTTP1Redirect(Sender: TObject; var dest: String;
  var NumRedirect: Integer; var Handled: Boolean;
  var VMethod: TIdHTTPMethod);
begin
 Handled:= TRUE;
end;

Это форма:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i,count:integer;
 Potoki:array of fluder;
begin
 count:=strtoint(edit1.Text);
 SetLength(Potoki,count);
 for i:=0 to count-1 do
  begin
  Potoki[i]:=fluder.Create(true);
  Potoki[i].resume;
  Potoki[i].Priority:= tpLower;
  end;
end;

Ругаеться на строку idhttp1.Create(nil); (в потоках) когда я жмякаю на кнопку (на форме)

ЗЫ особо не ругайте за мой тупой рандомайз/рандом

Последний раз редактировалось diznt; 26.10.2008 в 04:46..