Форум АНТИЧАТ - INDY в поток.

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - INDY в поток. (https://forum.antichat.xyz/showthread.php?t=136692)

INDY в поток.

Привет всем. Нужна помощь в реализации POST запроса к сайту многопоточно.

Код:

unit Unit13;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

  IdHTTP, StdCtrls;



type

  TForm1 = class(TForm)

    IdHTTP1: TIdHTTP;

    Button1: TButton;

    Memo1: TMemo;

    Memo2: TMemo;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



tnew = class(tthread)

private

s:string;

{ private declarations }

procedure addstr;

protected

procedure execute; override;

end;

var

  Form1: TForm1;

  http1:tidhttp;

  a:longint;

  IdHTTP1: TIdHTTP;

  new1, new2: tnew;

  implementation



{$R *.dfm}







procedure tnew.addstr;

var params,responseres:tstringlist;

label method;

begin

params:=TStringList.Create;

responseres:=TStringList.Create();

idhttp1:=TidHTTP.Create(nil);

try



//здесь параметры



responseres.text:=IDHTTP1.Post('Сайт',params);



//Тут идет условие и отсылка в мемо



finally

params.free;

responseres.free;

responseres:=nil;

params:=nil;

end;



end;



procedure tnew.execute;

begin

synchronize(addstr);

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

new1 := tnew.create(true);

new1.freeonterminate := true;

new1.s := '1 thread';

new1.priority := tplowest;

new2 := tnew.create(true);

new2.freeonterminate := true;

new2.s := '2 thread';

new2.priority := tptimecritical;

new1.resume;

new2.resume;

end;



end.

Я попытался реализовать это в два потока, но отправка POST все равно идет по очереди, т.е. пока первый запрос не выполнится, второй не пойдет.
Подскажите, как лучше реализовать?

Код:

type

  PSTRUCT = ^STRUCT;

  STRUCT = record

    i,j: cardinal;

  end;





var

   tid: cardinal;

  SLemail, SLpass: TstringList;



procedure Multi(param: Pointer); stdcall;

var

  first, second: cardinal;

  full: string;

begin

  first:=integer( PSTRUCT(param).i);

  second:=integer( PSTRUCT(param).j);

  MessageBox(0,Pchar(SLEmail.Strings[first]),Pchar(SLpass[second]),0);

end;



procedure TForm1.Button1Click(Sender: TObject);

var

    i,j: integer;

    _struct: PSTRUCT;

begin

  SLEmail:=TStringList.Create; SLEMail.Clear;

  SLpass:=TStringList.Create; SLPass.Clear;

  SLEmail.Add('1@mail.ru');

  SLEmail.Add('2@mail.ru');

  SLpass.Add('password1'); SLPass.Add('password2');

  for i:=0 to SLEmail.Count -1  do

    for j:=0 to SLPass.Count -1 do begin

      Application.ProcessMessages;

      New(_struct);

      _struct^.i:=i; _struct^.j:=j;

     createthread(nil,0,@Multi,_struct,0,tid);

  end;

end;

Создаются потоки, и в каждом потоке создается мессаг содержащий email; password, которые занесены в список. Процедура Multi обработчик потока, модифицируй его по своему усмотрению. С indy не пробал, т.ч., попробуй так, если даже щас будут задержки, то придется писать POST запрос на сокетах...

Ок, щас попробую) тему пока не закрывайте.