Hallo,
das Thema liegt schon einbiszchen länger zurück. Gestern abend hatte ich wieder einbiszchen Zeit mich mit dem Thema auseinanderzusetzen und wollte nur kurz rückmelden, dass es, wie sx2008 bereits angedeutet hat, mit der TIdTCPClient möglich ist direkt die gerasterte Druckdatei direkt übers LAN-Netzwerk zum Drucker zu schicken.
Ich habs vorher immer mit TCPClient.SendBuf probiert, und bin immer wieder gescheitert. Ich bin nämlich draufgekommen, dass es möglich ist, eine Datei direkt als Stream mit TCPClient1.SendStream zu schicken. Damit geht es nun reibungslos.
Anbei der Code für Leute, wie ich, die lange vergeblich nach einer Lösung gesucht haben
:
Delphi-Quellcode:
var
fs: TFileStream;
begin
TCPClient1.RemotePort:='9100';
TCPClient1.RemoteHost:='192.168.1.43';
TCPClient1.Open;
try
fs:=TFileStream.Create('test.prn',fmOpenread or fmShareDenyNone);
try
rs:=TCPClient1.SendStream(fs);
finally
fs.Free;
end;
finally
TCPClient1.Close;
end;
end;
Das nächste was ich noch benötige ist, direkt eine RAW Druckdatei über USB ohne Vorinstallation des Drucktreibers zum Drucker zu schicken, wie ich es
hier schon mal gefragt habe. Wenn jemand einen Tip hat, bitte mit per PN mailen. Vielen Dank!
Lg,
jus