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.

[Klaus01]

.. the procedure dataavail needs to be part (a method) of a class.

The signature of the event is different then your dataavail procedure:
http://www.e-iter.net/Knowledge/Indy9/007838.html

Best regards
Klaus

[TiGü]

Wie soll das kompilieren?

Delphi-Quellcode:

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

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

Versuchs mal so:

Delphi-Quellcode:

TMyTelnet = class
public
   procedure DataAvail(Sender: TIdTelnet; const Buffer: String);
end;

...
var
  mytelnet: TMyTelnet;
begin
  mytelnet := TMyTelnet.Create;   
  IdTelnet1.OnDataAvailable := mytelnet.dataavail;

Doku:
http://www.e-iter.net/Knowledge/Indy9/007834.html#0004
http://www.e-iter.net/Knowledge/Indy9/007838.html

[himitsu]

Arbeitet Indy nicht viel mit Messages?

In der VCL behandelt das die VCL, und in der Console mußt du dann eben regelmäßig die anfallenden Windows-Messages abfragen und verarbeiten.
Ebenso Dinge wie z.B. Synchronize und Queue bei den Threads würde das betreffen.