关于写文件的性能问题(200分)

追命 · 2002-09-12

我用assignfile、rewrite、writeln写文件，共15000个文件，95M，用时3小时。 其中包括数据库操作。我作过一些实验，如果去掉writeln操作，则用时不到10分钟， 生成全部文件（当然，文件全是空的），因此，可以认为时间几乎全部消耗在writeln上了。 不知能否用其他写文件的方式将此时间减少，提高效率，请各位大侠指点指点

boclif · 2002-09-12

用多线程

追命 · 2002-09-12

我想先确认一下，针对单个文件的写入，用什么方式写快一些。DELPHI中其他写文件的方法 好象有TFileStream.write，或用win api的writefile，我不知道这些是否快一些，而且， 我用writefile写不了，总错。

Adnil · 2002-09-12

把你的程序贴出来看看吧，writeln并不慢的。 TFileStream.write比writeln应该要快一些，缓冲得多。 另外，可以强制增加文件操作的缓冲 var   Buf: array[0..4096] of char;   F: TextFile; System.SetTextBuf(F, Buf);

追命 · 2002-09-12

下面的代码是一个函数，主程序是一个循环，每循环一次调用一次这个函数， 共循环15000次。文件的创建、关闭是在主程序中。写文件的时候使用了自己写 的函数。 procedure Tfrm_IDXML.makesubcategory(qrtemp:TAdoquery); var   str : string;   i : integer;   levelstr,orderstr : string; begin //   with dm do   begin     levelstr := '';     str := '';     str := str + 'select b.category_id,b.category_xml ';     str := str + ' from FEE_category_xml b,category a,category_temp c ';     str := str + ' where a.category_id = b.category_id ';     str := str + ' and a.category_id = c.category_id ';     str := str + ' and c.resource_count > 0 ';     str := str + ' and a.inuse = 1 ';     str := str + ' and a.father_id = ' + qrtemp.fieldbyname('category_id').asstring;     levelstr := ' and a.level_id = 0 ';     orderstr := ' order by a.orderno ';     runsql(str+levelstr+orderstr,qr_func); {}     writeutf8('<CurrentCategories>');     writeutf8(getCategoryNavStr(qrtemp.fieldbyname('category_longcode').asstring        ,qrtemp.fieldbyname('category_longname').asstring));     writeutf8('</CurrentCategories>');     if qr_func.RecordCount > 0 then     begin       writeutf8('<StyleCategories>' +                 '    <First><![CDATA[1]]></First>' +                 '    <Last><![CDATA['+inttostr(qr_func.recordcount)+']]></Last>' +                 '    <Total><![CDATA['+inttostr(qr_func.RecordCount)+']]></Total>' +                 '    <SubCatsResults>');       for i := 0 to qr_func.RecordCount - 1 do       begin         writeutf8(qr_func.fieldbyname('category_xml').asstring);         qr_func.Next;       end;//end for       writeutf8('        </SubCatsResults>'+                 '</StyleCategories>');     end;//end if   {}     qr_func.Close;     str := '';     str := str + 'select b.category_id,b.category_xml ';     str := str + ' from FEE_category_xml b,category a,category_temp c ';     str := str + ' where a.category_id = b.category_id ';     str := str + ' and a.category_id = c.category_id ';     str := str + ' and c.resource_count > 0 ';     str := str + ' and a.inuse = 1 ';     str := str + ' and a.father_id = ' + qrtemp.fieldbyname('category_id').asstring;     levelstr := ' and a.level_id = 1 ';     orderstr := ' order by a.orderno ';     runsql(str+levelstr+orderstr,qr_func);     if qr_func.RecordCount < 1 then     begin       qr_func.Close;       exit;     end;     writeutf8('<ContentCategories>' +         '    <First><![CDATA[1]]></First>' +         '    <Last><![CDATA['+inttostr(qr_func.recordcount)+']]></Last>' +         '    <Total><![CDATA['+inttostr(qr_func.RecordCount)+']]></Total>' +         '    <SubCatsResults>');     if qr_func.RecordCount > 0 then     begin       for i := 0 to qr_func.RecordCount - 1 do       begin         writeutf8(qr_func.fieldbyname('category_xml').asstring);         qr_func.Next;       end;//end for     end;//end if     writeutf8('        </SubCatsResults>' +         '</ContentCategories>');     qr_func.Close;   end;//end with end;//end makesubcategory //写文件的函数 procedure Tfrm_IDXML.writeutf8(s:string); begin   if cb_code.Checked then     writeln(f,ansitoutf8(s))   else     writeln(f,s); end;

lww · 2002-09-16

我用C++的<<操作，写1兆的文件感觉不到停顿的。

Adnil · 2002-09-16

你按我说的作过了吗？试试看！ 如果还是不行的话就用TFileStream

追命 · 2002-09-16

to lww:      这个操作转到DELPHI是什么操作？我现在写一个30M的文件，需要1小时 to Adnil:      我增加了缓存大小，但效果不大。另外，Buf最长可定义多少？

DarwinZhang · 2002-09-16

二进制文件读写函数： BlockRead BlockWrite 两个函数，缓存大于512K后速度非常快！

sichuan · 2003-05-19

//二进制文件读写函数： //BlockRead //BlockWrite //两个函数，缓存大于512K后速度非常快！ 我试过，本地30m文件，3秒搞定

yyii_yyii · 2003-05-26

加缓存，不要一行一行写，先写到缓存，一起存盘

boclif · 2003-06-15

我认为写大文件还是不要加缓存，直接写文件要快的多。

关于写文件的性能问题(200分)

追命

Unregistered / Unconfirmed

boclif

Unregistered / Unconfirmed

追命

Unregistered / Unconfirmed

Adnil

Unregistered / Unconfirmed

追命

Unregistered / Unconfirmed

lww

Unregistered / Unconfirmed

Adnil

Unregistered / Unconfirmed

追命

Unregistered / Unconfirmed

DarwinZhang

Unregistered / Unconfirmed

sichuan

Unregistered / Unconfirmed

yyii_yyii

Unregistered / Unconfirmed

boclif

Unregistered / Unconfirmed

Similar threads