asked on

TClientDataSet

I need to save a table to a file. I'm using ClientDataSet1.SaveToFile procedure, the problem is when the table has many records I get a "Insufficient memory for this operation" error message.
The table has over 50000 records with a Blob field on each record. My computer has 4GB of RAM.
Am I missing something?

BdLm

a) some tutorial about TClientdataset is here : http://delphi.about.com/od/usedbvcl/a/tclientdataset.htm

b) your code is OK with a low number of records ?

c) what about a different way to export a table to HTML or XML ?

BdLm

eg. save table as XML

{******************************************************************************
 *   Save a Table as XML, Using MSXML
 *
 *   Input:  TTable
 *           Filename :   String;
 *   OutPut:
 *
 *
 ******************************************************************************}
 
function SaveTableAsXml(table: TTable; Filename :  String): Integer;
var
 
 
 
  doc                 : IXMLDOMDocument;
  root, child, child1 : IXMLDomElement;
  text1, text2        : IXMLDOMText;
  nlist               : IXMLDOMNodelist;
 
 
 
 
  i   : Integer;
  xml,temp : String;
begin
 try
  table.close;
  table.open;
  xml  := 'WorkingTable';
  doc  := CreateOleObject('Microsoft.XMLDOM') as IXMLDomDocument;
 
 
  //Set the root name of the xml file as that of the table name.
  //In this case "country"
  root := doc.createElement(xml);
  doc.appendchild(root);
 
  //This while loop will go through the entire table to generate the xml file
  while not table.eof do begin
 
   //adds the first level children , Records
   child:= doc.createElement('Records');
   root.appendchild(child);
   for i:=0 to table.FieldCount-1 do begin
     //adds second level children
    child1 := doc.createElement
              (table.Fields[i].FieldName);
    child.appendchild(child1);
 
 
    //Check field types
    case TFieldType
    (Ord(table.Fields[i].DataType)) of
    ftString:
    begin
     if Table.Fields[i].AsString ='' then
      temp :='null'  //Put a default string
     else
      temp := table.Fields[i].AsString;
    end;
 
    ftInteger, ftWord, ftSmallint:
    begin
     if Table.Fields[i].AsInteger > 0 then
      temp := IntToStr(table.Fields[i].AsInteger)
     else
      temp := '0';
    end;
 
    ftFloat, ftCurrency, ftBCD:
    begin
     if table.Fields[i].AsFloat > 0 then
      temp := FloatToStr(table.Fields[i].AsFloat)
     else
      temp := '0';
    end;
 
    ftBoolean:
    begin
     if table.Fields[i].Value then
      temp:= 'True'
     else
      temp:= 'False';
    end;
 
    ftDate:
    begin
     if (not table.Fields[i].IsNull) or
        (Length(Trim(table.Fields[i].AsString))
        > 0) then
      temp := FormatDateTime
               ('MM/DD/YYYY',
               table.Fields[i].AsDateTime)
     else
      //put a valid default date
      temp:= '01/01/2000';
    end;
 
    ftDateTime:
    begin
     if (not table.Fields[i].IsNull) or
        (Length(Trim(table.Fields[i].AsString))
        > 0) then
      temp := FormatDateTime
              ('MM/DD/YYYY hh:nn:ss',
              table.Fields[i].AsDateTime)
     else
      //Put a valid default date and time
      temp := '01/01/2000 00:00:00';
    end;
 
    ftTime:
    begin
     if (not table.Fields[i].IsNull) or
        (Length(Trim(table.Fields[i].AsString))
        > 0) then
      temp := FormatDateTime
              ('hh:nn:ss',
              table.Fields[i].AsDateTime)
     else
       //Put a valid default time
      temp := '00:00:00';
    end;
   end;
    child1.appendChild(doc.createTextNode(temp));
  end;
  table.Next;
 end;
 
  doc.save(Filename);
 
  Result:=1;
 except
   on e:Exception do
     Result:=-1;
 end;
end;