>>
> Oui, mais comment à partir de l'objet TPrinter dans Delphi je récupère le
> nom réseau de l'imprimante ? Y'a une propriété pour ça ?
>

Même réponse, avec un truc du style :

uses WinSpool;

var
size: DWord;
PrinterInfo2: PPrinterInfo2;
begin
Size := 0;
GetMem(PrinterInfo2, Size);

if not OpenPrinter(pchar(printer.Printers[i]), HPrinter, nil) then
erreur := 'openPrinter : ' + SysErrorMessage(GetLastError)
else
begin

Winspool.GetPrinter(HPrinter, 2, PrinterInfo2, Size, @Size);
ReAllocMem(PrinterInfo2, Size);
if not Winspool.GetPrinter(HPrinter, 2, PrinterInfo2, Size, @Size)
then
erreur := 'Erreur get : ' + SysErrorMessage(GetLastError)
else
begin

with PrinterInfo2^ do
begin
pServerName <== Nom du serveur
pShareName <= Nom du partage
==> donc chemin complet = '\\' + pServerName + '\' + pShareName;

end;
end;
end;

JP

Merci, je regarde ça

On Wed, 26 Sep 2007 09:55:29 +0200, OBones
<obones_dfd_@_zeea_altern.org> wrote:

>Oui, mais comment à partir de l'objet TPrinter dans Delphi je récupère
>le nom réseau de l'imprimante ? Y'a une propriété pour ça ?

Et si dans delphi tu le passe en ligne de commande dans un shell dos ?


--
La vie, c'est comme une boite de chocolat, on sait jamais sur quoi on va tomber...
C'est de la connerie, il suffit de retourner la boite pour voir les differente sorte sur la photo.
Seulement maintenant t'es dans la merde parce que les chocolats sont par terre....