greska u delphiju

Pisao sam ti u PM, ako želiš mogu pogledati preko TeamViewera. Pretpostavljam da nisi dobro instalirao taj QR, trebalo bi ga izbrisati i probati na novo instalirati.

---

Jos uvek se mucim sa istim problemom...hiljadu puta sam reinstalirao delphi i opet isto.....nece samo qreport i greske prijavljuje samo kod aplikacija koje imaju qreport.....znaci access vioalation at adress.....kada treba da otvorim samo taj unit koji je qreport,izbacuje mi skroz nece da ga otvori......otvorio sam ga u notepadu i evo sta ima u njemu...i ne znam sto nece....


unit Unit5;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls, Db, DBTables;

type
TFrmPismo1 = class(TQuickRep)
DataSource1: TDataSource;
Query1: TQuery;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
private

public

end;

var
FrmPismo1: TFrmPismo1;

implementation

{$R *.DFM}


end.

Ajde baci i Unit5.dfm, isto iz notepad-a...

Pozz

evo ga i unit.dfm

object FrmPismo1: TFrmPismo1
Left = 0
Top = 0
Width = 816
Height = 1056
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = Letter
Page.Values = (
127
2794
127
2159
127
127
0)
PrintIfEmpty = False
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = First
SnapToGrid = True
Units = Inches
Zoom = 100
object QRLabel1: TQRLabel
Left = 136
Top = 80
Width = 169
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
359.833333333333
211.666666666667
447.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = '11250 Beograd 92'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel2: TQRLabel
Left = 64
Top = 400
Width = 145
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.1458333333333
169.333333333333
1058.33333333333
383.645833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'v = 100,00 dinara'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel3: TQRLabel
Left = 64
Top = 456
Width = 145
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.1458333333333
169.333333333333
1206.5
383.645833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'Sto dinara'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel4: TQRLabel
Left = 384
Top = 272
Width = 369
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
1016
719.666666666667
976.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel4'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel5: TQRLabel
Left = 384
Top = 352
Width = 201
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
1016
931.333333333333
531.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel5'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel6: TQRLabel
Left = 384
Top = 480
Width = 121
Height = 41
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
108.479166666667
1016
1270
320.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel6'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel7: TQRLabel
Left = 544
Top = 480
Width = 217
Height = 41
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
108.479166666667
1439.33333333333
1270
574.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel7'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object DataSource1: TDataSource
DataSet = Query1
Left = 40
Top = 8
end
object Query1: TQuery
RequestLive = True
SQL.Strings = (
'select * from adresar')
Left = 80
Top = 16
end
end



njega mogu da otvorim i u delphiju

Cek, cek...

Znaci u designtime-u mozes da otvoris .dfm fajl, ali ne mozes .pas (da ti prikaze formu)?

Pozz

Da,bas tako.....ono prvo sto je bilo,otvorio u notepadu,i kada udjem u delphi design,i hocu da otvorim taj report,on mi izbaci skroz iz delphija....i ako hocu da udjem u report preko ikonice,opet mi izbacuje....

A čuj, ili nisi dobro instalirao QR ili imaš neku krekanu verziju koja ne radi baš najbolje (vjerojatnija opcija).

---

Ma sve sam probao...nema sta nisam....i ponovo instalirao quick report i delphi ponovo instalirao hiljadu puta i opet nista....Nesto sam mislio da nije neka greska u registrima....pa sam izbrisao nesto,sto nisma trrebao.....

Moze li Delphi 3,da otvori report napravljen u Delphiju 7....

> Moze li Delphi 3,da otvori report napravljen u Delphiju 7....

D3 može da otvori formu napravljenu u D7. Neki propertiji neće biti kompatibilni ali trebalo bi da radi.

---

Kod mene je greska za greskom....sada programe koje sam pravio u delphiju,i napravio setup istih,instalira se na racunar ali nece da pokrene,dok na svakom drugom kompu,imao ili neimao delphi,radi.......istina je da nece da se postavi qreport na formu izbacuje skroz delphi,ali mozda nije problem u njemu,nego u necem drugom....kada bih uradio reinstalaciju windowsa,verovatno bi sve htelo,ali me nesto mrzi to da radim....

Evo me ponovo u istom problemu,nece da mi otvori qreport,prosli put sam resio problem reinstalacijom windowsa,pa bi li neko pomagao da ne radim to ponovo,jer mi se ocigledno isto desava svaki put....a ne znam sto mi to radi...Sada sam probao da reinstaliram paket qreport,i sklonim ga,i kada treba ponovo vratiti...pojavljuje gresku

fatal error e/programs....../dclqrt30.dpk(34) file not found 'qreport.dcu'


Jel znate sta to moze da bude....

Problem je u tome,sto kada uklonim qreport,i hocu ponovo da ga vratim,i kada kliknem na compile,onda pojavljue da nedostaje qrpt3.dcu,ili tako nesto...to su neki folderu i LIB folderu....Jel ima neko ovih problema...

Jesi dodao u library path putanju do qr3?

---

Nisam,a dokle putanju do qrt30 u libu ili u binu...i koji mi je fajl qreport30.dcu,taj inace nemam....pretpostavljamda je greska negde u toj putanji library path,ali ne znam sto se to desvaa....

_{[Ovu poruku je menjao popmilan76 dana 16.01.2014. u 00:08 GMT+1]}

Jos uveki isto kod mene,kako da nadjem taj qreport.dcu sto mi nedostaje.....Radim reinstalaciju Delphija ali nista,opet isto....Ako treba da se unese u library path,kako to da ucinim....Pozdrav

> Jos uveki isto kod mene,kako da nadjem taj qreport.dcu sto mi nedostaje.....

Negde na netu, ili iz delphi instalacije. Regularna Delphi instalacija sasvim sigurno ima sve sto je potrebno za instalaciju QR. Takodje ako imasš QR bpl onda možeš njega direktno dodati (Component/Install packaged - Add).

> Radim reinstalaciju Delphija ali nista,opet isto....Ako treba da se unese u library path,kako to da ucinim....Pozdrav

Ideš u project options (Ctrl + F11) i upišeš dir gde je taj fajl u Search path.

---

Na tvoj prvi odgovor,ja uradim prvo remove qreport komponenetu,pa je posle dodam,i sve je tu,ali kada treba da pokrenem qreport file iz nekog programa,izbacuje odmah iz delphija skroz,sto se tice drugog odgovra,koju putanju ubacujem u search path,onu do qreporta ili neku drugu.....Prosli put sam ovo resio ,tako sto sam morao da reinstaliram windows,ali to mi sada ne treba iz nekih razloga,da li je moguce da je dolo do neke greke u registrima,posto imam obicaj da koristim cclenar i s vremena na vreme brisem nepotreben stvari u registrima,pa da nije nesto obrisalo,sto ima veze sa ovima.....Inace,u instalaciji,nemam qreport fajl sto mi je potreban.....Molim za pomoc,vec sam dovoljno vremena potrosio...

Meni je u onim serach path i u library path,sledece,i u jednom i u drugom je isto:

E:\Program files\Borland\Delphi 3\Bin;E:\Program files\Borland\Delphi 3\Lib;E:\Program files\Borland\Delphi 3\Imports

Jel treba to da bude ili ne.....Pomagajte drugovi!!!!

> Meni je u onim serach path i u library path,sledece,i u jednom i u drugom je isto:
> E:\Program files\Borland\Delphi 3\Bin;E:\Program files\Borland\Delphi 3\Lib;E:\Program files\Borland\Delphi 3\Imports

Ako dobijaš grešku da ne može naći fajl qreport.dcu ili qreport30.dcu (ili nešto treće), moraš u tom projektu (programu) upisati u Search putanju do dira koji sadrži te fajlove.

I ako često menjaš instalacije, ručno brišeš i ostalo, moja ti je preporuka da napraviš jednu virtuelnu mašinu (VirtualBox je dobar izbor) u njemu instaliraš neki XP i D3 i podesiš sve da radi, napraviš kopiju te virtuelne mašine i onda ako bude nekih problema samo je vratiš.

---