Network daki bir printera bilgi göndermek

[Armani]

Merhaba arkadaşlar.
Amacım Filelistbox da seçili olan dosyanın printera gönderilmesi
ama bunun için nasıl bir kod yazmam gerek
burdaki bazı kodlarda değişiklik yapmama rağmen başaramadım

birde bu kod için copy mi yoksa copfile mı kullanmam gerek
copyfile(filelistbox1.filename)..... //computer name/printer gibi

şimdiden teşekkür ederim

[husonet]

Networkteki masaüstünden bilgisayarın bağlantı noktasını ayarlarsan başka makinanın printer ını kullanabilirsin.

Kolay Gelsin...

[salvation]

Unitin en başına

Kod: Tümünü seç

  Uses Printers;

ekleyerek başlarız.

Bilgisayara bağlı yazıcıları, örneğin combobox a yüklemek istersen şu şekilde yapabilirsin:

Kod: Tümünü seç

  ComboBox1.items := Printer.Printers;

Varsayılan yazıcıyı şu şekilde bulabilirsin:

Kod: Tümünü seç

function DefPrinter : string;
begin
  if (Printer.PrinterIndex > 0) then
    DefPrinter := Printer.Printers[Printer.PrinterIndex]
else
  DefPrinter := '';
end;

Ama sen istediğin yazıcıdan çıktı alabilmek istediğin için, o yazıcıyı seçili hale getirmelisin:

Kod: Tümünü seç

var
  printer:tprinter;
begin
  printer:=tprinter.create;
  printer.printerindex:=0;
end;

Yazıcıya herhangi bir dosya göndermek için:

Kod: Tümünü seç

//Delphi FAQs and TIs
uses CommDlg;

{$IFNDEF WIN32}
 const MAX_PATH = 144;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
var
  Pd : TPrintDlg;
  DocInfo: TDocInfo;
begin
  FillChar(Pd, sizeof(Pd), #0);
  Pd.lStructSize := sizeof(Pd);
  Pd.hWndOwner := Form1.Handle;
  Pd.Flags := PD_RETURNDC;
  if PrintDlg(pd) then begin
    FillChar(DocInfo, sizeof(DocInfo), #0);
    DocInfo.cbSize := SizeOf(DocInfo);
    GetMem(DocInfo.lpszDocName, 32);
    GetMem(DocInfo.lpszOutput, MAX_PATH);
    lStrCpy(DocInfo.lpszDocName, 'My Document');
   {Add this line to print to a file }
    lStrCpy(DocInfo.lpszOutput, 'C:\Download\Test.doc');
    StartDoc(Pd.hDc, DocInfo);
    StartPage(Pd.hDc);
    TextOut(Pd.hDc, 100, 100, 'Page 1', 6);
    EndPage(Pd.hDc);
    StartPage(Pd.hDc);
    TextOut(Pd.hDc, 100, 100, 'Page 2', 6);
    EndPage(Pd.hDc);
    EndDoc(Pd.hDc);
    FreeMem(DocInfo.lpszDocName, 32);
    FreeMem(DocInfo.lpszOutput, MAX_PATH);
  end;
end;

Network yazıcılarının sisteminde kurulu olduğunu varsaydım.
Kolay gelsin!