Results 1 to 2 of 2

Thread: enumprinters

  1. #1
    Registered User
    Join Date
    Mar 2001
    Location
    Elsloo
    Posts
    16

    Question enumprinters

    Aloha ...


    Ik had graag een voorbeeldje gehad over hoe ik enumprinters moet gebruiken ...

    Ik moet nml. het fysieke adres van de geïnstalleerde printers weten ...


    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var
      pName: pChar;
    begin
      memo1.clear;
      p1 := TPrinter.Create;
      memo1.Text := p1.Printers.Text;
      p1.Free;
      EnumPrinters(PRINTER_ENUM_NAME, )
    end;
    Dit levert mij een lijst met alle geïnstalleerde printers ...
    Nu heb ik ook nog een lijst nodig met adressen waar de printers staan ...
    Daarom de vraag ...

    hoe gebruik ik enumprinters ...


    Alvast bedankt ...


    Doegie ...


    Peter

  2. #2
    *+E13818MU01F0F* Norrit's Avatar
    Join Date
    Aug 2001
    Location
    Landgraaf
    Posts
    967

    Talking Antwoord gevonden

    En ja ...

    Ik heb een antwoord op je vraag gevonden ...
    Er is alleen een nadeeltje ...
    De printer wordt wel automatisch geïnstalleerd ...
    Maar dat moet je maar op de koop toe nemen ...


    Code:
    var
      MyPrn   : HWND;
      iNeeded : DWORD;
      MyInfo  : PPrinterInfo2;
    begin
      MyPrn := ConnectToPrinterDlg (Handle, 0);
      iNeeded := 0;
      GetPrinter (MyPrn, 2, nil, 0, @iNeeded);
      GetMem (MyInfo, iNeeded);
      try     if GetPrinter (MyPrn, 2, MyInfo, iNeeded, @iNeeded) then
              begin dbePrinterID.Text := Copy (string (MyInfo^.pPrinterName),
                                      Length (string (MyInfo^.pServerName)) + 2,
                                      Length (string (MyInfo^.pPrinterName)) -
                                      Length (string (MyInfo^.pServerName)) + 1);
              end;
      finally FreeMem (MyInfo, iNeeded);
      end;

    Misschien nog iets aanpassen, maar het zou moeten werken ...

    Doegie ...

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •