banjalukaforum.com

Dobrodošli na banjalukaforum.com
Danas je 29 Jul 2025, 22:48

Sva vremena su u UTC [ DST ]




Započni novu temu Odgovori na temu  [ 40 Posta ]  Idi na stranicu Prethodni  1, 2
Autoru Poruka
 Tema posta:
PostPoslato: 20 Jul 2003, 18:16 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 01 Avg 2001, 01:00
Postovi: 3380
Lokacija: .: Lugano :.
Instaliras taj stampac kao Generic Text Only, iskljucis spool i sve sto
posaljes na LPT1: izlazi na stampu.

Ali tad neces moci koristiti QReport (nisam proba) i moraces sam slati
ESC sekvence za upravljanje stampacem.


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 21 Jul 2003, 11:53 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
Sredio sam to, na malo laksi nacin nego ovaj gore. Uspio sam ja stampati na njega ali char po char, ali nasao sam na netu kako stampati liniju po liniju. Racunar je P2 233 ili cak slabiji, a u Delphiu 6 radjen program.
Program generise fajlove kojih bude jako puno, nisam ih brojao pa neznam, i nakon 7-8 sati rada pocinje usporavati. Ali u granicama tolerancije tako da nije problem.
Usput kako se to "programer" treba izrazavati?
Znam dosta, i znam strucne izraze al mislim da je bolje da koristim sto jednostavnije da bi ljudi okolo razumjeli. Nema smisla pricati neke stvari ako ih ljudi ne razumiju... Time neces postici da te cijene, cak nasuprot, uglavnom ljudi koji znaju objasniti i koji imaju dobru pricu uglavnom neznaju dosta ili neznaju dovoljno... To je barem moje iskustvo i moje misljenje, i mislim da netreba misliti za sebe da si pametan ili "PROGRAMER". Ne postoje pametni ljudi. Postoje samo vrijedni.

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 21 Jul 2003, 13:27 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 01 Avg 2001, 01:00
Postovi: 3380
Lokacija: .: Lugano :.
SoLiDuS je napisao:
Racunar je P2 233 ili cak slabiji, a u Delphiu 6 radjen program.

Kompajler od D6 je daleko zahtjevniji od onoga na D3 recimo ..
Pogledam samo zahtjevnost IDE-a D6 i D3. Hocu da kazem da za stariji
racunar i windows trebas i stariji Delphi koristiti..

SoLiDuS je napisao:
Program generise fajlove kojih bude jako puno, nisam ih brojao pa neznam, i nakon 7-8 sati rada pocinje usporavati. Ali u granicama tolerancije tako da nije problem.


Opet nisi naveo broj ..
Mogao si reci orijentacijski. Jos jedna stvar je da ti fajlovi nisu svi zakljucani, oni stariji, koje program vishe ne treba cak i ako su generisani u istoj sesiji su slobodni, mozes da ih brises, samo opet ponavljam, ne vidim svrhu.

SoLiDuS je napisao:
Usput kako se to "programer" treba izrazavati?
Znam dosta, i znam strucne izraze al mislim da je bolje da koristim sto jednostavnije da bi ljudi okolo razumjeli. Nema smisla pricati neke stvari ako ih ljudi ne razumiju... Time neces postici da te cijene, cak nasuprot, uglavnom ljudi koji znaju objasniti i koji imaju dobru pricu uglavnom neznaju dosta ili neznaju dovoljno... To je barem moje iskustvo i moje misljenje, i mislim da netreba misliti za sebe da si pametan ili "PROGRAMER". Ne postoje pametni ljudi. Postoje samo vrijedni.


Vidi nesto.
Ne pitas kako se mijenja font u Word-u ili kako se podesava Dial-up konekcija, vec pitas strucno
i slozeno pitanje. Naravno da vecina populacije ne razumije to pitanje, ali ta vecina populacije se ne
bavi programiranjem i logicno da ne razumije i to nije tvoja ciljna skupina, tj ne moze ti pomoci. U tvom je interesu da problem sto slozenije i preciznije objasnis kako bi dobio sto bolji odgovor. Postoje ljudi kojima se ne da objasnjavati svih 100 mogucnosti koje ti se mogu desiti, medjutim ako ti kazes da si probao 90 tih mogucnosti onda ce ti isti ljudi spomenuti jos 10 mogucnosti koje ce ti pomoci.
Znaci poenta je da sto detaljnije i preciznije opises situaciju.

Ova boldovana recenica je .... bas ono ....... bezveze (ne znam drugi izraz)
Znaci neko ko detaljno objasni problem, on nema pojma ????
Halo.....




A to ko je pametan ili ne ... ima na Psihologiji tema ;)


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 25 Jul 2003, 10:15 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
:wink: Nema sta! :D
Broj fajlova neznam, u jednoj sesiji se napravi i po 4-5 hiljada, i iako vecinom ne zauzimaju puno, mozda 2-3 MB, BDE izbacuje greske tipa previse fajlova pokrenuto, nema dovoljno memorije itd...
To se definise u BDE-u, mislim MAXFILESHANDLE i MAXBUFFERSIZE il tako nesto, nemam tu delphi pa neznam. Ja sam ih iskljucio, odnosno izbrisao vrijednost, pa ne izbacuje greske, ali cim su ogranicenja postavljena znaci da se nebi trebala brisati, pa sumnjam u ovu metodu kao neku koja je BAS ispravna, zato non stop pokusavam da nadjem nacin na koji cu to srediti, ne zbog velicine fajlova ili njiihovog broja jer oni nece napuniti ni 100 MB za dugo vremena a pogotovo 2 GB koja su uvjek slobodna, a i skoro svi se obrisu. Razumijes li sada sta pokusavam da uradim?

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 25 Jul 2003, 13:36 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 01 Avg 2001, 01:00
Postovi: 3380
Lokacija: .: Lugano :.
SoLiDuS je napisao:
Razumijes li sada sta pokusavam da uradim?


Razumijem ja sta ti radis, ali isto tako mislim da BDE sam ne pravi ta sranja, odnosno da ne ostavlja temp fajlove. Mislim da si negdje nesto zeznuo :) U sustini ne mora biti krivica do tebe, mozda je greska u BDEu ali pocni prvo od sebe. Napisao sam ti nacin kako da se rijesis tih fajlova :)


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 25 Jul 2003, 15:09 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
Ne ostavlja ih BDE sam od sebe, table komponente rade sasvim uredno i to je ok! :D
Medjutim cim pipnes bilo koji Query generise se neki .bdf file koji u stvari cuva informaciju koju ti Query-jem trazis, odnosno rezultat. Posto kod mene ima kamaru query-ja za razlicite kalkulacije on ih generise puno a predhodne ne oslobadja, probao sam ispocetka ali ponovo se isto desava... :( Ako je do mene objasni mi sta je greska, il probaj sam, pa mi javi.
Evo jednog konkretnog pitanja: Kako da iz Delphija direktno istampam neke linije, i da se nakon stampanja zadnje linije stampanje zaustavi? Evo procedure koju sam nasao, i odradjuje problem, ali uvjek izbacuje puno papira i to nemogu nastimati nikako.

Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
  PrintText:TextFile;
  i,Th,Ph,Lpp,CurrentLine:integer;
const
  TopMargin=4;
  LeftMargin=' ';
begin
  {Preliminary}

  Th:=Printer.Canvas.TextHeight('P');     {Height of current font in pixels}
  ph :=  Printer.Canvas.TextHeight('P') * 4;      {Page Height (printable) in pixels}
  Lpp:= 1;                       {Lines Per Page}
  AssignPrn(PrintText);
  Rewrite(PrintText);         {Open print file}
  CurrentLine:= 1;
  {Top Margin}
  for i:=0 to TopMargin-1 do
    begin
      Write(PrintText,#10); {#10 is a newline. Could have used Writeln(PrintText,'')}
      Inc(CurrentLine);
    end;
  {Print report}
  Writeln(PrintText,LeftMargin+'STR SAN DERVENTA');    {#09 is a horizontal tab}
  Inc(CurrentLine);
  Writeln(PrintText,LeftMargin+'Broj Linije = '+IntToStr(CurrentLine));    {#09 is a horizontal tab}
  Inc(CurrentLine);
  Writeln(PrintText,LeftMargin+'Broj Linije = '+IntToStr(CurrentLine));    {#09 is a horizontal tab}
  Inc(CurrentLine);
  Writeln(PrintText,LeftMargin+'Broj Linije = '+IntToStr(CurrentLine));    {#09 is a horizontal tab}
  Inc(CurrentLine);
  Writeln(PrintText,LeftMargin+'Broj Linije = '+IntToStr(CurrentLine));    {#09 is a horizontal tab}
  Inc(CurrentLine);
  Writeln(PrintText,LeftMargin+'Broj Linije = '+IntToStr(CurrentLine));    {#09 is a horizontal tab}
  Inc(CurrentLine);
  Writeln(PrintText,LeftMargin+'Broj Linije = '+IntToStr(CurrentLine));    {#09 is a horizontal tab}
  Inc(CurrentLine);
  Writeln(PrintText,LeftMargin+'Broj Linije = '+IntToStr(CurrentLine));    {#09 is a horizontal tab}
  Inc(CurrentLine);
  Writeln(PrintText,LeftMargin+'Broj Linije = '+IntToStr(CurrentLine));    {#09 is a horizontal tab}
  Inc(CurrentLine);
  For i:=1 to (Lpp-CurrentLine) do WriteLn(PrintText,'');
  CloseFile(PrintText);
end;

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 25 Jul 2003, 15:17 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
AssignFile(Lst, 'LPT1');
Rewrite(Lst);
WriteLn(Lst, 'Boze jesam degen!?');
Radi, ali kad hocu da ga ponovo pokrenem...
Komanda Close(Lst) neradi...

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 25 Jul 2003, 17:18 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
CloseFile(LST)!
Joooj! :D :D :D
Radi! :D

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 25 Jul 2003, 17:52 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 01 Avg 2001, 01:00
Postovi: 3380
Lokacija: .: Lugano :.
Vidis , sam kad nadjes rijesenje onda si najsrecniji ;)

Naravno CLOSEFILE shalje EOF, a to stampacu znaci i End OF PAge :)


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 28 Jul 2003, 14:55 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
Nabavio sam Cliper, crko sam da ga nadjem, i sad bi mi trebala neka knjigica za njega. Imas li ista što bi mogao preporučiti?

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 28 Jul 2003, 15:33 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 01 Avg 2001, 01:00
Postovi: 3380
Lokacija: .: Lugano :.
uh, sve sto ja imam je jedna starija knjiga, (naravno nove se ne izdaju :) ) medjutim
u stampanom izdanju.
Ono cim sam se ja sluzio je Norton Guide, koji je zapravo help za sve dijelove.
Ali reci mi zasto ce ti danas clipper ?


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 29 Jul 2003, 11:00 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
Vidio sam par programa za kasu koji rade u njemu, stabilnost i brzina su neuporedivi sa windows programima, pa reko da vidim sta se moze uraditi u njemu, malo da ga pogledam, nesto skontam, mozda mi zatreba nekad(iako sumnjam). Svejedno, da barem znam o cemu se radi. Od viska glava ne boli!

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 29 Jul 2003, 11:04 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
I imam ponovo pitanje za tebe.
Koristim Table.Insert proceduru da na dugme otvorim novu stavku u tabeli, ali ona uvjek ubaci ispred zadnje, a zadnju pomjeri dole. Vjerujem da si se susretao sa ovim pa pitam kako da ubaci novu stavku a da ustvari bude kao dole na tastaturi, da doda a ne ubaci u sredini. Znas na sta mislim?

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 31 Dec 2003, 17:44 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
Naucio sam ja davno sql, i nasao sam rijesenje, sada koristim append radi isto kao i insert samo strukturise drugacije....
Sta ja znam, ja sam radio na sql serveru i tu sam nastrebo sql i vidio njegovu primjenu i moc, ali nekako ja vise volim dobri stari delphi kao osnovu...

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 31 Dec 2003, 19:00 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 10 Feb 2002, 01:00
Postovi: 1310
Lokacija: Wien, Österreich
ne bih bash rekao da append i insert rade isto...
insert kao sto sama rijec kaze ubaciju record na mjesto gdje je pozicioniran kursor u bazi...
a append dodaje record na kraj baze...

_________________
Pizzy sagt:
zlaja otiso u kurac
Pizzy sagt:
postao je umoran


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 02 Jan 2004, 10:15 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
Pa to sam i rekao, nebi bilo puno smisla da ima 30 funkcija koje rade isto jelde?

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 08 Feb 2004, 19:33 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
Zna li iko kako se pomocu index-a u paradox-u moze prikazati odredjeni skup podataka?
Ja koristim filtere medjutim sa velikim brojem recorda vrlo su spori...
Ako neko ima alternativno riješenje neka se javi! :D

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 08 Feb 2004, 20:30 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 01 Avg 2001, 01:00
Postovi: 3380
Lokacija: .: Lugano :.
pa jedino da odes na prvi i da radis Next() dok ne dodjes do zadnjeg koji zadovoljava tvoj uslov ?

SQL ima view-e za to i to radi fantasticno

_________________
Nemoj se svadjati sa budalom, ljudi cesto nece primjetiti razliku.


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 09 Feb 2004, 23:52 
OffLine
Pripravnik
Pripravnik
Korisnikov avatar

Pridružio se: 14 Maj 2003, 19:01
Postovi: 164
Lokacija: Cupertino, CA
Ta metoda je previše spora, a sql mi za tu operaciju ne odgovara, zbog specifičnog problema, inače ga redovno koristim tamo gdje se može...
Ništa, hvala...

_________________
It's the terror of knowing
What this world is about


Vrh
 Profil  
 
 Tema posta:
PostPoslato: 10 Feb 2004, 10:54 
OffLine
Veteran
Veteran
Korisnikov avatar

Pridružio se: 01 Avg 2001, 01:00
Postovi: 3380
Lokacija: .: Lugano :.
SoLiDuS je napisao:
Ta metoda je previše spora, a sql mi za tu operaciju ne odgovara, zbog specifičnog problema, inače ga redovno koristim tamo gdje se može...


SQL je jedini koji moze te probleme rijesiti, ako ga mozes koristiti onda je pitanje samo da li znas napisati tu SQL komandu koja ce da odradi posao. Ne izmisljaj toplu vodu jer ona je vec izmisljena.

_________________
Nemoj se svadjati sa budalom, ljudi cesto nece primjetiti razliku.


Vrh
 Profil  
 
Prikaži postove u poslednjih:  Poređaj po  
Započni novu temu Odgovori na temu  [ 40 Posta ]  Idi na stranicu Prethodni  1, 2

Sva vremena su u UTC [ DST ]


Ko je OnLine

Korisnici koji su trenutno na forumu: Nema registrovanih korisnika i 2 gostiju


Ne možete postavljati nove teme u ovom forumu
Ne možete odgovarati na teme u ovom forumu
Ne možete monjati vaše postove u ovom forumu
Ne možete brisati vaše postove u ovom forumu
Ne možete slati prikačene fajlove u ovom forumu

Pronađi:
Idi na:  
Powered by phpBB® Forum Software © phpBB Group
Hosting BitLab
Prevod - www.CyberCom.rs