Потоки

[Coder86]

Помогите узнать в чем проблема?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;

procedure Button1Click(Sender: TObject);
private
public
end;

type
TNewThread=class(TThread)
IdHTTP1:TIdHTTP;

private
protected
procedure Execute; override;
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
NewThread: TNewThread;
begin
for j:=0 to strtoint(edit1.text) do begin
NewThread:=TNewThread.Create(true);
NewThread.FreeOnTerminate:=true;
NewThread.Priority:=tpTimeCritical;
NewThread.Resume;
end;

label1.Caption:='OK!';
end;

procedure TNewThread.Execute;
var txt:tstringlist;
begin
IdHTTP1:=TIdHTTP.Create;
txt:=tstringlist.Create;
txt.add('u=12345');
IdHTTP1.POST('http://yandex.ru?',txt);
end;

end.

На этой строке IdHTTP1:=TIdHTTP.Create; - ошибка.

[bitSoft]

IdHTTP1:=TIdHTTP.Create(self);

[Coder86]

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

IdHTTP1:=TIdHTTP.Create(self);

Не помогло.

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

какая ошибка там?
далее может лучше так?

procedure TNewThread.Execute;
var txt:tstringlist;
     http:TidHTTP;
begin
HTTP:=TIdHTTP.Create;
txt:=tstringlist.Create;
txt.add('u=12345');
HTTP.POST('http://yandex.ru?',txt);
http.free;//память освобождаем.
end;

[Volt]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
TNewThread=class(TThread)
IdHTTP1:TIdHTTP;

private
protected
procedure Execute; override;
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TNewThread.Execute;
var txt:tstringlist;
begin
IdHTTP1:=TIdHTTP.Create(Form1);
txt:=tstringlist.Create;
txt.add('u=12345');
IdHTTP1.POST('http://yandex.ru?',txt);
end;

procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
NewThread: TNewThread;
begin
for j:=0 to strtoint(Form1.edit1.text) do begin
NewThread:=TNewThread.Create(true);
NewThread.FreeOnTerminate:=true;
NewThread.Priority:=tpTimeCritical;
NewThread.Resume;
end;

Form1.label1.Caption:='OK!';

end;

end.

[Coder86]

Ошибка "Not enough actual parameters".
Тоже самое.
Компоненты кажись все, чтоб не флудить я исходник скинул сюда, посмотрите, что может не так...

http://depositfiles.com/files/ewto1up57

[Volt]

а что вводите в едиты?

[Coder86]

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

а что вводите в едиты?

С вашим кодом вот что за ошибка "Project Project1.exe raised exeception class EConvertError with message "'is not a valid integer value'. Process stopped. Use Step or Run to continue."
И Delphi виснет, выдаются windows коды ошибок, у меня тоже так было. Толи система глючит, толи Delphi.. весь день мучаюсь.
В едиты ввожу цыфры. Даже не знаю что такое.

Компелировал, запустил, ввел, нажал Button и сразу OKey, сниффер не показал что был запрос по адресу.

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

итог таков.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;

procedure Button1Click(Sender: TObject);
private
public
end;

type
TNewThread=class(TThread)

private
protected
procedure Execute; override;
end;

var
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var j:integer;
NewThread: TNewThread;
begin
for j:=0 to strtoint(edit1.text) do begin
NewThread:=TNewThread.Create(true);
NewThread.FreeOnTerminate:=true;
NewThread.Priority:=tpTimeCritical;
NewThread.Resume;
end;

label1.Caption:='OK!';
end;

procedure TNewThread.Execute;
var txt:tstringlist;
     http:TidHTTP;
begin
HTTP:=TIdHTTP.Create;
txt:=tstringlist.Create;
txt.add('u=12345');
HTTP.POST('http://yandex.ru?',txt);
http.free;//память освобождаем.
txt.free;
end;

end.

Volt, один обьект может использоваться кучей потоков, хорошего тут мало.(я про ваш код)

в эдит нужно ввести число.

[Coder86]

Пепел Феникса
С чего начили к такой ошибке и вернулись. Никто и не смог, найти недостаток. У кого хоть без ошибок, компелируется, выполняется?
Дайте исходник если нормально...и *.exe