Board index » off-topic » Access Violations

Access Violations


2003-07-22 10:03:25 PM
off-topic11
A small percentage of my users are getting access violations in the
vcldb40.bpl. I have not been able to duplicate this error on my
computer even using there data files. I know the when the vcldb is
involved it is most likely in the data somewhere. I have checked this
on several of my computers but I can never seem to get it. We have been
using the BDE since version 4 but now we are using 5.1.1. Any thoughts?
Paul
 
 

Re:Access Violations

The client continues to get it not always in the same area.
We are using Paradox.
Yes we are using D4
Not sure if it does deal with the BDE I just notice that their errors
are coming from the VCL40db, which that relates to the components that
connects to the BDE. It is just seems wierd that we have a majority of
our 700 + users running right now, and only about a dozen are getting
this problem. So I am not sure that it is the code involved, if it was
my phone would be ringing off the hook. I was just wondering if
something in relation to the BDE could be causing the error? I checked
out their data files and everything seems to be ok, and it is not OS
related because our users with get it on a range of OS's. The funny
thing is, is that it works on some of their computers but not all. Any
suggestions?
Paul
Bill Todd wrote:
Quote
Not with the information available.

Is the AV reproducible at the client site?
What database are you using?
I assume this is a Delphi 4 application. Is that correct?
What makes you think the AV has anything to do with the BDE?

--
Bill (TeamB)
(TeamB cannot respond to questions received via email)
 

Re:Access Violations

I pretty much understand that I was just wondering if you heard of this
with something with the BDE. Thank You very much
Paul
Bill Todd wrote:
Quote
The only thing that I can tell you is that the vast majority of AV's
are caused by refering to object instances that do not exist. Either
the instance has not been created or the instance has already been
freed.

--
Bill (TeamB)
(TeamB cannot respond to questions received via email)
 

{smallsort}

Re:Access Violations

Hi All,
I have a situation at work where I have to troubleshoot some existing code.
To overcome a problem I have to add a new parameter to a function within one
of library units that is bundled up into a package.
However when I simply just add the parameter to the declaration as such,
somefunction(other params; WaitFor : Boolean = false) : Boolean;
and did not change any function calls to use this parameter or any code
within the function. I then compiled the package ok, and ran the app,
however I get access violations after this function was executed in
unrelated code pieces.
I then remove the parameter and recompile the package and all is ok. program
works fine with no acces violations. I checked that only one dcu and bpl
exist and are in the right paths.
In summary, a "parameter change only" to a function causes access violations
in unrelated code elsewhere thats normally OK.
Its been suggested that a memory leak elsewhere could be causing this??
Any thoughts??
Thanks,
Bryan.
 

Re:Access Violations

"Bryan" < XXXX@XXXXX.COM >wrote
Quote
I have a situation at work where I have to troubleshoot some existing code. To overcome a problem I have to add a new parameter to a function within one of library units that is bundled up into a package.
However when I simply just add the parameter to the declaration as such,
somefunction(other params; WaitFor : Boolean = false) : Boolean;
Bryan, First, some obvious questions:
Is "WaitFor" the added parameter?
Does WaitFor=false cause the previous operation of somefunction to be executed?
Regards, JohnH
 

Re:Access Violations

"Bryan" < XXXX@XXXXX.COM >wrote in message
Quote
Hi All,

I have a situation at work where I have to troubleshoot some
existing code.
To overcome a problem I have to add a new parameter to a function
within one
of library units that is bundled up into a package.

However when I simply just add the parameter to the declaration as
such,
somefunction(other params; WaitFor : Boolean = false) : Boolean;
and did not change any function calls to use this parameter or any
code
within the function. I then compiled the package ok, and ran the
app,
however I get access violations after this function was executed in
unrelated code pieces.

I then remove the parameter and recompile the package and all is ok.
program
works fine with no acces violations. I checked that only one dcu and
bpl
exist and are in the right paths.
Did you recompile ALL bpl's that reference the changed function?
Quote

In summary, a "parameter change only" to a function causes access
violations
in unrelated code elsewhere thats normally OK.

Its been suggested that a memory leak elsewhere could be causing
this??

Any thoughts??

Thanks,
Bryan.


 

Re:Access Violations

Hi John,
Yes, WaitFor is the added parameter.
just for testing this, I added the WaitFor to the function declaration only,
it does nothing inside the function.
With this added parameter I get access violations, without it the code
executes OK.
Bryan.
"John Herbster (TeamB)" <herb-sci1_at_sbcglobal.net>wrote in message
"Bryan" < XXXX@XXXXX.COM >wrote
Quote
I have a situation at work where I have to troubleshoot some existing
code. To overcome a problem I have to add a new parameter to a function
within one of library units that is bundled up into a package.
Quote
However when I simply just add the parameter to the declaration as such,
somefunction(other params; WaitFor : Boolean = false) : Boolean;
Bryan, First, some obvious questions:
Is "WaitFor" the added parameter?
Does WaitFor=false cause the previous operation of somefunction to be
executed?
Regards, JohnH
 

Re:Access Violations

yep, deleted all exes, bpls and dcus and recompiled
Quote

Did you recompile ALL bpl's that reference the changed function?

>
 

Re:Access Violations

Hello,
I have this block of code (see below) that sometimes gets an Access
Violation Error and other times runs no problem. Basically I have to radio
buttons on my form to sitch all the text on the form between English and
Chinese. I can click back and forth between the two and have no problems
and other times I switch back and forth and I get the error. I have no idea
how to troubleshoot this. I have stepped through it and it never seems to
crash at the same place two times in a row. Is this memory leak related?
Any ideas are greatly appreciated.
Code:
procedure Tfrm_Main.FillLabels();
begin
try
if doagain then
begin
// Clear all strings before adding new text to them
cmb_Alarm_ApplicationFilter.Items.Clear;
cmb_Alarm_SeverityFilter.Items.Clear;
cmb_Alarm_AckFilter.Items.Clear;
rg_Alarm_Sort.Items.Clear;
cmbx_Reports_Shift.Items.Clear;
cmbx_Reports_Origin.Items.clear;
rg_Reports_List.Items.Clear;
cmbx_Inventory_Reagent.Items.Clear;
cmbx_Reports_Shift.Items.Add('8:00 - 16:00');
cmbx_Reports_Shift.Items.Add('16:00 - 0:00');
cmbx_Reports_Shift.Items.Add('0:00 - 8:00');
cmbx_Reports_Shift.ItemIndex := 0;
if rg_Installation_Language.ItemIndex = 0 then
begin
rg_Installation_Language.Items.Clear;
btn_Alarm_Ack.Caption := 'ACK';
btn_Alarm_Print.Caption := 'PRINT REPORT';
btn_Alarm_RemoveFilter.Caption := 'REMOVE FILTERS';
btn_Constants_Accept.Caption := 'ACCEPT';
btn_Constants_Cancel.Caption := 'CANCEL';
btn_Constants_Change.Caption := 'CHANGE';
btn_Heat_Accept.Caption := 'ACCEPT';
btn_Heat_Cancel.Caption := 'CANCEL';
btn_Heat_Change.Caption := 'CHANGE';
btn_Heat_Print.Caption := 'PRINT';
btn_Inj_AcceptChange.Caption := 'ACCEPT';
btn_Inj_Calculate.Caption := 'CALCULATE';
btn_Inj_Calculate.Hint := 'Click here to request setpoints
from the model';
btn_Inj_CancelChange.Caption := 'CANCEL';
btn_Inj_ChangeData.Caption := 'CHANGE';
btn_Inj_ChangeData.Hint := 'Click here to change the
injection data';
btn_Inj_ForceHeat.Caption := 'BLANK HEAT';
btn_Inj_ForceHeat.Hint := 'Click here to create a new
empty heat';
btn_Inj_NextHeat.Caption := 'NEXT HEAT';
btn_Inj_NextHeat.Hint := 'Click here to retrieve a new
heat from the schedule';
btn_Inj_Reblow.Caption := 'RE-BLOW';
btn_Inj_Reblow.Hint := 'Click here to re-inject this
ladle';
btn_Installation_Accept.Caption := 'ACCEPT';
btn_Installation_Cancel.Caption := 'CANCEL';
btn_Installation_Change.Caption := 'CHANGE';
btn_Inventory_Add.Caption := 'ADD';
btn_Reports_Preview.Caption := 'PREVIEW';
btn_Reports_Print.Caption := 'PRINT';
btn_Trends_Consumption.Caption := 'Reagent Consumption';
btn_Trends_Durations.Caption := 'Durations';
btn_Trends_Skim.Caption := 'Skim Weight';
btn_Trends_Success.Caption := 'Sulphur Results';
chk_Reports_UseS.Caption := 'Use Sulphur Filter';
chk_Reports_UseT.Caption := 'Use Temperature Filter';
cmb_Alarm_ApplicationFilter.Items.Add('HMI');
cmb_Alarm_ApplicationFilter.Items.Add('Model');
cmb_Alarm_ApplicationFilter.Items.Add('ORA');
cmb_Alarm_ApplicationFilter.Items.Add('Tee-Chart');
cmbx_Inventory_Reagent. Text := 'Mg';
cmbx_Inventory_Reagent.Items.Add('CaO');
cmbx_Inventory_Reagent.Items.Add('Mg');
cmbx_Reports_Origin.Items.Add('HMI');
cmbx_Reports_Origin.Items.Add('Model');
cmbx_Reports_Origin.Items.Add('ORA');
cmbx_Reports_Origin.Items.Add('Tee-Chart');
cmbx_Reports_Origin.Text := 'All (no filter)';
dbch_Consumption.BottomAxis.Title.Caption := 'Heat ID';
dbch_Consumption.LeftAxis.Title.Caption := 'Amount
Injected (kg)';
dbch_Consumption.RightAxis.Title.Caption := 'Sulphur
Difference (%)';
dbch_Consumption.Title.Text.Clear;
dbch_Consumption.Title.Text.Add('REAGENT CONSUMPTION');
dbch_Durations.BottomAxis.Title.Caption := 'Heat ID';
dbch_Durations.LeftAxis.Title.Caption := 'Seonds';
dbch_Durations.RightAxis.Title.Caption := 'Sulphur Level
(%)';
dbch_Durations.Title.Text.Clear;
dbch_Durations.Title.Text.Add('INJECTION DURATION');
dbch_SkimWgts.BottomAxis.Title.Caption := 'Heat ID';
dbch_SkimWgts.LeftAxis.Title.Caption := 'Final Temperature
(C)';
dbch_SkimWgts.RightAxis.Title.Caption := 'Skim Weight';
dbch_SkimWgts.Title.Text.Clear;
dbch_SkimWgts.Title.Text.Add('SKIM WEIGHTS');
dbch_SulphurResults.BottomAxis.Title.Caption := 'Heat ID';
dbch_SulphurResults.LeftAxis.Title.Caption := 'Sulphur
Level (%)';
dbch_SulphurResults.Title.Text.clear;
dbch_SulphurResults.Title.Text.Add('SULPHUR ANALYSIS');
dbgrd_Constants.Columns[0].Title.Caption :=
'CONSTANT_NAME';
dbgrd_Constants.Columns[1].Title.Caption := 'DESCRIPTION';
dbgrd_Constants.Columns[2].Title.Caption := 'VALUE';
dbGrid_Alr_Alarms.Columns[0].Title.Caption := 'DATE';
dbGrid_Alr_Alarms.Columns[1].Title.Caption := 'ORIGIN';
dbGrid_Alr_Alarms.Columns[2].Title.Caption := 'ACK';
dbGrid_Alr_Alarms.Columns[3].Title.Caption := 'SEVERITY';
dbGrid_Alr_Alarms.Columns[4].Title.Caption :=
'DESCRIPTION';
dbgrid_Inventory_List.Columns[0].Title.Caption := 'Date
Received';
dbgrid_Inventory_List.Columns[1].Title.Caption :=
'Operator Name';
dbgrid_Inventory_List.Columns[2].Title.Caption := 'Group';
dbgrid_Inventory_List.Columns[3].Title.Caption := 'Shift
ID';
dbgrid_Inventory_List.Columns[4].Title.Caption :=
'Reagent';
dbgrid_Inventory_List.Columns[5].Title.Caption :=
'Supplier';
dbgrid_Inventory_List.Columns[6].Title.Caption :=
'Waybill';
dbgrid_Inventory_List.Columns[7].Title.Caption :=
'Amount';
dbgrid_Inventory_List.Columns[8].Title.Caption :=
'Station';
dbGrid_Schedule.Columns[0].Title.Caption := 'Sched No.';
dbGrid_Schedule.Columns[1].Title.Caption := 'Stn.';
dbGrid_Schedule.Columns[10].Title.Caption := 'P';
dbGrid_Schedule.Columns[11].Title.Caption := 'SI';
dbGrid_Schedule.Columns[12].Title.Caption := 'Temp';
dbGrid_Schedule.Columns[13].Title.Caption := 'HM Wgt';
dbGrid_Schedule.Columns[14].Title.Caption := 'Leftover';
dbGrid_Schedule.Columns[15].Title.Caption := 'S{*word*99}';
dbGrid_Schedule.Columns[16].Title.Caption := 'Grade';
dbGrid_Schedule.Columns[2].Title.Caption := 'Ladle';
dbGrid_Schedule.Columns[3].Title.Caption := 'Expected
Start';
dbGrid_Schedule.Columns[4].Title.Caption := 'Expected
End';
dbGrid_Schedule.Columns[5].Title.Caption := 'Aim S';
dbGrid_Schedule.Columns[6].Title.Caption := 'Init S';
dbGrid_Schedule.Columns[7].Title.Caption := 'C';
dbGrid_Schedule.Columns[8].Title.Caption := 'BF Slag';
dbGrid_Schedule.Columns[9].Title.Caption := 'MN';
dblu_Reports_HeatID.Hint := 'Select the Heat number here';
frm_Main.Caption := 'Benxi Desulphurization Station: Level
2 HMI';
grbx_Reports_Filters.Caption := 'FILTERS';
lbl_Alarm_Ack.Caption := 'ACK';
lbl_Alarm_Application.Caption := 'Application';
lbl_Alarm_Date.Caption := 'Date';
lbl_Alarm_Filter.Caption := 'FILTERS:';
lbl_Alarm_Severity.Caption := 'Severity';
lbl_C.Caption := 'C';
lbl_Heat_ActualRatio.Caption := 'Ratio:';
lbl_Heat_ActualsColumn.Caption := 'Actual';
lbl_Heat_AimSulphur.Caption := 'Aim Sulphur (%):';
lbl_Heat_BFSlag.Caption := 'BF Slag:';
lbl_Heat_CaoDispPress.Caption := 'CaO Disp Avg Pressure
(kPa):';
lbl_Heat_CaOInj.Caption := 'CaO Injected (kg):';
lbl_Heat_CAOInjEnd.Caption := 'CaO Inj End:';
lbl_Heat_CaoInjRate.Caption := 'CaO Inj Rate (kg/min):';
lbl_Heat_CAOInjStart.Caption := 'CaO Inj Start:';
lbl_Heat_CaoSilo.Caption := 'CAO SILO';
lbl_Heat_CaOSP.Caption := 'CaO (kg):';
lbl_Heat_CaoSupp.Caption := 'Supplier:';
lbl_Heat_CaoWgt.Caption := 'Weight (tons):';
lbl_Heat_Ccontent.Caption := 'C (%):';
lbl_Heat_Comments.Caption := 'Comments:';
lbl_Heat_Conformance.Caption := 'Conformance:';
lbl_Heat_CycleDur.Caption := 'Cycle Duration (min:secs):';
lbl_Heat_CycleEnd.Caption := 'Cycle End:';
lbl_Heat_CycleStart.Caption := 'Cycle Start:';
lbl_heat_EndSkimWgt.Caption := 'HM Wgt End Skim:';
lbl_Heat_EstSlagWgt.Caption := 'Estimated Slag Wgt:';
lbl_Heat_FinalS.Caption := 'Final Sulphur (%):';
lbl_Heat_FinalT.Caption := 'Final Temperature (C):';
lbl_Heat_FinalW.Caption := 'HM Wgt Post Desulph (tons):';
lbl_Heat_FlowPress.Caption := 'Convey Pressure (kPa):';
lbl_Heat_GroupID.Caption := 'Group ID:';
lbl_Heat_HeatID.Caption := 'Heat ID:';
lbl_Heat_HMLeftover.Caption := 'Leftover HM Weight (tons):';
lbl_Heat_HMWeight.Caption := 'Poured HM Weight:';
lbl_Heat_InitHMWgt.Caption := 'Init HM Wgt (tons):';
lbl_Heat_InitSulphur.Caption := 'Initial Sulphur (%):';
lbl_Heat_InitTemp.Caption := 'Init Temp (C):';
lbl_Heat_InjectionDur.Caption := 'CaO Inj Duration (min:sec):';
lbl_Heat_InjResults.Caption := 'Injection Results:';
lbl_Heat_Installation.Caption := 'Installation:';
lbl_Heat_LadleNo.Caption := 'Ladle:';
lbl_Heat_Lance.Caption := 'LANCE';
lbl_Heat_LanceDepth.Caption := 'Lance Depth (cm):';
lbl_Heat_LanceHeats.Caption := 'Heats:';
lbl_Heat_LanceNo.Caption := 'Number:';
lbl_Heat_LanceSupp.Caption := 'Supplier:';
lbl_Heat_MaterialGasRate.Caption := 'Material Gas Rate
(Kg/Nm3):';
lbl_Heat_Mg_Inj.Caption := 'Mg Injected (kg):';
lbl_Heat_MgDispPress.Caption := 'Mg Disp Avg Pressure:';
lbl_Heat_MgInjDuration.caption := 'Mg Inj Duration (min:sec):';
lbl_Heat_MgInjEnd.Caption := 'Mg Inj End Time:';
lbl_Heat_MgInjRate.Caption := 'Mg Inj Rate (kg/min):';
lbl_Heat_MgInjStart.Caption := 'Mg Inj Start Time:';
lbl_Heat_MgRateSP.Caption := 'Mg Rate Setpoint:';
lbl_Heat_MgSilo.Caption := 'MG SILO';
lbl_Heat_MgSP.Caption := 'Mg(kg):';
lbl_Heat_MgSupp.Caption := 'Supplier:';
lbl_Heat_MgWgt.Caption := 'Weight (tons):';
lbl_Heat_MnContent.Caption := 'Mn (%):';
lbl_Heat_Model.Caption := 'MODEL';
lbl_Heat_ModelColumn.Caption := 'INITIAL';
lbl_Heat_ModelResults.Caption := 'Model Results:';
lbl_Heat_Operator.Caption := 'Operator:';
lbl_Heat_Pcontent.Caption := 'P (%):';
lbl_Heat_PredictedFinalTemp.Caption := 'Predicted Temp Loss
(C):';
lbl_Heat_PredictedFinalWght.Caption := 'Predicted Iron Loss:';
lbl_Heat_PredInjTime.Caption := 'Predicted Inj Time:';
lbl_Heat_Ratio.Caption := 'Ratio:';
lbl_Heat_Reblow.Caption := 'Reblow:';
lbl_Heat_ReblowInitS.Caption := 'Initial Sulphur:';
lbl_Heat_ReblowStart.Caption := 'Start Time:';
lbl_Heat_ResultsOverride.Caption := 'OVERRIDE';
lbl_Heat_SchedActual.Caption := 'Actual';
lbl_Heat_SchedData.Caption := 'Scheduled Data:';
lbl_Heat_SchedExp.Caption := 'SCHED';
lbl_Heat_SchedNo.Caption := 'Sched. No.:';
lbl_Heat_S{*word*99}Added.Caption := 'S{*word*99} Added (tons):';
lbl_Heat_Selected.Caption := 'SELECTED';
lbl_Heat_SetPointOverride.Caption := 'OVERRIDE';
lbl_Heat_SetPoints.Caption := 'Initial Data:';
lbl_Heat_Shift.Caption := 'Shift ID:';
lbl_Heat_SiContent.Caption := 'Si (%):';
lbl_Heat_SkimActual.Caption := 'Actual';
lbl_Heat_SkimDur.Caption := 'Duration (min:sec):';
lbl_Heat_SkimEnd.Caption := 'Skim End Time:';
lbl_Heat_SkimHeats.Caption := 'Heats:';
lbl_Heat_Skimmer.Caption := 'SKIMMER';
lbl_Heat_SkimNo.Caption := 'Number:';
lbl_Heat_SkimOverride.Caption := 'OVERRIDE';
lbl_Heat_SkimResults.Caption := 'Skimming Results:';
lbl_Heat_SkimSupp.Caption := 'Supplier:';
lbl_Heat_StartSkim.Caption := 'Skim Start Time:';
lbl_Heat_StationID.Caption := 'Station:';
lbl_Heat_SteelGrade.Caption := 'Steel Grade:';
lbl_Heat_TiContent.Caption := 'Ti (%):';
lbl_Heat_VersionOfModel.Caption := 'Version Of Model:';
lbl_Inj_AimS.Caption := 'Aim Sulphur';
lbl_Inj_CaOSP.Caption := 'CaO (kg):';
lbl_Inj_CPK.Caption := 'Conformance:';
lbl_Inj_Data.Caption := 'Initial Data';
lbl_Inj_FormulaInfo.Caption := 'Formula Information';
lbl_Inj_Heat.Caption := 'Current Heat Number:';
lbl_Inj_Heat.Hint := 'Current Heat Number';
lbl_Inj_Initial.Caption := 'Initial:';
lbl_Inj_InitS.Caption := 'Initial Sulphur';
lbl_Inj_InitTemp.Caption := 'Initial HM Temp.';
lbl_Inj_InitWgt.Caption := 'Initial HM Weight';
lbl_Inj_LadleNo.Caption := 'Ladle Number:';
lbl_Inj_LD.Caption := 'Lance Depth (m):';
lbl_Inj_MgSP.Caption := 'Mg (kg):';
lbl_Inj_MinsSP.Caption := 'Expected Duration (mins:sec):';
lbl_Inj_ModelSP.Caption := 'Model';
lbl_Inj_PredictedFinalTemp.Caption := 'Predicted Final Temp
(C):';
lbl_Inj_PredictedFinalWght.Caption := 'Predicted Final Weight
(tons):';
lbl_Inj_RateSP.Caption := 'Mg Injection Rate Setpoint
(kg/min):';
lbl_Inj_Ratio.Caption := 'Reagent Ratio:';
lbl_Inj_SchedNo.Caption := 'Schedule Number:';
lbl_Inj_SchedSteelGrade.Caption := 'Scheduled Steel Grade:';
lbl_Inj_SelectSP.Caption := 'Override';
lbl_Inj_SetPoints.Caption := 'Injection Set-Points';
lbl_Inj_Si.Caption := 'Si Content (%):';
lbl_Installation_CaOSilo.Caption := 'CaO Silo Weight:';
lbl_Installation_CaOSupp.Caption := 'CaO Supplier:';
lbl_Installation_Group.Caption := 'Group ID:';
lbl_Installation_LanceCharges.Caption := 'Lance Life (Heats):';
lbl_Installation_LanceNo.Caption := 'Lance Number:';
lbl_Installation_LanceSupp.Caption := 'Lance Supplier:';
lbl_Installation_MgSilo.Caption := 'Mg Silo Weight:';
lbl_Installation_MgSupp.Caption := 'Mg Supplier:';
lbl_Installation_ModelVersion.Caption := 'Verion Of Model:';
lbl_Installation_Operator.Caption := 'Operator ID:';
lbl_Installation_PaddleLife.Caption := 'Skimmer Paddle Life
(Heats):';
lbl_Installation_PaddleNo.Caption := 'Skimmer Paddle Number:';
lbl_Installation_PaddleSupp.Caption := 'Skimmer Paddle
Supplier:';
lbl_Installation_Sift.Caption := 'Shift ID:';
lbl_Inventory_Amount.Caption := 'Amount:';
lbl_Inventory_CaO.Caption := 'CaO:';
lbl_Inventory_Date.Caption := 'Date:';
lbl_Inventory_Extimate.Caption := 'Estimated Silo Levels:';
lbl_Inventory_Group.Caption := 'Group:';
lbl_Inventory_Mg.Caption := 'Mg:';
lbl_Inventory_Operator.Caption := 'Operator:';
lbl_Inventory_Reagent.Caption := 'Reagent:';
lbl_Inventory_Shift.Caption := 'Shift:';
lbl_Inventory_Supplier.Caption := 'Supplier:';
lbl_Inventory_Waybill.Caption := 'Waybill No.:';
lbl_Operator.Caption := 'Operator:';
lbl_PPM.Caption := '%' ;
lbl_PPM2.Caption := '%';
lbl_Reports_AppOfOrigin.Caption := 'Alarm Application of
Origin:';
lbl_Reports_EndDate.Caption := 'End Date:';
lbl_Reports_Heat.Caption := 'Heat:';
lbl_Reports_PrintPath.Caption := 'No printers have been
installed on this computer.';
lbl_Reports_Shift.Caption := 'Shift:';
lbl_Reports_StartDate.Caption := 'Start Date:';
lbl_Reports_Sulphur.Caption := 'Aim Sulphur';
lbl_Reports_Temperature.Caption := 'Temperature:';
lbl_StationID.Caption := 'Station ID';
lbl_Title.Caption := 'Benxi Desulphurization Station';
lbl_Ton.Caption := 'TON';
pvl_Report_Preview.Caption := 'Report Preview';
rg_Alarm_Sort.Caption := 'Sort By:';
rg_Alarm_Sort.Items.add('Ack');
rg_Alarm_Sort.Items.add('Origin');
rg_Alarm_Sort.Items.add('Severity');
rg_Alarm_Sort.Items.add('Timestamp');
rg_Installation_Language.Caption := 'Language Switch';
rg_Installation_Language.Items.Add('English');
rg_Installation_Language.Items.Add('Chinese');
rg_Reports_List.Items.add('Heat Report');
rg_Reports_List.Items.add('Shift Report');
rg_Reports_List.Items.add('Day Report');
rg_Reports_List.Items.add('Month Report');
rg_Reports_List.Items.add('Alarm Report');
rg_Reports_List.Items.add('Sulphur Analysis Report');
rg_Reports_List.Items.add('Inventory Report');
rg_Reports_List.Items.add('Raw Material Report');
Series1.Title := 'CaO Duration';
Series10.Title := 'Sulphur Difference';
Series11.Title := 'Initial S';
Series2.Title := 'Skim Weight';
Series3.Title := 'Final Temperature';
Series4.Title := 'Aim S';
Series5.Title := 'Final S';
Series6.Title := 'Mg Duration';
Series7.Title := 'Sulphur Difference';
Series8.Title := 'CaO Added';
Series9.Title := 'Mg Added';
tab_Alarm.Caption := 'Alarms';
tab_Constant.Caption := 'Constants';
tab_Heat.Caption := 'Heat';
tab_Injection.Caption :='Injection';
tab_Installation.Caption := 'Installation';
tab_Inventory.Caption := 'Inventory';
tab_Report.Caption := 'Reports';
tab_Schedule.Caption := 'Schedule';
tab_Trend.Caption := 'Trends';
DoAgain := false;
rg_Installation_Language.ItemIndex := 0;
// tell model we are running in English for Model alarms
with adoSP_WritePipe do
begin
Parameters.ParamValues['TheMessage'] := 'ENGLISH';
Parameters.ParamValues['PipeName'] := 'MODEL';
ExecProc;
end;
end
else
begin
// when doing Chinese we force the font size and font name for
each control
rg_Installation_Language.Items.Clear;
btn_Alarm_Ack.Font.Name := '黑体';
btn_Alarm_Ack.Font.Size := 11;
btn_Alarm_Ack.Caption := '确认';
btn_Alarm_Print.Caption := '打印报表';
btn_Alarm_Print.Font.name := '';
btn_Alarm_Print.Font.Size := 11;
btn_Alarm_RemoveFilter.Font.Name:= '黑体';
btn_Alarm_RemoveFilter.Font.Size := 11;
btn_Alarm_RemoveFilter.Caption := '取消过滤';
btn_Constants_Accept.Font.Name := '黑体';
btn_constants_Accept.Font.Size := 11;
btn_Constants_Accept.Caption := '接受';
btn_Constants_Cancel.Font.Name := '黑体';
btn_Constants_Cancel.Font.Size := 11;
btn_Constants_Cancel.Caption := '取消';
btn_Constants_Change.Font.Name := '黑体';
btn_Constants_Change.Font.Size := 11;
btn_Constants_Change.Caption := '更改';
btn_Heat_Accept.Font.Name := '黑体';
btn_Heat_Accept.Font.Size := 11;
btn_Heat_Accept.Caption := '接受';
btn_Heat_Cancel.Font.Name := '黑体';
btn_Heat_Cancel.Font.Size := 11;
btn_Heat_Cancel.Caption := '取消';
btn_Heat_Change.Font.Name := '黑体';
btn_Heat_Change.Font.Size := 11;
btn_Heat_Change.Caption := '更改';
btn_Heat_Print.Font.Name := '黑体';
btn_Heat_Print.Font.Size := 11;
btn_Heat_Print.Caption := '打印';
btn_Inj_AcceptChange.Font.Name := '黑体';
btn_Inj_AcceptChange.Font.Size := 14;
btn_Inj_AcceptChange.Caption := '接受';
btn_Inj_Calculate.Font.Name := '黑体';
btn_Inj_Calculate.Font.Size := 14;
btn_Inj_Calculate.Caption := '计算';
btn_Inj_Calculate.Hint := '计算';
btn_Inj_CancelChange.Font.Name := '黑体';
btn_Inj_CancelChange.Font.Size := 14;
btn_Inj_CancelChange.Caption := '取消';
btn_Inj_ChangeData.Font.Name := '黑体';
btn_Inj_ChangeData.Font.Size := 14;
btn_Inj_ChangeData.Caption := '更改';
btn_Inj_ChangeData.Hint := '点击此处更改 喷吹数据';
btn_Inj_ForceHeat.Font.Name := '黑体';
btn_Inj_ForceHeat.Font.Size := 14;
btn_Inj_ForceHeat.Caption := '无数据炉次';
btn_Inj_ForceHeat.Hint := '点击此处建立新炉次';
btn_Inj_NextHeat.Font.Name := '黑体';
btn_Inj_NextHeat.Font.Size := 14;
btn_Inj_NextHeat.Caption := '新炉次';
btn_Inj_NextHeat.Hint := '新炉次';
btn_Inj_Reblow.Font.Name := '黑体';
btn_Inj_Reblow.Font.Size := 14;
btn_Inj_Reblow.Caption := '重喷';
btn_Inj_Reblow.Hint := '重喷';
btn_Installation_Accept.Font.Name := '黑体';
btn_Installation_Accept.Font.Size := 11;
btn_Installation_Accept.Caption := '接受';
btn_Installation_Cancel.Font.Name := '黑体';
btn_Installation_Cancel.Font.Size := 11;
btn_Installation_Cancel.Caption := '取消';
btn_Installation_Change.Font.Name := '黑体';
btn_Installation_Change.Font.Size := 11;
btn_Installation_Change.Caption := '更改';
btn_Inventory_Add.Font.Name := '黑体';
btn_Inventory_Add.Font.Size := 11;
btn_Inventory_Add.Caption := '加入料仓';
btn_Reports_Preview.Font.Name := '黑体';
btn_Reports_Preview.Font.Size := 11;
btn_Reports_Preview.Caption := '预览';
btn_Reports_Print.Font.Name := '黑体';
btn_Reports_Print.Font.Size := 11;
btn_Reports_Print.Caption := '打印';
btn_Trends_Consumption.Font.Name := '黑体';
btn_Trends_Consumption.Font.Size := 11;
btn_Trends_Consumption.Caption := '粉剂消耗';
btn_Trends_Durations.Font.Name := '黑体';
btn_Trends_Durations.Font.Size := 11;
btn_Trends_Durations.Caption := '持续时间 (min:sec)';
btn_Trends_Skim.Font.Name := '黑体';
btn_Trends_Skim.Font.Size := 11;
btn_Trends_Skim.Caption := '扒出渣重';
btn_Trends_Success.Font.Name := '黑体';
btn_Trends_Success.Font.Size := 11;
btn_Trends_Success.Caption := '脱硫结果';
chk_Reports_UseS.Font.Name := '黑体';
chk_Reports_UseS.Font.Size := 11;
chk_Reports_UseS.Caption := '使用 硫过滤';
chk_Reports_UseT.Font.Name := '黑体';
chk_Reports_UseT.Font.Size := 11;
chk_Reports_UseT.Caption := '使用温度过滤';
cmb_Alarm_ApplicationFilter.Font.Name := '黑体';
cmb_Alarm_ApplicationFilter.Font.Size := 11;
cmb_Alarm_ApplicationFilter.Items.Add('HMI');
cmb_Alarm_ApplicationFilter.Items.Add('ORA');
cmb_Alarm_ApplicationFilter.Items.Add('Tee 表');
cmb_Alarm_ApplicationFilter.Items.Add('模型');
cmbx_Inventory_Reagent.Font.Name := '黑体';
cmbx_Inventory_Reagent.Font.Size := 11;
cmbx_Inventory_Reagent. Text := '镁';
cmbx_Inventory_Reagent.Items.Add('石灰');
cmbx_Inventory_Reagent.Items.Add('镁粉');
cmbx_Reports_Origin.Font.Name := '黑体';
cmbx_Reports_Origin.Font.Size := 11;
cmbx_Reports_Origin.Items.Add('HMI');
cmbx_Reports_Origin.Items.Add('ORA');
cmbx_Reports_Origin.Items.Add('Tee 表');
cmbx_Reports_Origin.Items.Add('模型');
cmbx_Reports_Origin.Text := '全部(无过滤)';
dbch_Consumption.BottomAxis.Title.Font.Name := '黑体';
dbch_Consumption.BottomAxis.Title.Font.Size := 11;
dbch_Consumption.BottomAxis.Title.Caption := '炉次代码';
dbch_Consumption.LeftAxis.Title.Font.Name := '黑体';
dbch_Consumption.LeftAxis.Title.Font.Size := 11;
dbch_Consumption.LeftAxis.Title.Caption := '喷吹重量 (kg)';
dbch_Consumption.RightAxis.Title.Font.Name := '黑体';
dbch_Consumption.RightAxis.Title.Font.Size := 11;
dbch_Consumption.RightAxis.Title.Caption := '硫含量变化(%)';
dbch_Consumption.Title.Font.Name := '黑体';
dbch_Consumption.Title.Font.Size := 11;
dbch_Consumption.Title.Text.Clear;
dbch_Consumption.Title.Text.Add('粉剂消耗');
dbch_Durations.BottomAxis.Title.Font.Name := '黑体';
dbch_Durations.BottomAxis.Title.Font.Size := 11;
dbch_Durations.BottomAxis.Title.Caption := '炉次代码';
dbch_Durations.LeftAxis.Title.Font.Name := '黑体';
dbch_Durations.LeftAxis.Title.Font.Size := 11;
dbch_Durations.LeftAxis.Title.Caption := '秒';
dbch_Durations.RightAxis.Title.Font.Name := '黑体';
dbch_Durations.RightAxis.Title.Font.Size := 11;
dbch_Durations.RightAxis.Title.Caption := '硫含量(%)';
dbch_Durations.Title.Font.Name := '黑体';
dbch_Durations.Title.Font.Size := 11;
dbch_Durations.Title.Text.clear;
dbch_Durations.Title.Text.Add('喷吹持续时间');
dbch_SkimWgts.BottomAxis.Title.Font.Name := '黑体';
dbch_SkimWgts.BottomAxis.Title.Font.Size := 11;
dbch_SkimWgts.BottomAxis.Title.Caption := '炉次代码';
dbch_SkimWgts.LeftAxis.Title.Font.Name := '黑体';
dbch_SkimWgts.LeftAxis.Title.Font.Size := 11;
dbch_SkimWgts.LeftAxis.Title.Caption := '最终温度 (C)';
dbch_SkimWgts.RightAxis.Title.Font.Name := '黑体';
dbch_SkimWgts.RightAxis.Title.Font.Size := 11;
dbch_SkimWgts.RightAxis.Title.Caption := '扒出渣重';
dbch_SkimWgts.Title.Font.Name := '黑体';
dbch_SkimWgts.Title.Font.Size := 11;
dbch_SkimWgts.Title.Text.Clear;
dbch_SkimWgts.Title.Text.Add('扒渣重量 相对最终温度');
dbch_SulphurResults.BottomAxis.Title.Font.Name := '黑体';
dbch_SulphurResults.BottomAxis.Title.Font.Size := 11;
dbch_SulphurResults.BottomAxis.Title.Caption := '炉次代码';
dbch_SulphurResults.LeftAxis.Title.Font.Name := '黑体';
dbch_SulphurResults.LeftAxis.Title.Font.Size := 11;
dbch_SulphurResults.LeftAxis.Title.Caption := '硫含量(%)';
dbch_SulphurResults.Title.Font.Name := '黑体';
dbch_SulphurResults.Title.Font.Size := 11;
dbch_SulphurResults.Title.Text.Clear;
dbch_SulphurResults.Title.Text.Add('脱硫结果');
dbgrd_Constants.Font.Name := '黑体';
dbgrd_Constants.Font.Size := 11;
dbgrd_Constants.Columns[0].Title.Caption := '名称';
dbgrd_Constants.Columns[1].Title.Caption := '描述';
dbgrd_Constants.Columns[2].Title.Caption := '数值';
dbGrid_Alr_Alarms.Font.Name := '黑体';
dbGrid_Alr_Alarms.Font.Size := 11;
dbGrid_Alr_Alarms.Columns[0].Title.Caption := '时间标记';
dbGrid_Alr_Alarms.Columns[1].Title.Caption := '来源';
dbGrid_Alr_Alarms.Columns[2].Title.Caption := '确认';
dbGrid_Alr_Alarms.Columns[3].Title.Caption := '严重程度';
dbGrid_Alr_Alarms.Columns[4].Title.Caption := '说明';
dbgrid_Inventory_List.Font.Name := '黑体';
dbgrid_Inventory_List.Font.Size := 11;
dbgrid_Inventory_List.Columns[0].Title.Caption := '收到日期';
dbgrid_Inventory_List.Columns[1].Title.Caption := '操作工代码';
dbgrid_Inventory_List.Columns[2].Title.Caption := '小组代码';
dbgrid_Inventory_List.Columns[3].Title.Caption := '班次代码';
dbgrid_Inventory_List.Columns[4].Title.Caption := '脱硫剂';
dbgrid_Inventory_List.Columns[5].Title.Caption := '供货商';
dbgrid_Inventory_List.Columns[6].Title.Caption := '货单号';
dbgrid_Inventory_List.Columns[7].Title.Caption := '总计';
dbgrid_Inventory_List.Columns[8].Title.Caption := '站';
dbGrid_Schedule.Font.Name := '黑体';
dbGrid_Schedule.Font.Size := 11;
dbGrid_Schedule.Columns[0].Title.Caption := '计划号';
dbGrid_Schedule.Columns[1].Title.Caption := '站';
dbGrid_Schedule.Columns[10].Title.Caption := 'P';
dbGrid_Schedule.Columns[11].Title.Caption := '硅含量(%)';
dbGrid_Schedule.Columns[12].Title.Caption := '温度';
dbGrid_Schedule.Columns[13].Title.Caption := '铁水重量';
dbGrid_Schedule.Columns[14].Title.Caption := '返钢';
dbGrid_Schedule.Columns[15].Title.Caption := '废钢';
dbGrid_Schedule.Columns[16].Title.Caption := '等级';
dbGrid_Schedule.Columns[2].Title.Caption := '铁水包';
dbGrid_Schedule.Columns[3].Title.Caption := '预计开始';
dbGrid_Schedule.Columns[4].Title.Caption := '预计结束';
dbGrid_Schedule.Columns[5].Title.Caption := '目标硫';
dbGrid_Schedule.Columns[6].Title.Caption := '初始硫';
dbGrid_Schedule.Columns[7].Title.Caption := 'C';
dbGrid_Schedule.Columns[8].Title.Caption := 'BF 渣';
dbGrid_Schedule.Columns[9].Title.Caption := 'Mn';
dblu_Reports_HeatID.Font.Name := '黑体';
dblu_Reports_HeatID.Font.Size := 11;
dblu_Reports_HeatID.Hint := '在此选择炉次号';
frm_Main.Font.Name := '黑体';
frm_Main.Font.Size := 11;
frm_Main.Caption := '本溪脱硫站 :一 二 级 HMI';
grbx_Reports_Filters.Font.Name := '黑体';
grbx_Reports_Filters.Font.Size := 11;
grbx_Reports_Filters.Caption := '过滤';
lbl_Alarm_Ack.Font.Name := '黑体';
lbl_Alarm_Ack.Font.Size := 11;
lbl_Alarm_Ack.Caption := '确认';
lbl_Alarm_Application.Font.Name := '黑体';
lbl_Alarm_Application.Font.Size := 11;
lbl_Alarm_Application.Caption := '应用';
lbl_Alarm_Date.Font.Name := '黑体';
lbl_Alarm_Date.Font.Size := 11;
lbl_Alarm_Date.Caption := '日期';
lbl_Alarm_Filter.Font.Name := '黑体';
lbl_Alarm_Filter.Font.Size := 11;
lbl_Alarm_Filter.Caption := '过滤:';
lbl_Alarm_Severity.Font.Name := '黑体';
lbl_Alarm_Severity.Font.Size := 11;
lbl_Alarm_Severity.Caption := '严重程度';
lbl_C.Font.Name := '黑体';
lbl_C.Font.Size := 11;
lbl_C.Caption := 'C';
lbl_Heat_ActualRatio.Font.Name := '黑体';
lbl_Heat_ActualRatio.Font.Size := 11;
lbl_Heat_ActualRatio.Caption := '比例:';
lbl_Heat_ActualsColumn.Font.Name := '黑体';
lbl_Heat_ActualsColumn.Font.Size := 11;
lbl_Heat_ActualsColumn.Caption := '实际值:';
lbl_Heat_AimSulphur.Font.Name := '黑体';
lbl_Heat_AimSulphur.Font.Size := 11;
lbl_Heat_AimSulphur.Caption := '目标硫(%):';
lbl_Heat_BFSlag.Font.Name := '黑体';
lbl_Heat_BFSlag.Font.Size := 11;
lbl_Heat_BFSlag.Caption := 'BF 渣:';
lbl_Heat_CaoDispPress.Font.Name := '黑体';
lbl_Heat_CaoDispPress.Font.Size := 11;
lbl_Heat_CaoDispPress.Caption := '石灰罐平均罐压(kPa):';
lbl_Heat_CaOInj.Font.Name := '黑体';
lbl_Heat_CaOInj.Font.Size := 11;
lbl_Heat_CaOInj.Caption := '石灰喷入量(kg):';
lbl_Heat_CAOInjEnd.Font.Name := '黑体';
lbl_Heat_CAOInjEnd.Font.Size := 11;
lbl_Heat_CAOInjEnd.Caption := '石灰喷吹结束时间:';
lbl_Heat_CaoInjRate.Font.Name := '黑体';
lbl_Heat_CaoInjRate.Font.Size := 11;
lbl_Heat_CaoInjRate.Caption := '速度(kg/min):';
lbl_Heat_CAOInjStart.Font.Name := '黑体';
lbl_Heat_CAOInjStart.Font.Size := 11;
lbl_Heat_CAOInjStart.Caption := '石灰喷吹开始时间:';
lbl_Heat_CaoSilo.Font.Name := '黑体';
lbl_Heat_CaoSilo.Font.Size := 11;
lbl_Heat_CaoSilo.Caption := '石灰 仓:';
lbl_Heat_CaOSP.Font.Name := '黑体';
lbl_Heat_CaOSP.Font.Size := 11;
lbl_Heat_CaOSP.Caption := '石灰(kg):';
lbl_Heat_CaoSupp.Font.Name := '黑体';
lbl_Heat_CaoSupp.Font.Size := 11;
lbl_Heat_CaoSupp.Caption := '供货商:';
lbl_Heat_CaoWgt.Font.Name := '黑体';
lbl_Heat_CaoWgt.Font.Size := 11;
lbl_Heat_CaoWgt.Caption := '重量(吨):';
lbl_Heat_Ccontent.Font.Name := '黑体';
lbl_Heat_Ccontent.Font.Size := 11;
lbl_Heat_Ccontent.Caption := 'C:';
lbl_Heat_Comments.Font.Name := '黑体';
lbl_Heat_Comments.Font.Size := 11;
lbl_Heat_Comments.Caption := '注释:';
lbl_Heat_Conformance.Font.Name := '黑体';
lbl_Heat_Conformance.Font.Size := 11;
lbl_Heat_Conformance.Caption := '准确度:';
lbl_Heat_CycleDur.Font.Name := '黑体';
lbl_Heat_CycleDur.Font.Size := 11;
lbl_Heat_CycleDur.Caption := '周期 持续时间(min:sec):';
lbl_Heat_CycleEnd.Font.Name := '黑体';
lbl_Heat_CycleEnd.Font.Size := 11;
lbl_Heat_CycleEnd.Caption := '周期结束:';
lbl_Heat_CycleStart.Font.Name := '黑体';
lbl_Heat_CycleStart.Font.Size := 11;
lbl_Heat_CycleStart.Caption := '周期开始:';
lbl_heat_EndSkimWgt.Font.Name := '黑体';
lbl_heat_EndSkimWgt.Font.Size := 11;
lbl_heat_EndSkimWgt.Caption := '扒渣后的铁水重量:';
lbl_Heat_EstSlagWgt.Font.Name := '黑体';
lbl_Heat_EstSlagWgt.Font.Size := 11;
lbl_Heat_EstSlagWgt.Caption := '估算渣重:';
lbl_Heat_FinalS.Font.Name := '黑体';
lbl_Heat_FinalS.Font.Size := 11;
lbl_Heat_FinalS.Caption := '最终硫(%):';
lbl_Heat_FinalT.Font.Name := '黑体';
lbl_Heat_FinalT.Font.Size := 11;
lbl_Heat_FinalT.Caption := '最终温度(C):';
lbl_Heat_FinalW.Font.Name := '黑体';
lbl_Heat_FinalW.Font.Size := 11;
lbl_Heat_FinalW.Caption := '最终铁水重量(吨):';
lbl_Heat_FlowPress.Font.Name := '黑体';
lbl_Heat_FlowPress.Font.Size := 11;
lbl_Heat_FlowPress.Caption := '输送压力:';
lbl_Heat_GroupID.Font.Name := '黑体';
lbl_Heat_GroupID.Font.Size := 11;
lbl_Heat_GroupID.Caption := '班组代码:';
lbl_Heat_HeatID.Font.Name := '黑体';
lbl_Heat_HeatID.Font.Size := 11;
lbl_Heat_HeatID.Caption := '炉次代码:';
lbl_Heat_HMLeftover.Font.Name := '黑体';
lbl_Heat_HMLeftover.Font.Size := 11;
lbl_Heat_HMLeftover.Caption := '返钢量:';
lbl_Heat_HMWeight.Font.Name := '黑体';
lbl_Heat_HMWeight.Font.Size := 11;
lbl_Heat_HMWeight.Caption := '装入铁水重量:';
lbl_Heat_InitHMWgt.Font.Name := '黑体';
lbl_Heat_InitHMWgt.Font.Size := 11;
lbl_Heat_InitHMWgt.Caption := '初始铁水重量(吨):';
lbl_Heat_InitSulphur.Font.Name := '黑体';
lbl_Heat_InitSulphur.Font.Size := 11;
lbl_Heat_InitSulphur.Caption := '初始硫(%):';
lbl_Heat_InitTemp.Font.Name := '黑体';
lbl_Heat_InitTemp.Font.Size := 11;
lbl_Heat_InitTemp.Caption := '初始温度(C):';
lbl_Heat_InjectionDur.Font.Name := '黑体';
lbl_Heat_InjectionDur.Font.Size := 11;
lbl_Heat_InjectionDur.Caption := '石灰喷吹持续时间:';
lbl_Heat_InjResults.Font.Name := '黑体';
lbl_Heat_InjResults.Font.Size := 11;
lbl_Heat_InjResults.Caption := '喷吹结果:';
lbl_Heat_Installation.Font.Name := '黑体';
lbl_Heat_Installation.Font.Size := 11;
lbl_Heat_Installation.Caption := '安装:';
lbl_Heat_LadleNo.Font.Name := '黑体';
lbl_Heat_LadleNo.Font.Size := 11;
lbl_Heat_LadleNo.Caption := '铁水包:';
lbl_Heat_Lance.Font.Name := '黑体';
lbl_Heat_Lance.Font.Size := 11;
lbl_Heat_Lance.Caption := '喷枪:';
lbl_Heat_LanceDepth.Font.Name := '黑体';
lbl_Heat_LanceDepth.Font.Size := 11;
lbl_Heat_LanceDepth.Caption := '喷枪深度(cm):';
lbl_Heat_LanceHeats.Font.Name := '黑体';
lbl_Heat_LanceHeats.Font.Size := 11;
lbl_Heat_LanceHeats.Caption := '炉次:';
lbl_Heat_LanceNo.Font.Name := '黑体';
lbl_Heat_LanceNo.Font.Size := 11;
lbl_Heat_LanceNo.Caption := '编号:';
lbl_Heat_LanceSupp.Font.Name := '黑体';
lbl_Heat_LanceSupp.Font.Size := 11;
lbl_Heat_LanceSupp.Caption := '供货商:';
lbl_Heat_MaterialGasRate.Font.Name := '黑体';
lbl_Heat_MaterialGasRate.Font.Size := 11;
lbl_Heat_MaterialGasRate.Caption := '粉气比(Kg/Nm3):';
lbl_Heat_Mg_Inj.Font.Name := '黑体';
lbl_Heat_Mg_Inj.Font.Size := 11;
lbl_Heat_Mg_Inj.Caption := '镁粉喷入量(kg):';
lbl_Heat_MgDispPress.Font.Name := '黑体';
lbl_Heat_MgDispPress.Font.Size := 11;
lbl_Heat_MgDispPress.Caption := '镁粉罐平均罐压:';
lbl_Heat_MgInjEnd.Font.Name := '黑体';
lbl_Heat_MgInjEnd.Font.Size := 11;
lbl_Heat_MgInjEnd.Caption := '镁粉喷吹结束时间:';
lbl_Heat_MgInjRate.Font.Name := '黑体';
lbl_Heat_MgInjRate.Font.Size := 11;
lbl_Heat_MgInjRate.Caption := '镁粉喷吹速 率(kg/min):';
lbl_Heat_MgInjStart.Font.Name := '黑体';
lbl_Heat_MgInjStart.Font.Size := 11;
lbl_Heat_MgInjStart.Caption := '镁粉喷吹开始时间:';
lbl_Heat_MgRateSP.Font.Name := '黑体';
lbl_Heat_MgRateSP.Font.Size := 11;
lbl_Heat_MgRateSP.Caption := '镁粉速度设定值(kg/min):';
lbl_Heat_MgSilo.Font.Name := '黑体';
lbl_Heat_MgSilo.Font.Size := 11;
lbl_Heat_MgSilo.Caption := '镁粉仓:';
lbl_Heat_MgSP.Font.Name := '黑体';
lbl_Heat_MgSP.Font.Size := 11;
lbl_Heat_MgSP.Caption := '镁(kg):';
lbl_Heat_MgSupp.Font.Name := '黑体';
lbl_Heat_MgSupp.Font.Size := 11;
lbl_Heat_MgSupp.Caption := '供货商:';
lbl_Heat_MgWgt.Font.Name := '黑体';
lbl_Heat_MgWgt.Font.Size := 11;
lbl_Heat_MgWgt.Caption := '重量(吨):';
lbl_Heat_MnContent.Font.Name := '黑体';
lbl_Heat_MnContent.Font.Size := 11;
lbl_Heat_MnContent.Caption := 'Mn:';
lbl_Heat_Model.Font.Name := '黑体';
lbl_Heat_Model.Font.Size := 11;
lbl_Heat_Model.Caption := '模型:';
lbl_Heat_ModelColumn.Font.Name := '黑体';
lbl_Heat_ModelColumn.Font.Size := 11;
lbl_Heat_ModelColumn.Caption := '模型:';
lbl_Heat_ModelResults.Font.Name := '黑体';
lbl_Heat_ModelResults.Font.Size := 11;
lbl_Heat_ModelResults.Caption := '模型运算结果:';
lbl_Heat_Operator.Font.Name := '黑体';
lbl_Heat_Operator.Font.Size := 11;
lbl_Heat_Operator.Caption := '操作工:';
lbl_Heat_Pcontent.Font.Name := '黑体';
lbl_Heat_Pcontent.Font.Size := 11;
lbl_Heat_Pcontent.Caption := 'P:';
lbl_Heat_PredictedFinalTemp.Font.Name := '黑体';
lbl_Heat_PredictedFinalTemp.Font.Size := 11;
lbl_Heat_PredictedFinalTemp.Caption := '预测最终温度 (C):';
lbl_Heat_PredictedFinalWght.Font.Name := '黑体';
lbl_Heat_PredictedFinalWght.Font.Size := 11;
lbl_Heat_PredictedFinalWght.Caption := '预测最终重量(吨):';
lbl_Heat_PredInjTime.Font.Name := '黑体';
lbl_Heat_PredInjTime.Font.Size := 11;
lbl_Heat_PredInjTime.Caption := '预测喷吹时 间:';
lbl_Heat_Ratio.Font.Name := '黑体';
lbl_Heat_Ratio.Font.Size := 11;
lbl_Heat_Ratio.Caption := '比例:';
lbl_Heat_Reblow.Font.Name := '黑体';
lbl_Heat_Reblow.Font.Size := 11;
lbl_Heat_Reblow.Caption := '重喷:';
lbl_Heat_ReblowInitS.Font.Name := '黑体';
lbl_Heat_ReblowInitS.Font.Size := 11;
lbl_Heat_ReblowInitS.Caption := '初始硫:';
lbl_Heat_ReblowStart.Font.Name := '黑体';
lbl_Heat_ReblowStart.Font.Size := 11;
lbl_Heat_ReblowStart.Caption := '开始时间:';
lbl_Heat_ResultsOverride.Font.Name := '黑体';
lbl_Heat_ResultsOverride.Font.Size := 11;
lbl_Heat_ResultsOverride.Caption := '取代:';
lbl_Heat_SchedActual.Font.Name := '黑体';
lbl_Heat_SchedActual.Font.Size := 11;
lbl_Heat_SchedActual.Caption := '实际值:';
lbl_Heat_SchedData.Font.Name := '黑体';
lbl_Heat_SchedData.Font.Size := 11;
lbl_Heat_SchedData.Caption := '计划日期:';
lbl_Heat_SchedExp.Font.Name := '黑体';
lbl_Heat_SchedExp.Font.Size := 11;
lbl_Heat_SchedExp.Caption := '计划:';
lbl_Heat_SchedNo.Font.Name := '黑体';
lbl_Heat_SchedNo.Font.Size := 11;
lbl_Heat_SchedNo.Caption := '计划号:';
lbl_Heat_S{*word*99}Added.Font.Name := '黑体';
lbl_Heat_S{*word*99}Added.Font.Size := 11;
lbl_Heat_S{*word*99}Added.Caption := '废钢加入量(吨):';
lbl_Heat_Selected.Font.Name := '黑体';
lbl_Heat_Selected.Font.Size := 11;
lbl_Heat_Selected.Caption := '已选上:';
lbl_Heat_SetPointOverride.Font.Name := '黑体';
lbl_Heat_SetPointOverride.Font.Size := 11;
lbl_Heat_SetPointOverride.Caption := '取代:';
lbl_Heat_SetPoints.Font.Name := '黑体';
lbl_Heat_SetPoints.Font.Size := 11;
lbl_Heat_SetPoints.Caption := '设定值:';
lbl_Heat_Shift.Font.Name := '黑体';
lbl_Heat_Shift.Font.Size := 11;
lbl_Heat_Shift.Caption := '班次代码:';
lbl_Heat_SiContent.Font.Name := '黑体';
lbl_Heat_SiContent.Font.Size := 11;
lbl_Heat_SiContent.Caption := '硅含量(%):';
lbl_Heat_SkimActual.Font.Name := '黑体';
lbl_Heat_SkimActual.Font.Size := 11;
lbl_Heat_SkimActual.Caption := '实际值:';
lbl_Heat_SkimDur.Font.Name := '黑体';
lbl_Heat_SkimDur.Font.Size := 11;
lbl_Heat_SkimDur.Caption := '持续时间(分:秒):';
lbl_Heat_SkimEnd.Font.Name := '黑体';
lbl_Heat_SkimEnd.Font.Size := 11;
lbl_Heat_SkimEnd.Caption := '扒渣结束时间:';
lbl_Heat_SkimHeats.Font.Name := '黑体';
lbl_Heat_SkimHeats.Font.Size := 11;
lbl_Heat_SkimHeats.Caption := '炉次:';
lbl_Heat_Skimmer.Font.Name := '黑体';
lbl_Heat_Skimmer.Font.Size := 11;
lbl_Heat_Skimmer.Caption := '扒渣机:';
lbl_Heat_SkimNo.Font.Name := '黑体';
lbl_Heat_SkimNo.Font.Size := 11;
lbl_Heat_SkimNo.Caption := '编号:';
lbl_Heat_SkimOverride.Font.Name := '黑体';
lbl_Heat_SkimOverride.Font.Size := 11;
lbl_Heat_SkimOverride.Caption := '取代:';
lbl_Heat_SkimResults.Font.Name := '黑体';
lbl_Heat_SkimResults.Font.Size := 11;
lbl_Heat_SkimResults.Caption := '扒渣结果:';
lbl_Heat_SkimSupp.Font.Name := '黑体';
lbl_Heat_SkimSupp.Font.Size := 11;
lbl_Heat_SkimSupp.Caption := '供货商';
lbl_Heat_StartSkim.Font.Name := '黑体';
lbl_Heat_StartSkim.Font.Size := 11;
lbl_Heat_StartSkim.Caption := '扒渣开始时间:';
lbl_Heat_StationID.Font.Name := '黑体';
lbl_Heat_StationID.Font.Size := 11;
lbl_Heat_StationID.Caption := '站:';
lbl_Heat_SteelGrade.Font.Name := '黑体';
lbl_Heat_SteelGrade.Font.Size := 11;
lbl_Heat_SteelGrade.Caption := '钢种:';
lbl_Heat_TiContent.Font.Name := '黑体';
lbl_Heat_TiContent.Font.Size := 11;
lbl_Heat_TiContent.Caption := 'Ti:';
lbl_Heat_VersionOfModel.Font.Name := '黑体';
lbl_Heat_VersionOfModel.Font.Size := 11;
lbl_Heat_VersionOfModel.Caption := '模型版本:';
lbl_Inj_AimS.Font.Name := '黑体';
lbl_Inj_AimS.Font.Size := 14;
lbl_Inj_AimS.Caption := '目标硫';
lbl_Inj_CaOSP.Font.Name := '黑体';
lbl_Inj_CaOSP.Font.Size := 14;
lbl_Inj_CaOSP.Caption := '石灰(kg):';
lbl_Inj_CPK.Font.Name := '黑体';
lbl_Inj_CPK.Font.Size := 14;
lbl_Inj_CPK.Caption := '准确度';
lbl_Inj_Data.Font.Name := '黑体';
lbl_Inj_Data.Font.Size := 14;
lbl_Inj_Data.Caption := '初始数据';
lbl_Inj_FormulaInfo.Font.Name := '黑体';
lbl_Inj_FormulaInfo.Font.Size := 14;
lbl_Inj_FormulaInfo.Caption := '公式数据';
lbl_Inj_Heat.Font.Name := '黑体';
lbl_Inj_Heat.Font.Size := 14;
lbl_Inj_Heat.Caption := '当前炉次号:';
lbl_Inj_Heat.Font.Name := '黑体';
lbl_Inj_Heat.Font.Size := 14;
lbl_Inj_Heat.Hint := '当前炉次号';
lbl_Inj_Initial.Font.Name := '黑体';
lbl_Inj_Initial.Font.Size := 14;
lbl_Inj_Initial.Caption := '初始值';
lbl_Inj_InitS.Font.Name := '黑体';
lbl_Inj_InitS.Font.Size := 14;
lbl_Inj_InitS.Caption := '初始硫';
lbl_Inj_InitTemp.Font.Name := '黑体';
lbl_Inj_InitTemp.Font.Size := 14;
lbl_Inj_InitTemp.Caption := '初始铁水温度';
lbl_Inj_InitWgt.Font.Name := '黑体';
lbl_Inj_InitWgt.Font.Size := 14;
lbl_Inj_InitWgt.Caption := '初始铁水重量';
lbl_Inj_LadleNo.Font.Name := '黑体';
lbl_Inj_LadleNo.Font.Size := 14;
lbl_Inj_LadleNo.Caption := '铁水包号:';
lbl_Inj_LD.Font.Name := '黑体';
lbl_Inj_LD.Font.Size := 14;
lbl_Inj_LD.Caption := '喷枪深度(m)';
lbl_Inj_MgSP.Font.Name := '黑体';
lbl_Inj_MgSP.Font.Size := 14;
lbl_Inj_MgSP.Caption := '镁(kg):';
lbl_Inj_MinsSP.Font.Name := '黑体';
lbl_Inj_MinsSP.Font.Size := 14;
lbl_Inj_MinsSP.Caption := '预计持续时间(分:秒):';
lbl_Inj_ModelSP.Font.Name := '黑体';
lbl_Inj_ModelSP.Font.Size := 14;
lbl_Inj_ModelSP.Caption := '模型:';
lbl_Inj_PredictedFinalTemp.Font.Name := '黑体';
lbl_Inj_PredictedFinalTemp.Font.Size := 14;
lbl_Inj_PredictedFinalTemp.Caption := '预测最终温度(C):';
lbl_Inj_PredictedFinalWght.Font.Name := '黑体';
lbl_Inj_PredictedFinalWght.Font.Size := 14;
lbl_Inj_PredictedFinalWght.Caption := '预测最终重量(吨):';
lbl_Inj_RateSP.Font.Name := '黑体';
lbl_Inj_RateSP.Font.Size := 14;
lbl_Inj_RateSP.Caption := '镁粉速度设定值(kg/min):';
lbl_Inj_Ratio.Font.Name := '黑体';
lbl_Inj_Ratio.Font.Size := 14;
lbl_Inj_Ratio.Caption := '粉剂比例:';
lbl_Inj_SchedNo.Font.Name := '黑体';
lbl_Inj_SchedNo.Font.Size := 14;
lbl_Inj_SchedNo.Caption := '计划号:';
lbl_Inj_SchedSteelGrade.Font.Name := '黑体';
lbl_Inj_SchedSteelGrade.Font.Size := 14;
lbl_Inj_SchedSteelGrade.Caption := '计划钢种:';
lbl_Inj_SelectSP.Font.Name := '黑体';
lbl_Inj_SelectSP.Font.Size := 14;
lbl_Inj_SelectSP.Caption := '取代';
lbl_Inj_SetPoints.Font.Name := '黑体';
lbl_Inj_SetPoints.Font.Size := 14;
lbl_Inj_SetPoints.Caption := '喷吹设定值';
lbl_Inj_Si.Font.Name := '黑体';
lbl_Inj_Si.Font.Size := 14;
lbl_Inj_Si.Caption := '硅含量(%)';
lbl_Installation_CaOSilo.Font.Name := '黑体';
lbl_Installation_CaOSilo.Font.Size := 11;
lbl_Installation_CaOSilo.Caption := '石灰仓重量:';
lbl_Installation_CaOSupp.Font.Name := '黑体';
lbl_Installation_CaOSupp.Font.Size := 11;
lbl_Installation_CaOSupp.Caption := '石灰供应商:';
lbl_Installation_Group.Font.Name := '黑体';
lbl_Installation_Group.Font.Size := 11;
lbl_Installation_Group.Caption := '班组代码:';
lbl_Installation_LanceCharges.Font.Name := '黑体';
lbl_Installation_LanceCharges.Font.Size := 11;
lbl_Installation_LanceCharges.Caption := '喷枪寿命(分钟):';
lbl_Installation_LanceNo.Font.Name := '黑体';
lbl_Installation_LanceNo.Font.Size := 11;
lbl_Installation_LanceNo.Caption := '喷枪编号:';
lbl_Installation_LanceSupp.Font.Name := '黑体';
lbl_Installation_LanceSupp.Font.Size := 11;
lbl_Installation_LanceSupp.Caption := '喷枪供应商:';
lbl_Installation_MgSilo.Font.Name := '黑体';
lbl_Installation_MgSilo.Font.Size := 11;
lbl_Installation_MgSilo.Caption := '镁粉仓重量:';
lbl_Installation_MgSupp.Font.Name := '黑体';
lbl_Installation_MgSupp.Font.Size := 11;
lbl_Installation_MgSupp.Caption := '镁粉供应商:';
lbl_Installation_ModelVersion.Font.Name := '黑体';
lbl_Installation_ModelVersion.Font.Size := 11;
lbl_Installation_ModelVersion.Caption := '模型版本:';
lbl_Installation_Operator.Font.Name := '黑体';
lbl_Installation_Operator.Font.Size := 11;
lbl_Installation_Operator.Caption := '操作工代码:';
lbl_Installation_PaddleLife.Font.Name := '黑体';
lbl_Installation_PaddleLife.Font.Size := 11;
lbl_Installation_PaddleLife.Caption := '扒渣头寿命(分:钟):';
lbl_Installation_PaddleNo.Font.Name := '黑体';
lbl_Installation_PaddleNo.Font.Size := 11;
lbl_Installation_PaddleNo.Caption := '扒渣头编号:';
lbl_Installation_PaddleSupp.Font.Name := '黑体';
lbl_Installation_PaddleSupp.Font.Size := 11;
lbl_Installation_PaddleSupp.Caption := '扒渣机扒头供应商:';
lbl_Installation_Sift.Font.Name := '黑体';
lbl_Installation_Sift.Font.Size := 11;
lbl_Installation_Sift.Caption := '班次代码:';
lbl_Inventory_Amount.Font.Name := '黑体';
lbl_Inventory_Amount.Font.Size := 11;
lbl_Inventory_Amount.Caption := '总计';
lbl_Inventory_CaO.Font.Name := '黑体';
lbl_Inventory_CaO.Font.Size := 11;
lbl_Inventory_CaO.Caption := '氧化钙';
lbl_Inventory_Date.Font.Name := '黑体';
lbl_Inventory_Date.Font.Size := 11;
lbl_Inventory_Date.Caption := '日期';
lbl_Inventory_Extimate.Font.Name := '黑体';
lbl_Inventory_Extimate.Font.Size := 11;
lbl_Inventory_Extimate.Caption := '估 算料位';
lbl_Inventory_Group.Font.Name := '黑体';
lbl_Inventory_Group.Font.Size := 11;
lbl_Inventory_Group.Caption := '班组代码 ';
lbl_Inventory_Mg.Font.Name := '黑体';
lbl_Inventory_Mg.Font.Size := 11;
lbl_Inventory_Mg.Caption := '镁';
lbl_Inventory_Operator.Font.Name := '黑体';
lbl_Inventory_Operator.Font.Size := 11;
lbl_Inventory_Operator.Caption := '操作工:';
lbl_Inventory_Reagent.Font.Name := '黑体';
lbl_Inventory_Reagent.Font.Size := 11;
lbl_Inventory_Reagent.Caption := '脱硫剂';
lbl_Inventory_Shift.Font.Name := '黑体';
lbl_Inventory_Shift.Font.Size := 11;
lbl_Inventory_Shift.Caption := '班次';
lbl_Inventory_Supplier.Font.Name := '黑体';
lbl_Inventory_Supplier.Font.Size := 11;
lbl_Inventory_Supplier.Caption := '供货商';
lbl_Inventory_Waybill.Font.Name := '黑体';
lbl_Inventory_Waybill.Font.Size := 11;
lbl_Inventory_Waybill.Caption := '货单号';
lbl_Heat_MgInjDuration.Font.Name := '黑体';
lbl_Heat_MgInjDuration.Font.Size := 11;
lbl_Heat_MgInjDuration.Caption := '镁粉喷吹持续时间(min:sec):';
lbl_Operator.Font.Name := '黑体';
lbl_Operator.Font.Size := 11;
lbl_Operator.Caption := '操作工';
lbl_PPM.Font.Name := '黑体';
lbl_PPM.Font.Size := 14;
lbl_PPM.Caption := '%';
lbl_PPM2.Font.Name := '黑体';
lbl_PPM2.Font.Size := 14;
lbl_PPM2.Caption := '%';
lbl_Reports_AppOfOrigin.Font.Name := '黑体';
lbl_Reports_AppOfOrigin.Font.Size := 11;
lbl_Reports_AppOfOrigin.Caption := '报警来源';
lbl_Reports_EndDate.Font.Name := '黑体';
lbl_Reports_EndDate.Font.Size := 11;
lbl_Reports_EndDate.Caption := '结束日期';
lbl_Reports_Heat.Font.Name := '黑体';
lbl_Reports_Heat.Font.Size := 11;
lbl_Reports_Heat.Caption := '炉次';
lbl_Reports_PrintPath.Font.Name := '黑体';
lbl_Reports_PrintPath.Font.Size := 11;
lbl_Reports_PrintPath.Caption := '本计算机未安装任何打印机';
lbl_Reports_Shift.Font.Name := '黑体';
lbl_Reports_Shift.Font.Size := 11;
lbl_Reports_Shift.Caption := '班次';
lbl_Reports_StartDate.Font.Name := '黑体';
lbl_Reports_StartDate.Font.Size := 11;
lbl_Reports_StartDate.Caption := '开始日期';
lbl_Reports_Sulphur.Font.Name := '黑体';
lbl_Reports_Sulphur.Font.Size := 11;
lbl_Reports_Sulphur.Caption := '目标硫';
lbl_Reports_Temperature.Font.Name := '黑体';
lbl_Reports_Temperature.Font.Size := 11;
lbl_Reports_Temperature.Caption := '温度';
lbl_StationID.Font.Name := '黑体';
lbl_StationID.Font.Size := 11;
lbl_StationID.Caption := '站编号';
lbl_Title.Font.Name := '黑体';
lbl_Title.Font.Size := 11;
lbl_Title.Caption := '本溪脱硫站';
lbl_Ton.Font.Name := '黑体';
lbl_Ton.Font.Size := 11;
lbl_Ton.Caption := '吨';
pvl_Report_Preview.Font.Name := '黑体';
pvl_Report_Preview.Font.Size := 11;
pvl_Report_Preview.Caption := '报表预览';
rg_Alarm_Sort.Font.Name := '黑体';
rg_Alarm_Sort.Caption := '按:...分类';
rg_Alarm_Sort.Items.Add('严重程度');
rg_Alarm_Sort.Items.Add('时间标记');
rg_Alarm_Sort.Items.Add('来源');
rg_Alarm_Sort.Items.Add('确认');
rg_Installation_Language.Font.Name := '黑体';
rg_Installation_Language.Font.Size := 11;
rg_Installation_Language.Caption := '语言转换';
rg_Installation_Language.Items.Add('中文');
rg_Installation_Language.Items.add('英文');
rg_Reports_List.Font.Name := '黑体';
rg_Reports_List.Font.Size := 11;
rg_Reports_List.Caption := '报表';
rg_Reports_List.Items.Add('原料报表');
rg_Reports_List.Items.Add('库存报 表');
rg_Reports_List.Items.Add('报警记录');
rg_Reports_List.Items.Add('日报表');
rg_Reports_List.Items.Add('月报表');
rg_Reports_List.Items.Add('炉次报表');
rg_Reports_List.Items.Add(' 库 存 报 表');
rg_Reports_List.Items.Add('脱硫月报表');
Series1.Title := '石灰喷吹持续时间';
Series10.Title := '硫含量变化';
Series11.Title := '初始硫(%)';
Series2.Title := '扒出渣重';
Series3.Title := '最终温度(C)';
Series4.Title := '目标硫';
Series5.Title := '最终硫(%)';
Series6.Title := '镁粉喷吹时间';
Series7.Title := '硫含量变化';
Series8.Title := '石灰喷入量(kg):';
Series9.Title := '镁粉加入量';
tab_Alarm.Font.Name := '黑体';
tab_Alarm.Font.Size := 11;
tab_Alarm.Caption := '报警';
tab_Constant.Font.Name := '黑体';
tab_Constant.Font.Size := 11;
tab_Constant.Caption := '常数';
tab_Heat.Font.Name := '黑体';
tab_Heat.Font.Size := 11;
tab_Heat.Caption := '炉次';
tab_Injection.Font.Name := '黑体';
tab_Injection.Font.Size := 11;
tab_Injection.Caption := '喷吹';
tab_Installation.Font.Name := '黑体';
tab_Installation.Font.Size := 11;
tab_Installation.Caption := '安装';
tab_Inventory.Font.Name := '黑体';
tab_Inventory.Font.Size := 11;
tab_Inventory.Caption := '存货计录';
tab_Report.Font.Name := '黑体';
tab_Report.Font.Size := 11;
tab_Report.Caption := '报表';
tab_Schedule.Font.Name := '黑体';
tab_Schedule.Font.Size := 11;
tab_Schedule.Caption := '计划';
tab_Trend.Font.Name := '黑体';
tab_Trend.Font.Size := 11;
tab_Trend.Caption := '趋势';
DoAgain := false;
rg_Installation_Language.ItemIndex := 1;
// tell model we are running in Chinese for Model alarms
with adoSP_WritePipe do
begin
Parameters.ParamValues['TheMessage'] := 'CHINESE';
Parameters.ParamValues['PipeName'] := 'MODEL';
ExecProc;
end;
end;
DoAgain := true;
frm_main.Repaint;
end;
except
on E: Exception do
PrepareAlarm(22, e.Message, 'Y','W');
end;
end;
Thank you!!
 

Re:Access Violations

Hello, Jennifer!
You wrote on Thu, 30 Oct 2003 14:10:17 -0500:
Quote
Hello,
Hi. Before we get started, just allow me to say that you have put a HUGE
amount of text into the wrong newsgroup. It's not that you should ask
somewhere else, but that you should put the text (or even BETTER, an entire
example project, zipped up of course) as an attachment in the .attachment
newsgroup, and then ask the question in the appropriate newsgroup,
mentioning that you have also sent an attachment.
But enough with formalities. I suggest that you comment out different parts
of your code (i.e., changing captions, font properties, etc.) to see if you
can narrow it down to one specific set of circumstances.
Cheers,
Ignacio
 

Re:Access Violations

In article <3fa1bb34$ XXXX@XXXXX.COM >, "Ignacio Vazquez"
<ivazquezATorioncommunications.com>wrote:
Quote
Hi. Before we get started, just allow me to say that you have put a HUGE
amount of text
Indeed, too much stuff.. but it's mostly fairly simple, just setting
captions.
.. however this comment
Quote
>I have stepped through it and it never seems to
>crash at the same place two times in a row.
suggests to me that it may well stem from elsewhere than the code shown.
Could be memory corruption from anywhere in the program. - dodgy pointer,
double free etc.
 

Re:Access Violations

Hi
I'm having problems executing this piece of code twice (the error is popping
up the second time). It's giving me an access violation on NT4 and a request
to send a report to MS on XP... Maybe I'm missing out something? maybe I
need to clear all parameters after finishing.... don't know
With IBBackupService Do
Begin
Params.Clear;
Params.Values['user_name'] := 'SYSDBA';
Params.Values['password'] := 'masterkey';
Try
Attach();
Protocol := local;
DatabaseName:= DatabasePath;
BackupFile.Add(Trim(BackupPath) + 'BackupFile.gbk');
Active:= True;
ServiceStart;
Try
Rewrite(FileID,Trim(ServerPath) + 'BackupResult.log');
Append(FileID);
while not IBBackupService.Eof do
begin
Application.ProcessMessages;
WriteLn(FileID,IBBackupService.GetNextLine);
end;
Finally
CloseFile(FileID);
End;
Finally
Detach();
End;
End;
Regards
Brian
 

Re:Access Violations

Cheers,
Im in a bind here, im using FastMM4 on my Intraweb App,
and if I set FullDebugMode I always get this List Index Out of Bounds (0),
and then when I close the Form I get this
Access Violation at address 00428642 in module 'xxxxx'. Read of address
00000008
Any idea on how to solve this?
TIA
Randy.
 

Re:Access Violations

Randy Adanza wrote:
Quote
Cheers,

Im in a bind here, im using FastMM4 on my Intraweb App,
and if I set FullDebugMode I always get this List Index Out of Bounds
(0), and then when I close the Form I get this Access Violation at
address 00428642 in module 'xxxxx'. Read of address 00000008

Any idea on how to solve this?
If you create a new IW standalone app, and then add fastMM4 to the
project uses list, (with the same settings) and run the app, do you get
this?
 

Re:Access Violations

The funny thing is that its not happening on all of the forms, it only
occurs on about 5 forms, but when I remove the FullDebugMode everything
seems to be fine.
"Rick Hoskins" < XXXX@XXXXX.COM >wrote in message
Quote
Randy Adanza wrote:

>Cheers,
>
>Im in a bind here, im using FastMM4 on my Intraweb App,
>and if I set FullDebugMode I always get this List Index Out of Bounds
>(0), and then when I close the Form I get this Access Violation at
>address 00428642 in module 'xxxxx'. Read of address 00000008
>
>Any idea on how to solve this?

If you create a new IW standalone app, and then add fastMM4 to the
project uses list, (with the same settings) and run the app, do you get
this?