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:
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:
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?