Auf vielfachen Wunsch
1. TIdTcpServer auf das Formular bringen
2. DefaultPort auf 9100 setzen
3. Active auf True setzem
4. Event OnExecute erzeugen:
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
DataStream : TStream;
begin
DataStream := TMemoryStream.Create;
AThread.Connection.ReadStream(DataStream, -1, true);
ShowMessage(Format('Es wurden %d Byte empfangen', [DataStream.Size]));
DataStream.Free;
end;
5. Generic Drucker auf Port 127.0.0.1 RAW erstellen
6. Programm compilieren und starten
[edit]
Ach so, Du musst natürlich auch was drucken [/edit]
7. Statt ShowMessage irgendwas mit den empfangenen Daten machen