Virtueller Drucker mit Delphi

[skyquaker]

Ja, vorerst wollte ich das auch. Aber ich hab mich dazu entschlossen, die Daten direkt an einen anderen PC weiterzuleiten. Dazu habe ich einen Server geschreiben der Port 9100 abhört. Wenn ich nun Drucke werden die zu druckenden Daten im RAW Format an den anderen PC auf Port 9100 übermittelt. Zumindest in der Theorie

Leider funktioniert es nicht

Könnte mir jemand ein Beispiel schreiben ? (Es muss über das LAN funktionieren)

UNION hat schon eins geschrieben, aber geht das mit dem LAN

UNIONS BSP :

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
   DataStream, FileStream : TStream;
begin
   DataStream := TMemoryStream.Create;
   AThread.Connection.ReadStream(DataStream, -1, true);
   ShowMessage(Format('Es wurden %d Byte empfangen', [DataStream.Size]));
   FileStream := TFileStream.Create('c:\temp\test.prn', fmCreate);
   DataStream.Position := 0;
   FileStream.CopyFrom(DataStream, DataStream.Size);
   FileStream.Free;
   DataStream.Free;
end;