Discussion :

[wattman]

Bonjour,

Actuellement j'utilise des imprimantes avec un logiciel de création d'étiquettes code soft. Mon programme delphi récupère le fichier et le copie sur le port LPT1 via l'écriture d'un fichier directement sur le port LPT1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Assignfile(Nouveaufichier, 'LPT1');
 
while not Eof(FichierTEMP) do
begin
Readln(FichierTEMP, LigneFichierTexte);
WriteLn(FichierImp, LigneFichierTexte);
end;

Cela fonctionne correctement.

Pour améliorer mon produit j'aurai besoin de travailler avec des imprimantes partagés par WINDOWS, et la le soucis apparait :

Comment copier un fichier ASCII brut sur une imprimante partagé en DELPHI ?

[tatareau]

bonjour,
Tu veux dire que ton imprimante est distante? a ce moment là, cela me semble être de l'ordre du protocole réseau. C'est peut être de ce côté qu'il faut chercher...

[LadyWasky]

Salut

Tout d'abord :


Ensuite, je te suggère ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
FichierImp: TextFile;
  printDialog : TPrintDialog;
 
 begin
  // Creation d'une boite de dialoque pour choisir l'imprimante
  printDialog := TPrintDialog.Create(Form1);
 
  // Sélection d'une imprimante
  if printDialog.Execute then
  begin
    // Essaie d'utiliser un fichier imprimante
    AssignPrn(FichierImp);
 
    // on se prépare à écricre vers l'imprimante
    ReWrite(FichierImp);
 
    // envoi des données vers l'imprimante
    while not Eof(FichierTEMP) do
      begin
         Readln(FichierTEMP, LigneFichierTexte);
         WriteLn(FichierImp, LigneFichierTexte);
      end;
 
    // Fermer le fichier
    CloseFile(FichierImp);
  end;
 end;

Bref, j'utilise AssignPrn au lieu de AssignFile

[ALWEBER]

Autre solution
insérer une commande DOS sur ton ordinateur qui redirige le port LPT1 vers l'imprimante réseau

[Yurck]

Bonjour,
J'utilise aussi le AssignFile et depuis quelques années mes clients ont partagé leur imprimante étiquette.

J'y accède donc via un chemin de partage UNC

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
AssignFile(FOutput, '\\Serveur\Nom de partage Imprimante');

Il faut bien entendu partager l'imprimante.

Bonne chance