imprimer ,depuis un autre PC

nico · Message par **nico** » sam. 29/sept./2012 18:46

Bonjour,

Est t'il possible d'imprimer directement sur une imprimante en wifi sans avoir de driver avec l'adresse ip de l'imprimante?

Il me semble avoir vu une ligne de code qui permettait d'envoyer du texte à imprimer directement à l'imprimante.

falsam · Message par **falsam** » sam. 29/sept./2012 20:32

je viens de tester

Code : Tout sélectionner

IP.s    = "192.168.?.?" ;Ip Imprimante 
Port.i   = 9100

InitNetwork()

Connection = OpenNetworkConnection(IP, Port, #PB_Network_TCP)

If Connection
  Debug "Ok"
  SendNetworkString(Connection, "Test")  
  SendNetworkString(Connection, #FF$)  ;ne pas oublier le Form Feed
  
EndIf

CloseNetworkConnection(Connection)

nico · Message par **nico** » sam. 29/sept./2012 21:30

C'est exactement ce que je recherchais, sauf que pour moi, ça ne fonctionne pas, y a t'il une configuration à faire sur l'imprimante?

falsam · Message par **falsam** » sam. 29/sept./2012 21:54

nico a écrit :C'est exactement ce que je recherchais, sauf que pour moi, ça ne fonctionne pas, y a t'il une configuration à faire sur l'imprimante?

Juste connaitre le port en plus de l'adresse IP.

falsam · Message par **falsam** » sam. 29/sept./2012 21:56

Pourrais tu lancer ce code en changeant le texte pour voir si l'impression distante fonctionne. En principe ça devrait fonctionner. je te retournerais ta phrase

Code : Tout sélectionner

IP.s    = "85.168.27.54"
Port.i   = 9100

InitNetwork()

Connection = OpenNetworkConnection(IP, Port, #PB_Network_TCP)

If Connection
  Debug "Ok"
  SendNetworkString(Connection, "Phrase de nico")  
    
  SendNetworkString(Connection, #FF$)  
  
EndIf

CloseNetworkConnection(Connection)

D'autres peuvent essayer aussi.

falsam · Message par **falsam** » sam. 29/sept./2012 22:20

Apparemment ça fonctionne

Merci Nico pour ce test.

PS : Si d'autres essayent, n'oubliez pas de changer la phrase.

nico · Message par **nico** » sam. 29/sept./2012 22:21

J'ai lancé et la connexion à été acceptée, pour moi ça ne fonctionne pas.

[EDIT] OK t'as vu.

T'as quoi comme imprimante.

falsam · Message par **falsam** » sam. 29/sept./2012 22:26

nico a écrit :J'ai lancé et la connexion à été acceptée, pour moi ça ne fonctionne pas.

[EDIT] OK t'as vu.

T'as quoi comme imprimante.

J'ai fait un test sur une HP-C310 (Wifi), et tu as envoyé ton impression sur une HP 8500 (Wifi).
Pour les impressions distantes, j'ai redirigé les ip entrantes sur mon routeur, vers l'adresse ip et le port de l'imprimante.

nico · Message par **nico** » sam. 29/sept./2012 22:41

Une petite question #FF$, ça correspond à quel valeur?

falsam · Message par **falsam** » sam. 29/sept./2012 22:47

nico a écrit :Une petite question #FF$, ça correspond à quel valeur?

J’espère que ça correspond à la séquence de caractère Form Feed (Code ASCII 12).
http://www.purebasic.com/french/documen ... ascii.html

nico · Message par **nico** » sam. 29/sept./2012 22:49

ok, ça correspond à la valeur 12, suffisait de faire un asc en fait.

wood51 · Message par **wood51** » dim. 30/sept./2012 13:27

Bravo Falsam , tu viens de réinventer le fax

. Y'a t il quelque chose que tu ne sache pas faire ?

nico · Message par **nico** » dim. 30/sept./2012 17:05

Est ce que tu peux laisser ton imprimante connecté à cette adresse 85.168.27.54 ?, j'aimerais faire des tests, penses à mettre des feuilles de brouillon.

falsam · Message par **falsam** » dim. 30/sept./2012 20:05

nico a écrit :Est ce que tu peux laisser ton imprimante connecté à cette adresse 85.168.27.54 ?, j'aimerais faire des tests, penses à mettre des feuilles de brouillon.

Elle est connectée depuis hier soir avec un minimum de feuilles (usagées). Si d'autres souhaitent tester les impressions à distance ......

Code : Tout sélectionner

IP.s    = "85.168.27.54"
Port.i   = 9100

InitNetwork()

Connection = OpenNetworkConnection(IP, Port, #PB_Network_TCP)

If Connection
  Debug "Ok"
  SendNetworkString(Connection, "N'oubliez pas votre nom :)" + #CRLF$) 
  SendNetworkString(Connection, "Ligne 1" + #CRLF$)  
  SendNetworkString(Connection, "Ligne 2" + #CRLF$)  
  SendNetworkString(Connection, "Ligne 2" + #CRLF$)  
  SendNetworkString(Connection, #FF$)  
  
EndIf

CloseNetworkConnection(Connection)

nico · Message par **nico** » dim. 30/sept./2012 20:48

T'as reçu un truc?

PureBasic