invalid pointer operation странно...

[foma9999]

procedure TForm1.startClick(Sender: TObject);
begin

idhttp1.ConnectTimeout:=0;
idhttp1.ReadTimeout:=0;
start.Enabled:=false;
stop.Enabled:=true;

  if checkbox1.Checked=true then begin
idhttp1.Get('http://www.qweqwe/qwe.php1?n='+number.Text+'&ag='+agkey.Text+'&kol='+inttostr(kolvo.Value-1)+'&id=1');
idhttp1.FreeInstance;
start.Enabled:=true;
stop.Enabled:=false;

   end;


  if checkbox1.Checked=false then begin
idhttp1.Get('http://www.qweqwe/qwe.php?n='+number.Text+'&kol='+inttostr(kolvo.Value-1)+'&id=1');
idhttp1.FreeInstance;
start.Enabled:=true;
stop.Enabled:=false;
end;


end;
procedure TForm1.stopClick(Sender: TObject);
begin
start.Enabled:=true;
stop.Enabled:=false;
idhttp1.FreeInstance;
end;

Вылазит ошибка

потом эта


В чем дело?)

[Пепел Феникса]

idhttp1.FreeInstance;
это выкинуть в топку, вы сами это придумали?

[GunSmoker]

Он ещё спрашивает в чём дело.... OMG

[foma9999]

да, сам)
А как тогда остановить поток?
Просто free?

[Somebody]

[off]

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

SmsFlooder.png
Ай-ай, как нехорошо
[/off]

[Пепел Феникса]

начнем с того что у вас потока вообще нет.

[foma9999]

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

[off]

Вложение 35355
Ай-ай, как нехорошо
[/off]

:D


_______________


Вот, обновил код, вроде все ок, но вылазит http://clip2net.com/clip/m51278/1296...-clip-11kb.jpg
при повторном запуске флуда

код

procedure TForm1.startClick(Sender: TObject);
begin

idhttp1.ConnectTimeout:=60000000;
idhttp1.ReadTimeout:=60000000;
start.Enabled:=false;
stop.Enabled:=true;

if checkbox1.Checked=true then begin
idhttp1.Get('http://www.ta/od.php?n='+number.Text+'&ag='+agkey.Text+'&kol='+inttostr(kolvo.Value-1)+'&id=1');
idhttp1.Disconnect;
idhttp1.Free;
start.Enabled:=true;
stop.Enabled:=false;
idhttp1.Disconnect;

   end;


  if checkbox1.Checked=false then begin
idhttp1.Get('http://wodno.php?n='+number.Text+'&kol='+inttostr(kolvo.Value-1)+'&id=1');
idhttp1.Disconnect;
idhttp1.Free;
start.Enabled:=true;
stop.Enabled:=false;
end;


end;
procedure TForm1.stopClick(Sender: TObject);
begin
start.Enabled:=true;
stop.Enabled:=false;
idhttp1.Get('http://www.d.php?stop=1');
idhttp1.Get('http://www.no.php?stop=1');
idhttp1.Disconnect;
idhttp1.Free;
end;

[Пепел Феникса]

уберите свое Free и Disconect

поймите, idhttp синхронный компонент, пока он не доделает запрос выполнение дальше не пойдет.

Free - это уничтожение обьекта, если вы его уничтожаете, то как вы планируете его потом использовать?

[foma9999]

А вот еще вопросик
нужно считать заголовки гет запроса как это сделать?
обычный гет возвращает код стр без заголовков...

И еще, как получить куртинку с серва? Ее нужно не сохранить, а крутить в памяти, для дальнейшей обработки