Virtueller Drucker mit Delphi

[skyquaker]

Ich arbeite mit Delphi7PRO und Delphi8Architect und habe mir ein Ziel gesetzt.
Ich kenne diese Funktionsweise von anderen Programmen (PDFCreator oder so ähnlich) und möchte frage, ob ich sie auch in Delphi anwenden kann.
Mein Programm soll vom System als Drucker erkannt werden und jeder Befehl den man an diesen virtuellen Drucker sendet, soll automatisch an mein DP Programm und von da aus ins LAN geleitet werden.


Ich währe sehr dankbar für CodeSnippets oder Verweise auf andere Seiten, die diese Thema behandeln.

[Luckie]

Diese programme sind nichts anderes als Druckertreiber. Du wirst also einen Druckertreiber schreiben müssen und das ist mit Delphi nicht möglich.

[s.h.a.r.k]

Soweit ich weiß fällt dein Delphi 8 doch komplett raus - ist doch nur .Net, oder irre ich mich da?!

Des weiteren ist es denke ich gar nicht so einfach einen eigenen Drucker zu schreiben. Du musst wohl einen eigenen Druckertreiber schreiben, nur wie das geht weiß ich pauschal nicht ;)

Ich habe aber mal schnell ein bisschen gegoogelt und das hier gefunden (entnommen aus dem folgenden Thread): Windows Driver Development Kit

Ich hoffe es bringt dich etwas weiter!

[edit]
roter Kasten zu langsam, oder Luckie zu schnell :gruebel:
[/edit]

[chaosben]

Klick mich (auch wenn ich nicht weiß, obs hilft :) )

[capo]

hi
evt. helfen dir folgende links weiter zu kommen
http://www.vclcomponents.com/catalog/Virtual_Printer
http://www.colorpilot.com/emfprinterpilot.html

gruss capo

[skyquaker]

Gabs hier vielleicht schonmal einen ähnlichen Thread?

[Union]

Man kann einen IP-Server nehmen der RAW-Daten über Port 9100 empfängt und diesen dann entsprechend einrichten. Dann holt man sich einfach die Daten ab und macht damit was immer man will.

[skyquaker]

Ich hab jetzt das DDK und es gibt mehrere Beispiele für PrintDriver. Ich blicke da leider überhauptnicht durch :(

Eigentlich will ich ja nur, dass wenn ich auf Print clicke die Datei gespeichert wir d und dann meine Anwendung mit dem Parameter, der den Pfad der Datei enthält aufgerufen wird.

Kann mir jemand da vielleicht helfen ?

[QuickAndDirty]

Die Idee von Union ist wohl die einfachste

[skyquaker]

Könnte mir jemand Unions Idee an einem CodeBeispiel verdeutlichen ?
Ich muss doch trotzdem einen Treiber proggen, oder?

[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

[ol1uw]

Es muss nicht gleich ein eigener Treiber sein.
Wir haben so was ähnliches im Einsatz.
Basis ist dieser Artikel
Entweder so verwenden und das Verzeichniss überwachen oder eben den C Quelltext abändern
das die eigne Anwendung gestartet wird.

Bei uns als Faxdrucker im Einsatz
der eigentliche Treiber für den Drucker ist ein ganz normaler Postscript Treiber
z.B. Appel Laserwriter die Faxanwendung erwartet die Dokumente einfach im Postscriptformat.

Uwe

[skyquaker]

Ich kann kein C++ :cry:

Könnte mir jemand vielleicht helfen, den SOurce so umzuschreiben, dass er mein Programm mit dem Pfad der zuvor gespeicherten Datei als Parameter aufruft ?

Frage : Wenn ich dieses Ding da kompiliere und einbinde, sieht das dann so aus, als währe es ein Drucker?

Source ist im Anhang

[skyquaker]

Thx Union :)
Ich hab mal versucht dem Computer zu sagen 192.168.xx.x währe ein Drucker.
Hat funktioniert. So jetzt muss ich nur noch ein App schreiben.

[Union]

BTW, wie Deinem anderen Thread zu entnehmen, möchtest Du die Druckdaten zunächst in einer Datei speichern. Das geht dann wie folgt (natürlich den Dateinamen c:\temp... entsprechend ändern):

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;

[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;

[Union]

Hast Du auf dem PC eine Firewall? Dann musst Du evtl. den Port erst freischalten.

[skyquaker]

Ich hab nen Router. Die WIndows Firewall hab ich deaktiviert, muss ich auf dem Router PortForwarding aktivieren ?

[Union]

Wenn beide PCs im selben Netz sind, dann nicht.

[skyquaker]

ICh hatte mal so einen ChatClient geproggt, der lief begrenzt(Er hat nur shr selten was übermittelt). Ich glaub ich programmiere des nochmal neu und schau obs geht. :)

[skyquaker]

Thx Union ! Es läuft :)

Ich musste zwar Delphi neu installieren und Indy9 drüberhauen aber jetzt läufts :thumb:

[Union]

Vielleicht trägst Du auch mal die von Dir benutzte Delphi-Version in Deinem Profil ein...

[TheMiller]

Hallo,

ich wollte dieses Beispiel auch gerade mal nachbauen, hab also einen Drucker eingerichtet, einen IDTCPSERVER auf 9100 gesetzt und etwas gedruckt. Ich empfange aber nur 1-3 Byte mit "kryptischen" Zeichen. Diesmal war es ein "weiblich"-Symbol.

Ich musste allerdings den Quelltext an Indy10 anpassen. Habe ich da etwas falsch gemacht?

Delphi-Quellcode:

procedure TForm3.IdTCPServer1Execute(AContext: TIdContext);
var
   DataStream, FileStream : TStream;
begin
   DataStream := TMemoryStream.Create;

   //Diese Zeile wurde geändert. Ich habe Indy10
   AContext.Connection.IOHandler.ReadStream(DataStream, -1, true);

   ShowMessage(Format('Es wurden %d Byte empfangen', [DataStream.Size]));
   FileStream := TFileStream.Create('c:\teest.txt', fmCreate);
   DataStream.Position := 0;
   FileStream.CopyFrom(DataStream, DataStream.Size);
   FileStream.Free;
   DataStream.Free;
end;

Woran könnte es liegen?

Danke im Voraus