Hello all,


I am sorry if this looks like a dummy question, but I've spent a few weeks on this problem, with no lucky.

I have a Delphi project that comprises a simple video playlist, which I control via a Query displayed by a DBGrid.

Each video has its own duration and a start 'forecast'. For instance:

The video forecast is calculated based on the previous video forecast+duration.
The first video forecast is set by the user ( 10:00:00 ) and all following video forecasts must be automatically calculated.

VideoName	duration 	forecast
video1		00:00:30	10:00:00
video2		00:00:45	10:00:30
video3		00:01:10	10:01:15


As this is a dynamic playlist, where videos can be added and removed or even swapped, I've create a Calculated Field and implemented the OnCalcFields method to handle the start forecast values.

The algorithm part is OK ( I guess ) but my problem lies in the technical aspects !

I cannot find a feaseble and relieable way to get the forecast value from the previuos video in order to calculate the current video start forecast.

All option I found implies in browsing the DataSet back and forth to get the data value. Which is not a good solution. 

Also, I cannot use a query to get the value because this is a calculated field, thus non persistent.


I could not find a way to get the Calculated field value, without having to browse thru the table.

Any quess ?

Well... again, I am sorry for the dummy questions.


Márcio

Marcio Correa wrote:
> Hello all,
> 
> 
> I am sorry if this looks like a dummy question, but I've spent a few weeks on this problem, with no lucky.
> 
> I have a Delphi project that comprises a simple video playlist, which I control via a Query displayed by a DBGrid.
> 
> Each video has its own duration and a start 'forecast'. For instance:
> 
> The video forecast is calculated based on the previous video forecast+duration.
> The first video forecast is set by the user ( 10:00:00 ) and all following video forecasts must be automatically calculated.
> 
> VideoName	duration 	forecast
> video1		00:00:30	10:00:00
> video2		00:00:45	10:00:30
> video3		00:01:10	10:01:15
> 
> 
> As this is a dynamic playlist, where videos can be added and removed or even swapped, I've create a Calculated Field and implemented the OnCalcFields method to handle the start forecast values.
> 
> The algorithm part is OK ( I guess ) but my problem lies in the technical aspects !
> 
> I cannot find a feaseble and relieable way to get the forecast value from the previuos video in order to calculate the current video start forecast.
> 
> All option I found implies in browsing the DataSet back and forth to get the data value. Which is not a good solution. 
> 
> Also, I cannot use a query to get the value because this is a calculated field, thus non persistent.
> 
> 
> I could not find a way to get the Calculated field value, without having to browse thru the table.
> 
> Any quess ?
> 
> Well... again, I am sorry for the dummy questions.
> 
> 
> Márcio

One way I can think of is if you are using client datasets in your OnCalcFields 
create a second and clone the cursor.  Then walk it calculating each value until 
you get to the current record in the main dataset.  Should actually be fairly 
fast to do.

-- 
Jeff Overcash (TeamB)
       (Please do not email me directly unless  asked. Thank You)
And so I patrol in the valley of the shadow of the tricolor
I must fear evil. For I am but mortal and mortals can only die.
Asking questions, pleading answers from the nameless
faceless watchers that stalk the carpeted  corridors of Whitehall.
              (Fish)

> {quote:title=Jeff Overcash (TeamB) wrote:}{quote}
> Marcio Correa wrote:
> > Hello all,
> > 
> > 
> > I am sorry if this looks like a dummy question, but I've spent a few weeks on this problem, with no lucky.
> > 
> > I have a Delphi project that comprises a simple video playlist, which I control via a Query displayed by a DBGrid.
> > 
> > Each video has its own duration and a start 'forecast'. For instance:
> > 
> > The video forecast is calculated based on the previous video forecast+duration.
> > The first video forecast is set by the user ( 10:00:00 ) and all following video forecasts must be automatically calculated.
> > 
> > VideoName	duration 	forecast
> > video1		00:00:30	10:00:00
> > video2		00:00:45	10:00:30
> > video3		00:01:10	10:01:15
> > 
> > 
> > As this is a dynamic playlist, where videos can be added and removed or even swapped, I've create a Calculated Field and implemented the OnCalcFields method to handle the start forecast values.
> > 
> > The algorithm part is OK ( I guess ) but my problem lies in the technical aspects !
> > 
> > I cannot find a feaseble and relieable way to get the forecast value from the previuos video in order to calculate the current video start forecast.
> > 
> > All option I found implies in browsing the DataSet back and forth to get the data value. Which is not a good solution. 
> > 
> > Also, I cannot use a query to get the value because this is a calculated field, thus non persistent.
> > 
> > 
> > I could not find a way to get the Calculated field value, without having to browse thru the table.
> > 
> > Any quess ?
> > 
> > Well... again, I am sorry for the dummy questions.
> > 
> > 
> > Márcio
> 
> One way I can think of is if you are using client datasets in your OnCalcFields 
> create a second and clone the cursor.  Then walk it calculating each value until 
> you get to the current record in the main dataset.  Should actually be fairly 
> fast to do.
> 
> -- 
> Jeff Overcash (TeamB)
>        (Please do not email me directly unless  asked. Thank You)
> And so I patrol in the valley of the shadow of the tricolor
> I must fear evil. For I am but mortal and mortals can only die.
> Asking questions, pleading answers from the nameless
> faceless watchers that stalk the carpeted  corridors of Whitehall.
>               (Fish)


Hello Jeff,

Thanks for your reply.

I was not using a ClientDataSet, but the Query directly set in the DataSource and DBGRID.

I've implemented a TClientDataSet in my app and I can see it works as expected, I can move the cursor really fast and this does not change the actual dataset displayed in the UI.

But... if I try to move the ClientDataSet cursor from the OnCalcFields() I will get an error saying the DataSet is closed, this happens because, during OnCalcFields, the dataset is still closed.

Now, I am not sure if I got what you said about cloning the dataset. Could you please send me an example ?

Thank you so much!


Márcio,

Marcio Correa wrote:
>> {quote:title=Jeff Overcash (TeamB) wrote:}{quote}
>> Marcio Correa wrote:
>>> Hello all,
>>>
>>>
>>> I am sorry if this looks like a dummy question, but I've spent a few weeks on this problem, with no lucky.
>>>
>>> I have a Delphi project that comprises a simple video playlist, which I control via a Query displayed by a DBGrid.
>>>
>>> Each video has its own duration and a start 'forecast'. For instance:
>>>
>>> The video forecast is calculated based on the previous video forecast+duration.
>>> The first video forecast is set by the user ( 10:00:00 ) and all following video forecasts must be automatically calculated.
>>>
>>> VideoName	duration 	forecast
>>> video1		00:00:30	10:00:00
>>> video2		00:00:45	10:00:30
>>> video3		00:01:10	10:01:15
>>>
>>>
>>> As this is a dynamic playlist, where videos can be added and removed or even swapped, I've create a Calculated Field and implemented the OnCalcFields method to handle the start forecast values.
>>>
>>> The algorithm part is OK ( I guess ) but my problem lies in the technical aspects !
>>>
>>> I cannot find a feaseble and relieable way to get the forecast value from the previuos video in order to calculate the current video start forecast.
>>>
>>> All option I found implies in browsing the DataSet back and forth to get the data value. Which is not a good solution. 
>>>
>>> Also, I cannot use a query to get the value because this is a calculated field, thus non persistent.
>>>
>>>
>>> I could not find a way to get the Calculated field value, without having to browse thru the table.
>>>
>>> Any quess ?
>>>
>>> Well... again, I am sorry for the dummy questions.
>>>
>>>
>>> Márcio
>> One way I can think of is if you are using client datasets in your OnCalcFields 
>> create a second and clone the cursor.  Then walk it calculating each value until 
>> you get to the current record in the main dataset.  Should actually be fairly 
>> fast to do.
>>
>> -- 
>> Jeff Overcash (TeamB)
>>        (Please do not email me directly unless  asked. Thank You)
>> And so I patrol in the valley of the shadow of the tricolor
>> I must fear evil. For I am but mortal and mortals can only die.
>> Asking questions, pleading answers from the nameless
>> faceless watchers that stalk the carpeted  corridors of Whitehall.
>>               (Fish)
> 
> 
> Hello Jeff,
> 
> Thanks for your reply.
> 
> I was not using a ClientDataSet, but the Query directly set in the DataSource and DBGRID.
> 
> I've implemented a TClientDataSet in my app and I can see it works as expected, I can move the cursor really fast and this does not change the actual dataset displayed in the UI.
> 
> But... if I try to move the ClientDataSet cursor from the OnCalcFields() I will get an error saying the DataSet is closed, this happens because, during OnCalcFields, the dataset is still closed.
> 
> Now, I am not sure if I got what you said about cloning the dataset. Could you please send me an example ?
> 
> Thank you so much!
> 
> 
> Márcio,

Post your OnCalcFields procedure.

-- 
Jeff Overcash (TeamB)
       (Please do not email me directly unless  asked. Thank You)
And so I patrol in the valley of the shadow of the tricolor
I must fear evil. For I am but mortal and mortals can only die.
Asking questions, pleading answers from the nameless
faceless watchers that stalk the carpeted  corridors of Whitehall.
              (Fish)

> {quote:title=Jeff Overcash (TeamB) wrote:}{quote}
> Marcio Correa wrote:
> >> {quote:title=Jeff Overcash (TeamB) wrote:}{quote}
> >> Marcio Correa wrote:
> >>> Hello all,
> >>>
> >>>
> >>> I am sorry if this looks like a dummy question, but I've spent a few weeks on this problem, with no lucky.
> >>>
> >>> I have a Delphi project that comprises a simple video playlist, which I control via a Query displayed by a DBGrid.
> >>>
> >>> Each video has its own duration and a start 'forecast'. For instance:
> >>>
> >>> The video forecast is calculated based on the previous video forecast+duration.
> >>> The first video forecast is set by the user ( 10:00:00 ) and all following video forecasts must be automatically calculated.
> >>>
> >>> VideoName	duration 	forecast
> >>> video1		00:00:30	10:00:00
> >>> video2		00:00:45	10:00:30
> >>> video3		00:01:10	10:01:15
> >>>
> >>>
> >>> As this is a dynamic playlist, where videos can be added and removed or even swapped, I've create a Calculated Field and implemented the OnCalcFields method to handle the start forecast values.
> >>>
> >>> The algorithm part is OK ( I guess ) but my problem lies in the technical aspects !
> >>>
> >>> I cannot find a feaseble and relieable way to get the forecast value from the previuos video in order to calculate the current video start forecast.
> >>>
> >>> All option I found implies in browsing the DataSet back and forth to get the data value. Which is not a good solution. 
> >>>
> >>> Also, I cannot use a query to get the value because this is a calculated field, thus non persistent.
> >>>
> >>>
> >>> I could not find a way to get the Calculated field value, without having to browse thru the table.
> >>>
> >>> Any quess ?
> >>>
> >>> Well... again, I am sorry for the dummy questions.
> >>>
> >>>
> >>> Márcio
> >> One way I can think of is if you are using client datasets in your OnCalcFields 
> >> create a second and clone the cursor.  Then walk it calculating each value until 
> >> you get to the current record in the main dataset.  Should actually be fairly 
> >> fast to do.
> >>
> >> -- 
> >> Jeff Overcash (TeamB)
> >>        (Please do not email me directly unless  asked. Thank You)
> >> And so I patrol in the valley of the shadow of the tricolor
> >> I must fear evil. For I am but mortal and mortals can only die.
> >> Asking questions, pleading answers from the nameless
> >> faceless watchers that stalk the carpeted  corridors of Whitehall.
> >>               (Fish)
> > 
> > 
> > Hello Jeff,
> > 
> > Thanks for your reply.
> > 
> > I was not using a ClientDataSet, but the Query directly set in the DataSource and DBGRID.
> > 
> > I've implemented a TClientDataSet in my app and I can see it works as expected, I can move the cursor really fast and this does not change the actual dataset displayed in the UI.
> > 
> > But... if I try to move the ClientDataSet cursor from the OnCalcFields() I will get an error saying the DataSet is closed, this happens because, during OnCalcFields, the dataset is still closed.
> > 
> > Now, I am not sure if I got what you said about cloning the dataset. Could you please send me an example ?
> > 
> > Thank you so much!
> > 
> > 
> > Márcio,
> 
> Post your OnCalcFields procedure.
> 
> -- 
> Jeff Overcash (TeamB)
>        (Please do not email me directly unless  asked. Thank You)
> And so I patrol in the valley of the shadow of the tricolor
> I must fear evil. For I am but mortal and mortals can only die.
> Asking questions, pleading answers from the nameless
> faceless watchers that stalk the carpeted  corridors of Whitehall.
>               (Fish)




Hello Jeff

I am sorry for the delay... I´ve been out for a while.

Thre you go:

Please, disregard all the string and datetime conversions... this is just a POC.
My actual code handles it in different way, but I still need the same problem.

Probably I dont know how to work with ClientDataSets.

ZQuery1qt_prev is my Calculated Field.



procedure TForm1.ZQuery1CalcFields(DataSet: TDataSet);
begin

    if ZQuery1qt_entrada.Value <> '' then
    begin
      ZQuery1qt_prev.Value := ZQuery1qt_entrada.Value;
    end
    else
      begin

        ZQuery1qt_prev.Value := getUltimaPrev(ZQuery1id_posicao.Value);

      end;


end;


function TForm1.getUltimaPrev(pos : integer): String;
var
  duracao, previsao  : String;
  dtPrevisao : String;

begin

  cds2 := TClientDataSet.Create(nil);

  cds2.CloneCursor(cdsTemp,false,false);

  if cds2.Locate('id_posicao',pos-1,[loCaseInsensitive]) then
  begin

    previsao := cds2.fieldbyname('qt_prev').AsString;
    duracao := cds2.fieldbyname('qt_duracao').AsString;

    if previsao = '' then previsao := '00:00:00';
    if duracao = '' then duracao := '00:00:00';


    dtPrevisao := Timetostr ( strtotime(duracao) + strtotime(previsao));

  end;

  result := dtPrevisao;

end;


Thank you so much !