Discussion :

[andreditdd]

Bonsoir,
je suis occuper à suivre un exemple du livre "Delphi 2005" traitant du client Telnet.

Voici les parties du code qui posent probleme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TReceptionThread.Execute;
var S : String;
begin
   While not terminated do
   begin
     S := '';
    try
     S := Form1.idTCPClient1.ReadLn;
    except
     Terminate;
   end;
   Form1.MessageRecus.Lines.Add(S);
   end;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.MessageKeyPress(Sender: TObject; var Key: Char);
begin
   If (Key = #13) then
   begin
      IDTCPClient1.WriteLn(Message.Text);
      Message.Text := '';
   end;
end;

C'est ReadLn et WriteLn qui créent l'erreur "[Pascal Error] Unit1.pas(54): E2003 Undeclared identifier: 'ReadLn'"

Pouvez vous m'aider svp ?

André

[ero-sennin]

Salut,

Dans les uses, tu as bien ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient

?

[andreditdd]

Merci pour ta réponse...
Oui j'ai bien tout ça.

André

[andreditdd]

Bon j'ai trouvé la réponse dans la Faq...
Comme j'utilise la version 10 de Indy il faut faire quelques modifications du code.
Dans ce cas ci, il faut remplacer: S := Form1.idTCPClient1.ReadLn;
Par: S := Form1.idTCPClient1.IOHandler.ReadLn;

André