AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Indy - Abbrechen von ReadLn in TIdThreadComponent

Indy - Abbrechen von ReadLn in TIdThreadComponent

Ein Thema von Gruber_Hans_12345 · begonnen am 16. Nov 2006
Antwort Antwort
Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.426 Beiträge
 
Delphi 2007 Professional
 
#1

Indy - Abbrechen von ReadLn in TIdThreadComponent

  Alt 16. Nov 2006, 10:43
Delphi-Quellcode:
procedure TForm1.IdThreadComponent1Run(Sender: TIdThreadComponent);
begin
    Sender.Synchronize(StatusConnected);

    try
        IdTCPClient1.IOHandler.ReadLn;
    except
    end;
    Sender.Synchronize(StatusDisConnected);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    IdThreadComponent1.Start;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
    IdThreadComponent1.Stop;
    IdTCPClient1.Disconnect;
end;
procedure TForm1.IdThreadComponent1BeforeRun(Sender: TIdThreadComponent);
begin
    IdTCPClient1.Connect('localhost', 6525);
end;

procedure TForm1.IdThreadComponent1AfterRun(Sender: TIdThreadComponent);
begin
    IdTCPClient1.Disconnect;
end;
per Button4 wird der Thread gestartet und mit Button5 wieder gestoppt (der Server bekommt ne Exception Disconnect, aber das wird ja gewollt sein so)

oder gibt es da noch andere sachen zu beachten ?
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz