Drucken im Netzwerk mit TidLpr: "Socket already in use"

[Assertor]

Hallo skyobserver,

ja, das es mit Shelltools auch nicht klappt ist klar: Die PortRange für LPR ist da auch schnell erschöpft. Ist halt eine RFC Umsetzung von Windows.

Probier es doch mal andersherum:

Delphi-Quellcode:

procedure PrintLabel; 
begin
  // das auskommentierte mal irgendwo allgemein festlegen (Konstruktor o.ä.) 
  // idlpr.BoundIP := GStack.LocalAddress; // holt sich die lokale IP 
  // idlpr.Host := '192.168.0.100'; 
  if not idlpr.Connected then 
    idlpr.Connect;
  idlpr.PrintFile('C:\Print.tmp'); 
end;

So wird nicht immer ein neuer Port geöffnet, sondern nur wenn keine Connection besteht. Vorteil dürfte sein, dass wenn der Druck schnell hintereinander erfolgt, der vorhandene Socket genutzt wird. Wenn der Socket nicht offen ist, wird eben ein neuer geöffnet.

Nach RFC dürften ca. 10 Sockets für LPR da sein (iirc 721-731). Wenn Du jetzt jedesmal den Socket schließt (+ Timeout von Windows OS, überlicherweise 60-120 sek) bist Du sonst schnell am Limit.

Mit o.g. dürfte es aber keine Raise Conditions mehr geben.

Fehler kannst Du übrigens - so wie auch den Status - über den IdLPR.OnLPRStatus Event handeln.

Gruß Assertor