Ispis na Com port i na drugi mrezni stampac

Ivan

unread,

Mar 24, 2006, 6:05:46 PM3/24/06

to

Pozdrav
Imam aplikaciju koja radi sipis na stampac prikacen na LPT port racunara.
Sada bih trebao da jedan dio ispisa posaljem na COM port odnosno na drugi
stampac prikacen na COM port. Na koji nacin da to izvedem?
Takodje me zanima kako da odstampam nesto na stampac koji se nalazi na mrezi
odnosno na drugom racunaru koji je umrezen sa psotojecim racunarom?

Inace za stampu koristim

writeln proceduru

Hvala svima

Miroslav

unread,

Mar 25, 2006, 10:29:11 AM3/25/06

to

Da bi neki pisać bio mreľni pisać i vidljiv ostalim korisnicima na mreľi
mora biti instaliran kao mreľni pisać na računaru na koji je priključen.
Obrati paľnju kod instalacije imaą pitanje LOCAL ILI NETWORK Izaberi
Network. Tada će ga vidjeti i ostali korisnici i dovoljno je samo da na
računaru svakog od tih korisnika instaliraą pripadajući driver.

Ivan

unread,

Mar 24, 2006, 10:25:40 PM3/24/06

to

"Miroslav" <mirosla...@bj.htnet.hr> wrote in message
news:e03nk5$84p$1...@ss405.t-com.hr...

OK to znam da ide tako ali mene zanima da li istovremeno mogu da saljem
ispis i na paralelni port racunara i na mrezni pisac na racunaru u mrezi
koji sam instalirao na taj nacin na koji mi kazes

hvala

Igor Savkic

unread,

Mar 26, 2006, 1:25:33 PM3/26/06

to

Write i WriteLn sadržaj ispisuju na globalnoj TPrinter promenljivi
koja se inicijalizuje pozivom funkcije Printer iz Printers unita ili
pozivom AssignPrn.
Istovremeno štampanje na više štampača nije problem ako se svakome
odredi po jedan TPrinter objekat. Kod bi otprilike ovako išao:
var
Prn1, Prn2: TPrinter;
File1, File2: TTextFile;
begin
Prn1 := Printer;
Prn1.PrinterIndex := 1; // Indeks prvog stampaca
AssignPrn(File1);
Rewrite(File1);
WriteLn(File1, 'Stampac1');

SetPrinter(nil);
Prn2 := Printer;
Prn2.PrinterIndex := 2;
AssignPrn(File2);
Rewrite(File2);
WriteLn(File2, 'Stampac2');

SetPrinter(Prn1);
WriteLn(File1, 'Ponovo stampac1');
System.CloseFile(File1);

SetPrinter(Prn2);
System.CloseFile(File2);
end;

Dejan Schild

unread,

Mar 27, 2006, 12:27:45 AM3/27/06

to

Ivan wrote:
>
> OK to znam da ide tako ali mene zanima da li istovremeno mogu da saljem
> ispis i na paralelni port racunara i na mrezni pisac na racunaru u mrezi
> koji sam instalirao na taj nacin na koji mi kazes
>
> hvala

uses Printers;
...
var Naziv_Printera: string;
...
Naziv_Printera:='HP LaserJet 5';
printer.SetPrinter(PChar(Naziv_Printera), PChar(''), PChar(''), 0);

Znaci, mozes u bilo kom delu programa da promenis stampac koji
koristis. U Naziv_Printera treba da upises pun naziv stampaca (kako se
zove u Contol Panel/Printers), i to je to.
Sa ovim menjas printer za sve vrste stampe iz programa, ukljucujuci i
razne reporte,...

Ivan

unread,

Mar 30, 2006, 1:04:33 PM3/30/06

to

"Igor Savkic" <igor....@gmail.com> wrote in message
news:1143397533....@v46g2000cwv.googlegroups.com...
Write i WriteLn sadrľaj ispisuju na globalnoj TPrinter promenljivi

koja se inicijalizuje pozivom funkcije Printer iz Printers unita ili
pozivom AssignPrn.

Istovremeno ątampanje na viąe ątampača nije problem ako se svakome
odredi po jedan TPrinter objekat. Kod bi otprilike ovako iąao:

var
Prn1, Prn2: TPrinter;
File1, File2: TTextFile;
begin
Prn1 := Printer;
Prn1.PrinterIndex := 1; // Indeks prvog stampaca
AssignPrn(File1);
Rewrite(File1);
WriteLn(File1, 'Stampac1');

SetPrinter(nil);
Prn2 := Printer;
Prn2.PrinterIndex := 2;
AssignPrn(File2);
Rewrite(File2);
WriteLn(File2, 'Stampac2');

SetPrinter(Prn1);
WriteLn(File1, 'Ponovo stampac1');
System.CloseFile(File1);

SetPrinter(Prn2);
System.CloseFile(File2);
end;

Rjesio sam to na ovaj nacin. Ucinio mi se najjednostavniji a i
najfunkcionalniji za kasnije prosirenje programa. Igore hvala ti po n-ti
put. Hvala i svima ostalima.

Pozdrav Ivan