IdTelnet mit ConsoleApp

[myicq]

Hallo alle,

ich möchte gern under eine Console App Daten aus eine Scanner auslesen (industrieller 2D scanner, nicht office-Pagescanner.) Scanner ist Host, ich verbinde mit Telnet.

Geht unter test mit VCL ohne issues.

Problem ist: wie mache ich eine Event-Procedure für "OnDataAvailable" in Console-App ?

Mein Versuch soweit:

Delphi-Quellcode:

program project_console_scanner;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  // ----------- telnet stuff
  IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdTelnet;


var
  IdTelnet1   : TIdTelnet;

{-- read the scanner data --}
procedure dataavail(Buffer: String);
...

{--- main program ---}
begin
   idtelnet1 := tIDTelnet.create;

   IdTelnet1.OnDataAvailable := dataavail;   // <<<< geht nicht. "Incompatible types: 'method pointer and regular procedure' "

end.

ich habe auch versucht, wie online gelesen eine class zu erstellen:

Delphi-Quellcode:

class mytelnet
public
   procedure read(buffer: string);
end;

...
IdTelnet1.OnDataAvailable := mytelnet.dataavail;    // wrong type

ist das überhaupt möglich ? Ich übersehe bestimmt irgendwas.

Danke.