IDhttp-

0

[code]

procedure TForm1.IdHTTP1Connected(Sender: TObject);
begin
label1.Caption:='Good';
end;
procedure TForm1.Button1Click(Sender: TObject);
Begin
Idhttp1.Connect;

if Label1.Caption='Good' Then
begin
IdHttp1.Disconnect;
end;
End;
[/code]

Co w tym kodzie jest zle ??
Zawsze jak wstawie po IDhttp1.Connect ; jakies kawalek kodu to zawsze mi sie program wysypuje i wyswietla errora :
Socket Error#11001

Jak sobie z tym poradzic ??

0

Chyba lepiej....

procedure TForm1.Button1Click(Sender: TObject);
Begin
  
if Label1.Caption='Good'  Then
   begin
    IdHttp1.Disconnect;
  end else  Idhttp1.Connect;
  end;

procedure TForm1.IdHTTP1Connected(Sender: TObject);
begin
label1.Caption:='Good';
end;
End;
0

Nie działa cały czas jest ten sam błąd . Jak można sobie z tym poradzić ??

0

Może napisz o co chodzi, co kod ma robic. BO zamiast sparwdzac ten Label mozna sprawdzac IdHTTP.Connected.

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