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;