Indy Tutorial delphi treff nachvollziehen

**Nintendo**

Hallo,

da mein Arbeitgeber mit Delphi 7 Enterprise mehrere Internet-Anwendungen mit Indy am laufen hat und ich demnächst dort Anpassungen durchführen soll, habe ich mir dieses Tutorial vorgenommen, da ich noch überhaupt keine Erfahrung mit Indy habe.

Nun tritt aber folgendes Problem gleich zu Beginn auf:

Indy 10, das von Delphi Treff vorausgesetzt wird:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);

var cmd: String;

begin

  try

    cmd := Trim(AContext.Connection.IOHandler.ReadLn);

    Label1.Caption := cmd;

    AContext.Connection.IOHandler.WriteLn('Bye!');

  finally

    AContext.Connection.Disconnect;

  end;

end;

Und nun mit D7-Enterpries und den dort mitgelieferten Indys:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

begin

try

   //Im Delphi Treff Tutorial wird AContext als Parmeter übergeben

   //Doch hier wird ein ganz anderer Parameter übergeben

    cmd := Trim(AContext.Connection.IOHandler.ReadLn);

    Label1.Caption := cmd;

    AContext.Connection.IOHandler.WriteLn('Bye!');

  finally

    AContext.Connection.Disconnect;

  end;

end;

Woher bokomme ich die Klasse TIdContext? Leider habe ich die Sourcen nicht griffbereit zum Nachschauen. WElche Unit muß also ggf. eingebunden werden und wie sieht ein Workaround hier generell aus?

Indy Tutorial delphi treff nachvollziehen

Indy Tutorial delphi treff nachvollziehen

Forumregeln