te lo voy a explicar mejor tengo una funcion lacual recibe estos parameros y devuelve un booleano
dentro de esta funcion envian un array "cAVLDataFM4" luego se debe descomponer en varables para un query update
mi primer paso es pasar a variables luego enviarlas a mi funtion array
evaluo y luego le paso el retorno de mi funtion array a un array final
para hacer un insert te preguntaras para que mi funtion array me generara mas rows para mi array final luego con eso hare el insert es por cuestion de manejo que se hace eso mi duda ahora es como paso el resultado de mi funcion a un nuevo array ??
aca es donde estoy usando lo que te he preguntado eficsa
Código Delphi
[-]
function TFMListenerService.UpdateCurrentVehicleData(sIMEI: string;
cAVLDataFM4: TAVLDataFM4;
iCompanyId : integer;
sVehicleId : string;
iMessageId : integer;
dCurrOdometer : Double;
var sErrMess: string): boolean;
var
iCount: Integer;
bDIN1,bDIN2,bDIN3,bDIN4 : Boolean;
fAIN1,fAIN2,fAIN3,fAIN4 : Extended;
iGSMSignal,iCurrentProfile : integer;
fAcelerometerData, fGPSSpeed, fPowerSuplyVoltage,
fBatteryVoltage, fBatteryCurrent,
fGPSPower, fPCBTemperature,
fTempSensor1,fTempSensor2,fTempSensor3,
fFuelCounter,
fCan0,fCan1,fCan2,fCan3,fCan4,fCan5,fCan6,
fCan7,fCan8,fCan9,fVirtualOdometer : Extended;
bGeoZone1,bGeoZone2,bGeoZone3,bGeoZone4,bGeoZone5,
bGeoZone6,bGeoZone7,bGeoZone8,bGeoZone9,bGeoZone10,
bGeoZone11,bGeoZone12,bGeoZone13,bGeoZone14,bGeoZone15,
bGeoZone16,bGeoZone17,bGeoZone18,bGeoZone19,bGeoZone20 : Boolean;
sButtonInput, sCurrOperatorCode,
sTimeZone,sParams : string;
bMovement : Boolean;
Conn: IConnection;
sqlQuery : TADOQuery;
sdUTCPosTimeStamp, sdLocalPosTimeStamp : TSystemTime;
tTimeZone : TTimeZoneInformation;
dPositionDate,dPositionTime : TDateTime;
iEventCode,iHeading,
iDriveType,iNeedService,
iCurrSpeed,iCurrRPM,
iAccDeccValue,iSatellites,
iHardwareVer,iSoftVer,
iBateryLevel : integer;
sDriverId,sChargeId,sGPSsStatus,sEventInfo : string;
dLatitude,dLongitude : Double;
NewArrayData :TNewArrayData;
begin
Result := False;
try
sqlQuery := TADOQuery.Create(Self);
try
Conn := ConnPool.GetConnection;
sqlQuery.Connection := Conn.Connection;
for iCount := 0 to cAVLDataFM4.NumberOfData - 1 do
begin
bDIN1 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(1) = 1);
bDIN2 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(2) = 1);
bDIN3 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(3) = 1);
bDIN4 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(4) = 1);
fAIN1 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(9);
fAIN2 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(10);
fAIN3 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(11);
fAIN4 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(19);
iGSMSignal := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(21);
iCurrentProfile := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(22);
fAcelerometerData := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(23);
fGPSSpeed := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(24);
fPowerSuplyVoltage := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(66);
fBatteryVoltage := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(67);
fBatteryCurrent := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(68);
fGPSPower := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(69);
fPCBTemperature := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(70);
fTempSensor1 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(72);
fTempSensor2 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(73);
fTempSensor3 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(74);
fFuelCounter := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(76);
sButtonInput := IntToStr(cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(78));
fCan0 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(145);
fCan1 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(146);
fCan2 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(147);
fCan3 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(148);
fCan4 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(149);
fCan5 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(150);
fCan6 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(151);
fCan7 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(152);
fCan8 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(153);
fCan9 := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(154);
bGeoZone1 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(155) = 1);
bGeoZone2 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(156) = 1);
bGeoZone3 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(157) = 1);
bGeoZone4 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(158) = 1);
bGeoZone5 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(159) = 1);
bGeoZone6 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(160) = 1);
bGeoZone7 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(161) = 1);
bGeoZone8 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(162) = 1);
bGeoZone9 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(163) = 1);
bGeoZone10 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(164) = 1);
bGeoZone11 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(165) = 1);
bGeoZone12 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(166) = 1);
bGeoZone13 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(167) = 1);
bGeoZone14 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(168) = 1);
bGeoZone15 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(169) = 1);
bGeoZone16 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(170) = 1);
bGeoZone17 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(171) = 1);
bGeoZone18 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(172) = 1);
bGeoZone19 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(173) = 1);
bGeoZone20 := (cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(174) = 1);
fVirtualOdometer := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(199); sCurrOperatorCode := IntToStr(cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(241));
bMovement := cAVLDataFM4.AVLDataArray[iCount].IOData.ElementValue(240) = 1;
dPositionDate := DateOf(cAVLDataFM4.AVLDataArray[iCount].TimeStamp);
dPositionTime := TimeOf(cAVLDataFM4.AVLDataArray[iCount].TimeStamp);
iEventCode:= GetEventCode(cAVLDataFM4.AVLDataArray[iCount].IOData);
NewArrayData := SearchEvents(sIMEI, iCompanyId, sVehicleId,
iCurrSpeed,iCurrRPM,iAccDeccValue,
bDIN1, bDIN2, bDIN3, bDIN4,
fAIN1, fAIN2, fAIN3, fAIN4,
iGSMSignal, iCurrentProfile ,
fAcelerometerData, fGPSSpeed, fPowerSuplyVoltage, fBatteryVoltage, fBatteryCurrent,
fGPSPower, fPCBTemperature, fTempSensor1, fTempSensor2,
fTempSensor3, fFuelCounter, sButtonInput, fCan0, fCan1,
fCan2, fCan3, fCan4, fCan5, fCan6, fCan7, fCan8, fCan9,
bGeoZone1, bGeoZone2, bGeoZone3,
bGeoZone4, bGeoZone5, bGeoZone6, bGeoZone7,
bGeoZone8, bGeoZone9, bGeoZone10, bGeoZone11,
bGeoZone12, bGeoZone13, bGeoZone14, bGeoZone15,
bGeoZone16, bGeoZone17, bGeoZone18, bGeoZone19, bGeoZone20,
fVirtualOdometer, sCurrOperatorCode, bMovement);
sqlQuery.SQL.Text := 'UPDATE [IMEIDataServices] WITH (ROWLOCK) ' +
'SET [LastTx] = :LastTx ' +
',[MessageId] = :MessageId ' +
',[Moving] = :Moving ' +
',[Connected] = :Connected ' +
',[DIN1] = 
IN1 ' +
',[DIN2] = IN2 ' +
',[DIN3] = IN3 ' +
',[DIN4] = IN4 ' +
',[AIN1] = :AIN1 ' +
',[AIN2] = :AIN2 ' +
',[AIN3] = :AIN3 ' +
',[AIN4] = :AIN4 ' +
',[GSMSignalStrength] = :GSMSignalStrength ' +
',[CurrentProfile] = :CurrentProfile ' +
',[AcelerometerData] = :AcelerometerData ' +
',[GPSSpeed] = :GPSSpeed ' +
',[PowerSupplyVoltage] = :PowerSupplyVoltage ' +
',[BatteryVoltage] = :BatteryVoltage ' +
',[BatteryCurrent] = :BatteryCurrent ' +
',[GPSPower] = :GPSPower ' +
',[PCBTemperature] = :PCBTemperature ' +
',[TemperatureSensor1] = :TemperatureSensor1 ' +
',[TemperatureSensor2] = :TemperatureSensor2 ' +
',[TemperatureSensor3] = :TemperatureSensor3 ' +
',[FuelCounter] = isnull([FuelCounter],0) + :FuelCounter ' +
',[iButtonInput] = :iButtonInput ' +
',[CAN0] = :CAN0 ' +
',[CAN1] = :CAN1 ' +
',[CAN2] = :CAN2 ' +
',[CAN3] = :CAN3 ' +
',[CAN4] = :CAN4 ' +
',[CAN5] = :CAN5 ' +
',[CAN6] = :CAN6 ' +
',[CAN7] = :CAN7 ' +
',[CAN8] = :CAN8 ' +
',[CAN9] = :CAN9 ' +
',[GeoZone1] = :GeoZone1 ' +
',[GeoZone2] = :GeoZone2 ' +
',[GeoZone3] = :GeoZone3 ' +
',[GeoZone4] = :GeoZone4 ' +
',[GeoZone5] = :GeoZone5 ' +
',[GeoZone6] = :GeoZone6 ' +
',[GeoZone7] = :GeoZone7 ' +
',[GeoZone8] = :GeoZone8 ' +
',[GeoZone9] = :GeoZone9 ' +
',[GeoZone10] = :GeoZone10 ' +
',[GeoZone11] = :GeoZone11 ' +
',[GeoZone12] = :GeoZone12 ' +
',[GeoZone13] = :GeoZone13 ' +
',[GeoZone14] = :GeoZone14 ' +
',[GeoZone15] = :GeoZone15 ' +
',[GeoZone16] = :GeoZone16 ' +
',[GeoZone17] = :GeoZone17 ' +
',[GeoZone18] = :GeoZone18 ' +
',[GeoZone19] = :GeoZone19 ' +
',[GeoZone20] = :GeoZone20 ' +
',[VirtualOdometer] = :VirtualOdometer ' +
',[CurrentOperatorCode] = :CurrentOperatorCode ' +
'WHERE [IMEI] = :Imei';
sqlQuery.Parameters.ParamByName('Imei').Value := sIMEI;
sqlQuery.Parameters.ParamByName('LastTx').Value := Now;
sqlQuery.Parameters.ParamByName('MessageId').Value := iMessageId;
sqlQuery.Parameters.ParamByName('Moving').Value := bMovement;
sqlQuery.Parameters.ParamByName('Connected').Value := True;
sqlQuery.Parameters.ParamByName('DIN1').Value := bDIN1;
sqlQuery.Parameters.ParamByName('DIN2').Value := bDIN2;
sqlQuery.Parameters.ParamByName('DIN3').Value := bDIN3;
sqlQuery.Parameters.ParamByName('DIN4').Value := bDIN4;
sqlQuery.Parameters.ParamByName('AIN1').Value := fAIN1;
sqlQuery.Parameters.ParamByName('AIN2').Value := fAIN2;
sqlQuery.Parameters.ParamByName('AIN3').Value := fAIN3;
sqlQuery.Parameters.ParamByName('AIN4').Value := fAIN4;
sqlQuery.Parameters.ParamByName('GSMSignalStrength').Value := iGSMSignal;
sqlQuery.Parameters.ParamByName('CurrentProfile').Value := iCurrentProfile;
sqlQuery.Parameters.ParamByName('AcelerometerData').Value := fAcelerometerData;
sqlQuery.Parameters.ParamByName('GPSSpeed').Value := fGPSSpeed;
sqlQuery.Parameters.ParamByName('PowerSupplyVoltage').Value := fPowerSuplyVoltage;
sqlQuery.Parameters.ParamByName('BatteryVoltage').Value := fBatteryVoltage;
sqlQuery.Parameters.ParamByName('BatteryCurrent').Value := fBatteryCurrent;
sqlQuery.Parameters.ParamByName('GPSPower').Value := fGPSPower;
sqlQuery.Parameters.ParamByName('PCBTemperature').Value := fPCBTemperature;
sqlQuery.Parameters.ParamByName('TemperatureSensor1').Value := fTempSensor1;
sqlQuery.Parameters.ParamByName('TemperatureSensor2').Value := fTempSensor2;
sqlQuery.Parameters.ParamByName('TemperatureSensor3').Value := fTempSensor3;
sqlQuery.Parameters.ParamByName('FuelCounter').Value := fFuelCounter;
sqlQuery.Parameters.ParamByName('iButtonInput').Value := sButtonInput;
sqlQuery.Parameters.ParamByName('CAN0').Value := fCan0;
sqlQuery.Parameters.ParamByName('CAN1').Value := fCan1;
sqlQuery.Parameters.ParamByName('CAN2').Value := fCan2;
sqlQuery.Parameters.ParamByName('CAN3').Value := fCan3;
sqlQuery.Parameters.ParamByName('CAN4').Value := fCan4;
sqlQuery.Parameters.ParamByName('CAN5').Value := fCan5;
sqlQuery.Parameters.ParamByName('CAN6').Value := fCan6;
sqlQuery.Parameters.ParamByName('CAN7').Value := fCan7;
sqlQuery.Parameters.ParamByName('CAN8').Value := fCan8;
sqlQuery.Parameters.ParamByName('CAN9').Value := fCan9;
sqlQuery.Parameters.ParamByName('GeoZone1').Value := bGeoZone1;
sqlQuery.Parameters.ParamByName('GeoZone2').Value := bGeoZone2;
sqlQuery.Parameters.ParamByName('GeoZone3').Value := bGeoZone3;
sqlQuery.Parameters.ParamByName('GeoZone4').Value := bGeoZone4;
sqlQuery.Parameters.ParamByName('GeoZone5').Value := bGeoZone5;
sqlQuery.Parameters.ParamByName('GeoZone6').Value := bGeoZone6;
sqlQuery.Parameters.ParamByName('GeoZone7').Value := bGeoZone7;
sqlQuery.Parameters.ParamByName('GeoZone8').Value := bGeoZone8;
sqlQuery.Parameters.ParamByName('GeoZone9').Value := bGeoZone9;
sqlQuery.Parameters.ParamByName('GeoZone10').Value := bGeoZone10;
sqlQuery.Parameters.ParamByName('GeoZone11').Value := bGeoZone11;
sqlQuery.Parameters.ParamByName('GeoZone12').Value := bGeoZone12;
sqlQuery.Parameters.ParamByName('GeoZone13').Value := bGeoZone13;
sqlQuery.Parameters.ParamByName('GeoZone14').Value := bGeoZone14;
sqlQuery.Parameters.ParamByName('GeoZone15').Value := bGeoZone15;
sqlQuery.Parameters.ParamByName('GeoZone16').Value := bGeoZone16;
sqlQuery.Parameters.ParamByName('GeoZone17').Value := bGeoZone17;
sqlQuery.Parameters.ParamByName('GeoZone18').Value := bGeoZone18;
sqlQuery.Parameters.ParamByName('GeoZone19').Value := bGeoZone19;
sqlQuery.Parameters.ParamByName('GeoZone20').Value := bGeoZone20;
sqlQuery.Parameters.ParamByName('VirtualOdometer').Value := dCurrOdometer;
sqlQuery.Parameters.ParamByName('CurrentOperatorCode').Value := sCurrOperatorCode;
sqlQuery.ExecSQL;
if iEventCode > -1 then
begin
if not InsertTrip(iCompanyId, sVehicleId,
iMessageId, dPositionDate,
dPositionTime, iEventCode,
sDriverId, sChargeId,
sGPSsStatus, dLatitude,
dLongitude, iHeading, iDriveType,
iNeedService,
(dCurrOdometer / 1000), iCurrSpeed, iCurrRPM,
iAccDeccValue, iSatellites,
iHardwareVer, iSoftVer, iBateryLevel,fAIN4,
sEventInfo, sErrMess) then
begin
WriteLog(1,'ERR',0,sVehicleId,sErrMess);
end;
end
else
begin
WriteLog(4,'INF',0,'0','Vehicle turned off, record was not inserted');
end;
end;
Result := true;
finally
sqlQuery.Free;
end;
except
on e: Exception do
begin
sErrMess := 'Error in UpdateCurrentVehicleData ' + e.Message;
end;
end;
end;