Anzahl der Drucke eines Druckers abfragen

[Frage95]

aber wenn wir schon dabei sind habe ich mal eine Verständnisfrage:

Delphi-Quellcode:

AList.Values['Geräteinformation'] := '1.1.0';
   AList.Values['Gesamtseiten'] := '43.10.2.1.4.1.1';
   AList.Values['Tonerstand 1'] := '43.11.1.1.9.1.1';
   AList.Values['Tonerstand 2'] := '43.11.1.1.9.1.2';
   AList.Values['Tonerstand 3'] := '43.11.1.1.9.1.3';
   AList.Values['Tonerstand 4'] := '43.11.1.1.9.1.4';

wie kommst du auf diese Zahlen ?

[Union]

Durch Suche im Internet.

[Frage95]

okay danke

und wie komme ich auf das webinterface meines druckers?

[DeddyH]

Im Browser die IP des Druckers aufrufen.

[Frage95]

hmn das habe ich jz schon öfters probiert klappt aber nicht, deshalb auch die frage

[Sir Rufo]

Zitat von Frage95:

hmn das habe ich jz schon öfters probiert klappt aber nicht, deshalb auch die frage

Ich habe mal gehört, dass es da so etwas gibt, dass sich "Dokumentation" oder manchmal auch "Handbuch" nennt.

Das scheinen aber nur Gerüchte zu sein

[DeddyH]

Hat der Drucker überhaupt ein Webinterface? Union scheint sich da zwar sicher zu sein, aber ich würde einfach mal einen Blick ins Handbuch werfen, vielleicht erledigen sich die anderen Probleme (z.B. Aktivieren von SNMP) damit auch von selbst.

[Frage95]

okay ich werde das jz mit einem anderen drucker versuchen um dessen ip heraus zu bekommen ich habe dafür eine funktion

Delphi-Quellcode:

function GetLocalIPs(const Lines:TStrings):Boolean;
type
  PPInAddr= ^PInAddr;
var
  wsaData: TWSAData;
  HostInfo: PHostEnt;
  HostName: Array[0..255] of Char;
  Addr: PPInAddr;
begin
  Result:=False;
  Lines.Clear;
  if WSAStartup($0102, wsaData)=0 then
  try
    if gethostname(HostName, SizeOf(HostName)) = 0 then Begin
       HostInfo:= gethostbyname(HostName);
       if HostInfo<>nil then Begin
          Addr:=Pointer(HostInfo^.h_addr_list);
          if (Addr<>nil) AND (Addr^<>nil) then
             Repeat
                    Lines.Add(StrPas(inet_ntoa(Addr^^)));
                    inc(Addr);
             Until Addr^=nil;
       end;
    end;
    Result:=True;
  finally
    WSACleanup;
  end;
end;

doch wenn ich den code ausführen will erhalte ich diese Fehlermeldungen (Bild im Anhang)

[baumina]

Ändere HostName: Array[0..255] of Char; in HostName: Array[0..255] of AnsiChar; ab.

EDIT : Diese Funktion liefert dir allerdings meiner Meinung nach die IP-Adresse deines Rechners.

[Frage95]

gut danke habe das problem jetzt gefunden ist leicht peinlich der drucker war nicht am netzwerk angeschlossen sorry und danke für eure hilfe