Jump to content

limelect

Members
 View Profile  See their activity

  • Content Count

    781

  • Joined

  • Last visited

  • Days Won

    1

Posts posted by limelect

  3. Posted · Edited by limelect

    @Clément the only thing I see on FDTable is on

    FetchOption.mode is already fmOnDemand

     

    Let me clarify the point. Memory happens ONCE.

    Then everything is ok.

     

    If there was a real memory problem it should have been all the time

    want it?

    I am filtering the database upon writing a search text

    Each char one enter does a new filter.

    To be exact on   >>>> procedure TForm1.Edit6Change(Sender: TObject);

     

    (my database file 1.55GB)

  5. Posted · Edited by limelect

    My application has an out-of-memory error

    On the break the source wants FireDAC.DatS.pas which I do not have

    Any idea how to solve this? if possible

     

    P.S after the out of memory if i keep going it is ok

     

    The part that does it is 

      ProjectsFDTable.Filtered := false;
      ProjectsFDTable.FilterOptions := [foCaseInsensitive];
      case RadioGroup2.ItemIndex of
        0:
          begin //'%a%'
            ProjectsFDTable.Filter := {QuotedStr} 'ProjectrealName  LIKE ' +
            QuotedStr('%' + Edit6.Text + '%');  <<<
          end;
        1:
          begin
          end;
        2:
          begin
            ProjectsFDTable.Filter := {QuotedStr} 'Category  LIKE ' + QuotedStr('%'
              + Edit6.Text + '%');
          end;

      end;
      ProjectsFDTable.Filtered := True;

     

    However, I am not sure it is only here !!! but this is where i could trace the out of memory
     

     

  12. Posted · Edited by limelect

    If I understand your need add a flag to 

    GetDescription(FLAG: boolean) so your function will know where it came from

    Memo.lines.add(getDescription(true)) or label.caption:=getdescription(false)

  13. Posted

    @Remy Lebeau I am with D10.2.3. I run my application on the IDE and see afterward the Indy DCU that before they weren't there

    so I guess my software uses the compiled INDY. (on the source Delphi directory).

    I did not remove INDY but I am sure I compiled with INDY DCU I made.

    Well not to bother anymore I will leave the problem as it is.

    It does not affect my program.

     

    OUT OF CURIOSITY it is this program  https://limelect.com/downloads/document-projects/

     

    and thanks again

  14. Posted · Edited by limelect

    @Remy Lebeau I took your suggestion and BUILD indy 10 with

    {$DEFINE FREE_ON_FINAL} in the include

    Made sure I did compile (build) as I have all DCU in the indy directory

    And it did not help

    I am trying all kinds of solution that why

     

    Screenshot - 19_07_2022 , 19_40_02.jpg

  21. Posted

    Sorry to be misunderstood

    But in the above this is my question

    using IdHTTP := TIdHTTP.Create(nil) <<<< give me great amount of LEAKS,

    using  IdHTTP := TIdHTTP.Create(Form1); <<< it is OK

    Ver simple question

  24. Posted · Edited by limelect

    I solved my problem but i want to understand

    Using this function

    function GetUpDate(Link: string): string;
    var
      S: string;
      IdHTTP: TIdHTTP;
    begin
      IdHTTP := TIdHTTP.Create(nil);//Form1);
      try
        S := IdHTTP.Get(Link);
        result := S;
      except
        ShowMessage('Could not get VERSION information');
         end;

    IdHTTP.Free;
    end;

    using IdHTTP := TIdHTTP.Create(nil) <<<< give me great amount of LEAKS,

    using  IdHTTP := TIdHTTP.Create(Form1); <<< it is OK

    WHY thanks

×