Niedziałające Indy zadeklarowane w wątku

0

Witam, mam mały problem, Indy nie chce wykonywać kodu zawartego w wątku

Kod procedure Execute wątku:

procedure TQuery.Execute;
var
  I: LongInt;
  Client: TIdHTTP;
  POSTParams: TStringStream;
begin
  FreeOnTerminate := True;
  Client:=  TIdHTTP.Create(nil);

  POSTParams := TStringStream.Create(MultiQueryBOTFrm.GETPOSTEdit.Text);
  Client.ReadTimeout:=  StrToInt(MultiQueryBOTFrm.ReadTimeOutEdit.Text);
  Client.HandleRedirects := True;
  Client.Request.ContentType := 'application/x-www-form-urlencoded';

  if MultiQueryBOTFrm.UseProxyCheck.Checked then
    for I:=1 to StrToInt(MultiQueryBOTFrm.RepeatEdit.Text) do
    begin
      if MultiQueryBOTFrm.MethodType.Text = 'GET' then
        Client.Get(MultiQueryBOTFrm.URLEdit.Text+'?'+MultiQueryBOTFrm.GETPOSTEdit.Text)
      else
        Client.Post(MultiQueryBOTFrm.URLEdit.Text, POSTParams)
    end;
  Client.Free;
end;

Wątek wywołuję przez

Client:= TQuery.Create(False);
0

Moze sie myle ale ten get to powinien chyba byc gdzies zapisany co nie?

Client.Get(MultiQueryBOTFrm.URLEdit.Text+'?'+MultiQueryBOTFrm.GETPOSTEdit.Text, jakisstrumiendanych)

Choc dobrze by bylo abys napisal co dokladnie ci nie dziala co chcesz uzyskac :)

poza tym tutaj chyba nie musisz podawac nil'a

Client:=  TIdHTTP.Create(nil);
0

Po prostu funkcja Get() ani Post() nie zwraca żadnej wartości, tak jak by nie było wykonywane.

1 użytkowników online, w tym zalogowanych: 0, gości: 1