C ++ Forum | | | | - Page 1 - |
| Detlef Jagolski | Hello Sebastian,
I get since today at left of my mittelgroßen Projektes a Linker Error Message:
MAKE Version 5.2 copyright (c) 1987, 2000 Borland "C rogrammeBorlandBCC55incc32.exe" -o".objPrfMain.obj" -c -w-8026 -w-8057 -w-8060 -w-8017 -w-8004 -w-8066 -w-8041 -w-8027 -q -O2 -tWM -v- -D_WINVER=0x0400 -D_WIN32_WINNT=0x0400 -I"C rogrammeBorlandBCC55include" PrfMain.cpp PrfMain.cpp: "C rogrammeBorlandBCC55incc32.exe" -o".objBusiness-Calc_Edition_2010.obj" -c -w-8026 -w-8057 -w-8060 -w-8017 -w-8004 -w-8066 -w-8041 -w-8027 -q -O2 -tWM -v- -D_WINVER=0x0400 -D_WIN32_WINNT=0x0400 -I"C rogrammeBorlandBCC55include" Business-Calc_Edition_2010.cpp Business-Calc_Edition_2010.cpp: "C rogrammeBorlandBCC55inilink32.exe" @MAKE0000.@@@ Turbo Incremental Link 5.00 copyright (c) 1997, 2000 Borland mortal: Error detected (IMP302) mortal: Access violation. Link terminated. ** error 2 ** deleting "Business-Calc_Edition_2010.exe" Finished.
or
MAKE Version 5.2 copyright (c) 1987, 2000 Borland "C rogrammeBorlandBDS4.0incc32.exe" -o".objPrfMain.obj" -c -w-8026 -w-8057 -w-8060 -w-8017 -w-8004 -w-8066 -w-8041 -w-8027 -q -O2 -tWM -v- -D_WINVER=0x0400 -D_WIN32_WINNT=0x0400 -I"C rogrammeBorlandBDS4.0include" PrfMain.cpp PrfMain.cpp: "C rogrammeBorlandBDS4.0incc32.exe" -o".objBusiness-Calc_Edition_2010.obj" -c -w-8026 -w-8057 -w-8060 -w-8017 -w-8004 -w-8066 -w-8041 -w-8027 -q -O2 -tWM -v- -D_WINVER=0x0400 -D_WIN32_WINNT=0x0400 -I"C rogrammeBorlandBDS4.0include" Business-Calc_Edition_2010.cpp Business-Calc_Edition_2010.cpp: "C rogrammeBorlandBDS4.0inilink32.exe" @MAKE0000.@@@ Turbo Incremental Link 5.69 copyright (c) 1997-2005 Borland Warning: CODE : 0x0000014f / 0x00400000 Warning: DATA : 0x000000a3 / 0x00400000 Warning: DEBSYM : 0x0000000e / 0x00400000 Warning: Extdef flags : 0x00000021 / 0x00004000 Warning: Extdefs : 0x00000084 / 0x00004000 Warning: Import symbols : 0x00000000 / 0x00100000 Warning: OBJ symbols : 0x00000b60 / 0x00100000 Warning: Public GSX : 0x0000003c / 0x000c0000 Warning: Publics : 0x0000021c / 0x000c0000 Warning: SegRelocs : 0x00000438 / 0x00400000 Warning: StringBlock : 0x0000000a / 0x00400000 Warning: Virdefs : 0x00000004 / 0x00020000 Warning: BSS : 0x00000000 / 0x00400000 Warning: CODE : 0x0025c2there / 0x00400000 Warning: D:/Own data/program/Profan/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.ilc: 0x00010000 / 0x03000000 Warning: D:/Own data/program/Profan/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.ild: 0x00010000 / 0x03000000 Warning: D:/Own data/program/Profan/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.ilf: 0x00010000 / 0x03000000 Warning: D:/Own data/program/Profan/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.ils: 0x00050000 / 0x03000000 Warning: D:/Own data/program/Profan/Business-Calc/Business-Calc_Edition_2010_cpp/Business-Calc_Edition_2010.tds: 0x00010000 / 0x06000000 Warning: DATA : 0x000d9830 / 0x00400000 Warning: Extdef flags : 0x000000aa / 0x00004000 Warning: Extdefs : 0x000002a8 / 0x00004000 Warning: Import symbols : 0x00000000 / 0x00100000 Warning: OBJ symbols : 0x00021e8c / 0x00100000 Warning: Public GSX : 0x00002700 / 0x000c0000 Warning: Publics : 0x00015f00 / 0x000c0000 Warning: SegRelocs : 0x00000014 / 0x00400000 Warning: StringBlock : 0x0000001f / 0x00400000 Warning: UNKNOWN : 0x00000006 / 0x00400000 Warning: Virdefs : 0x0000101c / 0x00020000 Warning: unknown heap name : 0x03000000 / 0x03000000 mortal: Speicherbeschrõnkung f³r block SegRelocs in Module Business-Calc_Edition_2010.cpp watts ³berschritten ** error 2 ** deleting "Business-Calc_Edition_2010.exe" Finished.
can You me a Tipp give?
Greeting
Detlef |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 01/29/10 ▲ |
| |
| | | | | - Page 1 - |
| | i know unfortunately not simply a switch X, around the trouble so To solve.
I see now first The Message "... block SegRelocs überschritten", vlt. is the Linker the Objekt To big. what too his can, that the Linker solely a function To big is instead of the whole Objekt, hierbei could something "Umschreiben" the function help - means pieces the function against in functions divide and these new function then but not as Unterfunktionen deklarieren. Perhaps. get You But too z.B. with PoLink gelinkt, z.B. simply here of [...] herunterladen. unless, then should there Sebastian simply time ran, otherwise müsstest You hold the program share, one Workaround would vlt. with Profan2CPP from Programmteilen a DLL produce around the functions from this then the Program first to Laufzeit hinzuzufügen. alike time How, any border and the divide in smaller ones Arbeitsschritte Gibts always. I likes on XProfan, I with PRCs as "Module" works can, what me z.B. the program awfully relieved. with Profan2CPP can Yes similar works, How one "teilt" is Yes almost alike. |
| | | | |
| | Detlef Jagolski | Hello IF, first once thanks for your Proposals.
from the help of Profan2Cpp: an more Einschränkung there unfortunately: inside the DLL should no command or functions, The Window or Fensterelemente produce, uses werden; the behaviour is otherwise unvorhersehbar.
my Program has now ca. 24000 Lines, and is To ca. 30% ready. the only dialogs, Edit‘s etc. everything else is already in four Dll‘s untergebracht. I hope that Sebastian another idea has. Greeting Detlef |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 01/30/10 ▲ |
| |
| | | have You simply Schonmal (s.o.) a others Linker How z.B. POLink probiert? |
| | | | |
| | Detlef Jagolski | whom I will same yet testing. |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 01/30/10 ▲ |
| |
| | | Sag time "Fensterelemente erzeugen" is still seldom, whom biggest part ought to the still not concern. |
| | | | |
| | Detlef Jagolski | Fensterelemente
and so my I Texts, Buttons, Checkboxes, Selectfelder, Radiobuttons, Übersichtsfelder etc.
or what means Sebastian in the Help with Fensterelemente? |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 01/30/10 ▲ |
| |
| | | Durchschnittlich are still The wenigsten Lines engage, items to create, instead of of these To hantieren - know but whom code not. How big is because The Objektdatei? Zeilenzahl says Yes nothing over The Number of instructions/ Programmgröße from. |
| | | | |
| | Detlef Jagolski | OBJ File 4401 KB Program 3,7 MB |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 01/30/10 ▲ |
| |
| | | | - Page 2 - |
| | | an 4 MB OBJ is already gigant, XProfan comes with a Virtel which from.
i know, that not The "Optimierungstips" are, which You strain need, but tappt im dunkeln "funktionieren" independent.
Perhaps. could You time a INC or a Programmteil show, from the You not at all wüsstest, How this wegzuoptimieren is. |
| | | | |
| | Detlef Jagolski |
Proc DesignForm_Lieferantendaten
Declare DesignForm&
Declare dlgexit%
Declare Dlg2Button1&
Declare Dlg2Button2&
Declare Dlg2Button3&
Set("TrueColor", 1)
DesignForm&=Create("Dialog",%hwnd,"Lieferantenstammdaten",%maxX + 5,114,521,415)
Text1&=Create("Text",DesignForm&,"Lieferanten-Nr.:",20,100,102,17)
SetFont Text1&,TextFont4&
Text2&=Create("Text",DesignForm&,"Anrede:",20,120,62,17)
SetFont Text2&,TextFont1&
Text3&=Create("Text",DesignForm&,"Name 1:",20,140,52,17)
SetFont Text3&,TextFont1&
Text4&=Create("Text",DesignForm&,"Name 2:",20,160,52,17)
SetFont Text4&,TextFont1&
Text5&=Create("Text",DesignForm&,"Straße:",20,180,52,17)
SetFont Text5&,TextFont1&
Text6&=Create("Text",DesignForm&,"Land/Plz/place:",20,200,92,17)
SetFont Text6&,TextFont1&
Text7&=Create("Text",DesignForm&,"PLZ/pigeon hole:",20,220,92,17)
SetFont Text7&,TextFont1&
Text8&=Create("Text",DesignForm&,"Telefon:",20,240,72,17)
SetFont Text8&,TextFont1&
Text9&=Create("Text",DesignForm&,"Telefax:",20,260,82,17)
SetFont Text9&,TextFont1&
Text10&=Create("Text",DesignForm&,"Email:",20,280,62,17)
SetFont Text10&,TextFont1&
Text11&=Create("Text",DesignForm&,"URL:",20,300,82,17)
SetFont Text11&,TextFont1&
Text12&=Create("Text",DesignForm&,"Ansprechpartner:",20,320,122,17)
SetFont Text12&,TextFont1&
Text13&=Create("Text",DesignForm&,"Mobil:",20,340,52,17)
SetFont Text13&,TextFont1&
DlgEdit1&=Create("Edit",DesignForm&,"",170,100,121,21)
SetFont DlgEdit1&,TextFont4&
SendMessage(DlgEdit1&,~EM_LIMITTEXT,15,0)
DlgChoiceBox1&=Create("ChoiceBox",DesignForm&,"",170,120,82,120)
ClearList
AddStrings "Firma"
AddStrings "Frau"
AddStrings "Herr"
MoveListToChoice(DlgChoiceBox1&)
ClearList
SendMessage(DlgChoiceBox1&,~CB_SETCURSEL,0,0)
SetFont DlgChoiceBox1&,TextFont4&
DlgEdit2&=Create("Edit",DesignForm&,"",170,140,242,21)
SetFont DlgEdit2&,TextFont4&
SendMessage(DlgEdit2&,~EM_LIMITTEXT,35,0)
DlgEdit3&=Create("Edit",DesignForm&,"",170,160,242,21)
SetFont DlgEdit3&,TextFont4&
SendMessage(DlgEdit3&,~EM_LIMITTEXT,35,0)
DlgEdit4&=Create("Edit",DesignForm&,"",170,180,242,21)
SetFont DlgEdit4&,TextFont4&
SendMessage(DlgEdit4&,~EM_LIMITTEXT,35,0)
DlgEdit5&=Create("Edit",DesignForm&,"",170,200,32,21)
SetFont DlgEdit5&,TextFont4&
SendMessage(DlgEdit5&,~EM_LIMITTEXT,3,0)
SetStyle DlgEdit5&, GetStyle(DlgEdit5&) | ~ES_UPPERCASE
DlgEdit6&=Create("Edit",DesignForm&,"",200,200,72,21)
SetFont DlgEdit6&,TextFont4&
SendMessage(DlgEdit6&,~EM_LIMITTEXT,15,0)
DlgEdit7&=Create("Edit",DesignForm&,"",271,200,142,21)
SetFont DlgEdit7&,TextFont4&
SendMessage(DlgEdit7&,~EM_LIMITTEXT,25,0)
DlgEdit8&=Create("Edit",DesignForm&,"",170,220,72,21)
SetFont DlgEdit8&,TextFont4&
SendMessage(DlgEdit8&,~EM_LIMITTEXT,25,0)
DlgEdit9&=Create("Edit",DesignForm&,"",240,220,82,21)
SetFont DlgEdit9&,TextFont4&
SendMessage(DlgEdit9&,~EM_LIMITTEXT,25,0)
DlgEdit10&=Create("Edit",DesignForm&,"",170,240,152,21)
SetFont DlgEdit10&,TextFont4&
SendMessage(DlgEdit10&,~EM_LIMITTEXT,35,0)
DlgEdit11&=Create("Edit",DesignForm&,"",170,260,152,21)
SetFont DlgEdit11&,TextFont4&
SendMessage(DlgEdit11&,~EM_LIMITTEXT,35,0)
DlgEdit12&=Create("Edit",DesignForm&,"",170,280,242,21)
SetFont DlgEdit12&,TextFont4&
SendMessage(DlgEdit12&,~EM_LIMITTEXT,35,0)
DlgEdit13&=Create("Edit",DesignForm&,"",170,300,242,21)
SetFont DlgEdit13&,TextFont4&
SendMessage(DlgEdit13&,~EM_LIMITTEXT,35,0)
DlgEdit14&=Create("Edit",DesignForm&,"",170,320,242,21)
SetFont DlgEdit14&,TextFont4&
SendMessage(DlgEdit14&,~EM_LIMITTEXT,35,0)
DlgEdit15&=Create("Edit",DesignForm&,"",170,340,152,21)
SetFont DlgEdit15&,TextFont4&
SendMessage(DlgEdit15&,~EM_LIMITTEXT,35,0)
Dlg2Button1&=Create("Button",DesignForm&,"&Speichern",430,90,75,25)
SetFont Dlg2Button1&,ButtonFont1&
Dlg2Button2&=Create("Button",DesignForm&,"&Hilfe",430,120,75,25)
SetFont Dlg2Button2&,ButtonFont1&
Dlg2Button3&=Create("Button",DesignForm&,"&Abbrechen",430,350,75,25)
SetFont Dlg2Button3&,ButtonFont1&
SubClass DlgEdit1&,1
SubClass DlgEdit2&,1
SubClass DlgEdit3&,1
SubClass DlgEdit4&,1
SubClass DlgEdit5&,1
SubClass DlgEdit6&,1
SubClass DlgEdit7&,1
SubClass DlgEdit8&,1
SubClass DlgEdit9&,1
SubClass DlgEdit10&,1
SubClass DlgEdit11&,1
SubClass DlgEdit12&,1
SubClass DlgEdit13&,1
SubClass DlgEdit14&,1
SubClass DlgEdit15&,1
Case Lieferantenstammdaten% = 2: GetListView_Lieferantenstammdaten
SetFocus(DlgEdit1&)
SetWindowPos DesignForm& = CalcLeft(521),CalcTop(415) - 521,415;0
Clear dlgexit%
WhileNot dlgexit%
If GetText$(DlgEdit1&) = ""
EnableWindow Dlg2Button1&,0
Else
EnableWindow Dlg2Button1&,1
EndIf
WaitInput
If %key = 2
dlgexit% = 1
ElseIf Clicked(Dlg2Button1&)
If Lieferantenstammdaten% = 1
Pruefen_Lieferanten
Case &SQLCount = 0: INSERT_Lieferantenstammdaten
ElseIf Lieferantenstammdaten% = 2
UPDATE_Lieferantenstammdaten
EndIf
GetSatz_Lieferantenstammdaten
ElseIf Clicked(Dlg2Button2&)
ElseIf Clicked(Dlg2Button3&)
dlgexit% = 1
ElseIf %key = 5
Help
EndIf
EndWhile
Clear Lieferantenstammdaten%
DestroyWindow(DesignForm&)
SubClass DlgEdit1&,0
SubClass DlgEdit2&,0
SubClass DlgEdit3&,0
SubClass DlgEdit4&,0
SubClass DlgEdit5&,0
SubClass DlgEdit6&,0
SubClass DlgEdit7&,0
SubClass DlgEdit8&,0
SubClass DlgEdit9&,0
SubClass DlgEdit10&,0
SubClass DlgEdit11&,0
SubClass DlgEdit12&,0
SubClass DlgEdit13&,0
SubClass DlgEdit14&,0
SubClass DlgEdit15&,0
ENDPROC
so see The dialogs from, everything else is in DLLs |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 01/30/10 ▲ |
| |
| | | mere what with "Suchen and Ersetzen" To make would, z.B. with:
Text2&=Create("Text",DesignForm&,"Anrede:",20,120,62,17)
SetFont Text2&,TextFont1&
Text3&=Create("Text",DesignForm&,"Name 1:",20,140,52,17)
SetFont Text3&,TextFont1&
Text4&=Create("Text",DesignForm&,"Name 2:",20,160,52,17)
SetFont Text4&,TextFont1&
Text5&=Create("Text",DesignForm&,"Straße:",20,180,52,17)
SetFont Text5&,TextFont1&
Text6&=Create("Text",DesignForm&,"Land/Plz/place:",20,200,92,17)
SetFont Text6&,TextFont1&
Text7&=Create("Text",DesignForm&,"PLZ/pigeon hole:",20,220,92,17)
SetFont Text7&,TextFont1&
Text8&=Create("Text",DesignForm&,"Telefon:",20,240,72,17)
SetFont Text8&,TextFont1&
Text9&=Create("Text",DesignForm&,"Telefax:",20,260,82,17)
SetFont Text9&,TextFont1&
Text10&=Create("Text",DesignForm&,"Email:",20,280,62,17)
SetFont Text10&,TextFont1&
Text11&=Create("Text",DesignForm&,"URL:",20,300,82,17)
SetFont Text11&,TextFont1&
Text12&=Create("Text",DesignForm&,"Ansprechpartner:",20,320,122,17)
SetFont Text12&,TextFont1&
Text13&=Create("Text",DesignForm&,"Mobil:",20,340,52,17)
SetFont Text13&,TextFont1&
DlgEdit1&=Create("Edit",DesignForm&,"",170,100,121,21)
SetFont DlgEdit1&,TextFont4&
vlt. To
DlgEdit1&=Create("Edit",DesignForm&,"",170,100,121,21)
Text9&=Create("Text",DesignForm&,"Telefax:",20,260,82,17)
Text8&=Create("Text",DesignForm&,"Telefon:",20,240,72,17)
Text7&=Create("Text",DesignForm&,"PLZ/pigeon hole:",20,220,92,17)
Text6&=Create("Text",DesignForm&,"Land/Plz/place:",20,200,92,17)
Text5&=Create("Text",DesignForm&,"Straße:",20,180,52,17)
Text4&=Create("Text",DesignForm&,"Name 2:",20,160,52,17)
Text3&=Create("Text",DesignForm&,"Name 1:",20,140,52,17)
Text2&=Create("Text",DesignForm&,"Anrede:",20,120,62,17)
Text13&=Create("Text",DesignForm&,"Mobil:",20,340,52,17)
Text12&=Create("Text",DesignForm&,"Ansprechpartner:",20,320,122,17)
Text11&=Create("Text",DesignForm&,"URL:",20,300,82,17)
Text10&=Create("Text",DesignForm&,"Email:",20,280,62,17)
SetFont Text9&,TextFont1&
SetFont Text8&,TextFont1&
SetFont Text7&,TextFont1&
SetFont Text6&,TextFont1&
SetFont Text5&,TextFont1&
SetFont Text4&,TextFont1&
SetFont Text3&,TextFont1&
SetFont Text2&,TextFont1&
SetFont Text13&,TextFont1&
SetFont Text12&,TextFont1&
SetFont Text11&,TextFont1&
SetFont Text10&,TextFont1&
SetFont DlgEdit1&,TextFont4&
where:
SetFont Text9&,TextFont1&
SetFont Text8&,TextFont1&
SetFont Text7&,TextFont1&
SetFont Text6&,TextFont1&
SetFont Text5&,TextFont1&
SetFont Text4&,TextFont1&
SetFont Text3&,TextFont1&
SetFont Text2&,TextFont1&
SetFont Text13&,TextFont1&
SetFont Text12&,TextFont1&
SetFont Text11&,TextFont1&
SetFont Text10&,TextFont1&
SetFont DlgEdit1&,TextFont4&
with of/ one function on 1 row reduzierbar would: and then only
or with ständigen Edits with Limittext
DlgEdit14&=Create("Edit",DesignForm&,"",170,320,242,21)
SetFont DlgEdit14&,TextFont4&
SendMessage(DlgEdit14&,~EM_LIMITTEXT,35,0)
simply with of/ one Hilfsfunktion myCreateEdit(DesignForm&,vorgabeText$,maxLen&,TextFont4&,X&,Y&,...) a row draus make. likewise with
SubClass DlgEdit1&,1
SubClass DlgEdit2&,1
SubClass DlgEdit3&,1
SubClass DlgEdit4&,1
SubClass DlgEdit5&,1
SubClass DlgEdit6&,1
SubClass DlgEdit7&,1
SubClass DlgEdit8&,1
SubClass DlgEdit9&,1
SubClass DlgEdit10&,1
SubClass DlgEdit11&,1
SubClass DlgEdit12&,1
SubClass DlgEdit13&,1
SubClass DlgEdit14&,1
SubClass DlgEdit15&,1
, Why not and from
SubClass DlgEdit1&,0
SubClass DlgEdit2&,0
SubClass DlgEdit3&,0
SubClass DlgEdit4&,0
SubClass DlgEdit5&,0
SubClass DlgEdit6&,0
SubClass DlgEdit7&,0
SubClass DlgEdit8&,0
SubClass DlgEdit9&,0
SubClass DlgEdit10&,0
SubClass DlgEdit11&,0
SubClass DlgEdit12&,0
SubClass DlgEdit13&,0
SubClass DlgEdit14&,0
SubClass DlgEdit15&,0
vlt.
so save You terrific.
I Have of course no Profan2Cpp but You can me the directory with the CPP-proposition too zusenden and I look, whether it with ever one Linker To left is. whom View source need I for not. |
| | | | |
| | Detlef Jagolski | Hello IF,
again many Thanks for your Help. i'll first once yourself others Linker testing z.B. VC++ and PoLink. only is it angry everything once more Durchzuackern what now already runs. yet have I large projects with Delphi written. Möglicherweise be I faster if I whom part with Delphi new write. Perhaps has Sebastian another idea.
Greeting
Detlef |
| | | XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 01/31/10 ▲ |
| |
|
AnswerTopic-Options | 17.075 Views |
Themeninformationenthis Topic has 2 subscriber: |