Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Delfi-txt stampa

[es] :: Pascal / Delphi / Kylix :: Delfi-txt stampa

[ Pregleda: 3358 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

erc kragujevac
Radomir Brzakovic
Focal point for SAP

Član broj: 30491
Poruke: 144
*.zastava-automobili.com.



+2 Profil

icon Delfi-txt stampa22.05.2007. u 10:43 - pre 205 meseci
Ima li neko resenje? Txt stampa u Delfiju6 pravi probleme na stampacima sa usb prikljuckom-nece da posalje stampanu informaciju koja se vidi na stampanje. Molim vas za pomoc! Neki tutorijal ili komanda koja ce ga naterati da prepozna stampac( sa ranijom komandom za stare stampace radi kao doksa).
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Delfi-txt stampa22.05.2007. u 13:24 - pre 205 meseci
> Ima li neko resenje? Txt stampa u Delfiju6 pravi probleme na stampacima sa usb
> prikljuckom-nece da posalje stampanu informaciju koja se vidi na stampanje. Molim
> vas za pomoc! Neki tutorijal ili komanda koja ce ga naterati da prepozna
> stampac( sa ranijom komandom za stare stampace radi kao doksa).

Razjasni pitanje. Šta znači prepoznati štampač, ne šalje štampanu informaciju i kako štampaš?
 
Odgovor na temu

nikola.j
Nikola Janković

Član broj: 15712
Poruke: 85
*.ptt.yu.



Profil

icon Re: Delfi-txt stampa23.05.2007. u 10:47 - pre 205 meseci
Ako imas mogucnosti da snimis temp fajl, mozes da posaljes komandu "notepad.exe /p ime_fajla.txt" sto ce odstampati fajl na default stampacu
 
Odgovor na temu

erc kragujevac
Radomir Brzakovic
Focal point for SAP

Član broj: 30491
Poruke: 144
*.zastava-automobili.com.



+2 Profil

icon Re: Delfi-txt stampa23.05.2007. u 14:06 - pre 205 meseci
u pitanju je Delfi. U kodu postoji komanda koja txt stampu salje na LPT i to radi savrsenu. korisnicki ekran predvidja unos parametara na osnovu koji ih se pokupe podaci i na sledecoj formi koja je napravljena za potrbe stampe ti podaci se prikazuju. Postavljen je direktorijum u koji se smesta i iz koga se poziva txt stampa koja se prikazuje na navedenoj formi.Klikom na dugme STAMPA korisnik salje informaciju na stampu. Problem je sto kod stampaca sa USB prikluckom ta komanda ne reaguje. Putanja kojom se salje na LPT je u redu,treba mi naredba kao za LPT kojom cu stampu poslati na USB port. Inace fajl mogu da prozovem iz sacuvanog direktorijuma,ali ovo treba da koriste ljudi koji sve rade na klik i ne interesuje ih gde sam ja sta cuvao. Pozdrav
[img]
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
77.46.196.*

ICQ: 246436949


+10 Profil

icon Re: Delfi-txt stampa23.05.2007. u 14:16 - pre 205 meseci
Zasto jednostavno ne bi uzeo device context stampaca i sam iscrtao tekst, ili koristi neki report... ko zna na koji stampac ce neko da spampa... mozda ce stampati na neki virtualni (pdf, e-mail sender,...) stampac?
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Delfi-txt stampa23.05.2007. u 15:22 - pre 205 meseci
> koji se smesta i iz koga se poziva txt stampa koja se prikazuje na navedenoj
> formi.Klikom na dugme STAMPA korisnik salje informaciju na stampu. Problem je
> sto kod stampaca sa USB prikluckom ta komanda ne reaguje. Putanja kojom se
> salje na LPT je u redu,treba mi naredba kao za LPT kojom cu stampu poslati na USB port.

Pretpostavljam da kod LPT štampe samo kopiraš sadržaj txt fajla na LPT port? Taj pristup ne može funkcionisati kod Win only štampača (kakva je većina sada), imaš nekoliko alternativa:
1) Moraš sam raditi štampanje, Printer.BeginDoc, PRinter.TextOut i sl. Ili AssignPrn (koji interno radi na prethodni način).
2) Probaj neki report alat, beše FastReport ima nešto za štampanje txt fajlova.
3) Neki specijalizovan alat za štampanje txt fajlova iz DOS programa (tj. na način kako se ranije radilo), tu je ruski dosprn ili Printing (www.wings.co.yu/download).
4) Zavisno od štampača, čak i kod USB možeš pokušati sa raw slanjem teksta, preko Win Spooler funkcija. Ovo možeš probati i sa DPrintom, komand line verzijom Printinga.
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.kalik.info.



Profil

icon Re: Delfi-txt stampa23.05.2007. u 18:44 - pre 205 meseci
U sklopu JEDI projekta imaš par primera.
Ako ne uspeš, probaj u projekat uključiti TPrinterSetupDialog i/ili TPrinterDialog.

BTW, nemam trenutno instaliran JEDI projekat, ali mislim da se nešto može odraditi i sa TJvgReport!?!

[Ovu poruku je menjao Miloš Baić dana 23.05.2007. u 20:31 GMT+1]
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina


+7 Profil

icon Re: Delfi-txt stampa24.05.2007. u 23:26 - pre 205 meseci
Ako ostajes pri LPT, za ovo moraš da koristiš poseban program. A sad, za inat, ne mogu da se setim imena.

Evo:

http://www.google.com/search?q=USB+LPT+print
 
Odgovor na temu

erc kragujevac
Radomir Brzakovic
Focal point for SAP

Član broj: 30491
Poruke: 144
*.zastava-automobili.com.



+2 Profil

icon Re: Delfi-txt stampa25.05.2007. u 10:54 - pre 205 meseci
Deo koda izgleda ovako(na Click dugmeta Stampa)

AssignFile(F, 'a.tmp');
Rewrite(F);


Write (F, Chr(10), Chr(12)); {reset printera}
Write (F, Chr(27), Chr(64)); {reset printera}
Write (F, Chr(27), Chr(54)); {STAMPA KARAKTERE 128 - 159}
{write (F, Chr(27), Chr(54), Chr(27), Chr(64));}
Case frmPPra.RadioGroup1.ItemIndex Of
0: latinica(0);
1: latinica(1);
2: cirilica;
End;

CloseFile(F);
SCREEN.Cursor := crDefault;

FreeMem(Buf, BufSize);

S := Windows.GetVersion;
If S > 0 Then Komanda := 'cmd /c copy "a.tmp" lpt1:/b'
Else Komanda := 'command.com /c copy "a.tmp" lpt1:/b';

Problem je sta da stavim umesto zadnje dve linije koda,a da mi on stampu posalje na Usb stampac.
Hvala za svu dosadasnju pomoc,ali bi posebno molio ako neko moze da mi primeni ideju sa
notepad.exe /p ime_fajla.txt izmenama u kodu.Dobrodosla je i bilo koja druga izmena!
HVALA!!!
 
Odgovor na temu

nikola.j
Nikola Janković

Član broj: 15712
Poruke: 85
*.ptt.yu.



Profil

icon Re: Delfi-txt stampa25.05.2007. u 11:50 - pre 205 meseci
Kada želiš da kopiraš na LPT port koristiš "lpt:" u kodu. Jesi li probao da kopiraš na "USB001:" ili kako se već zove port na koji pokušavaš da štampaš?

Drugo, pošto već imaš fajl snimljen (a.tmp) startuj (WinExec ili bolje CreateProcess) "notepad.exe /p a.tmp".

Predlažem ti da ostaviš i jednu i drugu opciju u programu, pa korisnik neka podesi.

Pošto će verovatno uslediti pitanje za CreateProcess, iskoristi ovo:
Code:

function RunAndWait(FileName:String; Visibility : integer): integer;
var
  zAppName:array[0..512] of char;
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
  StrPCopy(zAppName,FileName);
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := Visibility;
  if not CreateProcess(nil, zAppName, nil, nil, false, CREATE_NEW_CONSOLE or
    NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
  Result := -1
  else begin
    WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
    GetExitCodeProcess(ProcessInfo.hProcess,cardinal(Result));
    CloseHandle( ProcessInfo.hProcess );
    CloseHandle( ProcessInfo.hThread );
  end;
end;


Ili pošto već imaš:
Komanda := 'cmd /c copy "a.tmp" lpt1:/b'
prepravi u/dodaj :
Komanda := 'cmd /c notepad.exe /p "a.tmp"'
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Delfi-txt stampa

[ Pregleda: 3358 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.