læsning og skrivning til txt filer via win api...

Lytter lige med! :)

Altså Borland selv råder vist nok til at bruge AssignFile m.v.

Dog er fordelen ved WinAPI-kaldene så vidt jeg ved at de benytter sig af Windows' systemcache. Så hvis filen lige har været læst vil den forblive i hukommelsen et stykke tid. Tror jeg

Jeg har lige lavet et program der først henholdsvis skriver 100 Mb på med delphis rutiner og derefter skriver 100 Mb med Windows API rutinerne og foreskællen er minimal....

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ProgressBar1: TProgressBar;
    ProgressBar2: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  fil1 : file og byte;
  fil2 : integer;
  tmp : array of byte;
  Tid1,Tid2 : Double;
  i : integer;
begin
  SetLength(tmp,1024*1024);
  fillchar(tmp[1],1024*1024,200);

  Tid1 := now;
  AssignFile(fil1,'tmpfil1.tmp');
  ReWrite(Fil1,1);
  for i := 1 to 100 do
  begin
    BlockWrite(Fil1,tmp[1],Length(Tmp));
    ProgressBar1.Position := i;
  end;
  CloseFile(Fil1);
  Tid1 := now-Tid1;
  DeleteFile('tmpfil1.tmp');

  Tid2 := now;
  fil2 := FileCreate('tmpfil2.tmp');
  for i := 1 to 100 do
  begin
    FileWrite(Fil2,tmp[1],Length(Tmp));
    ProgressBar2.Position := i;
  end;
  FileClose(Fil2);
  Tid2 := now-Tid2;
  DeleteFile('tmpfil2.tmp');

  Tid1 := Tid1*24*60*60;
  Tid2 := Tid2*24*60*60;

  SetLength(tmp,0);
  Memo1.lines.add(format('Delphi fil rutiner          %3.3f sekunder',[Tid1]));
  Memo1.lines.add(format('Windows Api fil rutiner      %3.3f sekunder',[Tid2]));
end;

end.

btw. cms det er klart at borland råder folk til at bruge AssignFile osv. da det så er muligt at kompilere det samme program i linux

/klaus

brug Streams !

Kig på TfileStream ! You know the oo way !

Jens B

Placer en memo eller en RichEdit på din form + en Button.
I din Button1's OnClick skriver du:

memo1.lines.loadfromfile('fil.txt');

og hvis du skal gemme:
memo1.lines.savetofile('fil.txt');

den bruger også streams

ja men mit prob er at jeg har en logfil på et sted mellem 4 og 10mb der skal læses ind og omskrives.. i et console program.. så jeg er ude på at finde den hurtigste metode til at 1 læse min logfil og 2 skrive den ommodifiserede log

så en memo kan jeg ikke bruge til meget.. men, er den FIleSTream så meget hurtigere.. eller kan det bedre betale sig at bruge de winapi kald som cms mener bliver cashed??

skal nok også lige sige så at jeg læse en linie af gangen fra min log og ligesom parser den og så går jeg videre..

loke: prøvede lige din kode igennem.. og med de 100mb er der altså stadig en væsentlig forskel..

Delphi fil rutiner          17,405 sekunder
Windows Api fil rutiner      8,813 sekunder

8,5 sekunder kan man jo stadig se som en forbedrelse af min kode :D

Loke-liscom; vi kan nok godt blive enige om at der ikke er den storer forskel egentlig.. i det lange løb er de jo nogen lunde lige hurtige

Delphi fil rutiner          5,207 sekunder
Windows Api fil rutiner      9,003 sekunder
/// temmelig lang pause \\\
Delphi fil rutiner          16,844 sekunder
Windows Api fil rutiner      4,787 sekunder
Delphi fil rutiner          4,486 sekunder
Windows Api fil rutiner      5,578 sekunder
Delphi fil rutiner          6,850 sekunder
Windows Api fil rutiner      4,326 sekunder
Delphi fil rutiner          7,300 sekunder
Windows Api fil rutiner      4,477 sekunder
/// lille pause  \\\
Delphi fil rutiner          10,185 sekunder
Windows Api fil rutiner      13,029 sekunder
Delphi fil rutiner          4,516 sekunder
Windows Api fil rutiner      4,617 sekunder
///Pause på en 20 min \\\
Delphi fil rutiner          5,017 sekunder
Windows Api fil rutiner      4,887 sekunder
///Resten er kørt lige efter hinanden\\\
Delphi fil rutiner          4,636 sekunder
Windows Api fil rutiner      4,507 sekunder
Delphi fil rutiner          4,456 sekunder
Windows Api fil rutiner      4,647 sekunder
Delphi fil rutiner          4,547 sekunder
Windows Api fil rutiner      4,396 sekunder
Delphi fil rutiner          4,406 sekunder
Windows Api fil rutiner      4,557 sekunder

TFileStream bygger på Windows API kald WriteFile !

Jens B

nice..

mange tak borris.. også tak til jer andre og specielt loke.. havde sq ikke lige selv tænkt på at lave sådan en "benchmark" :D

Selv tak, det var rart at jeg kunne hjælpe....