Virtueller Drucker mit Delphi

[Union]

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