Бесконечный график на TImage, требуется помощь в оптимизации!

[Ja`]

Доброго времени суток

Помогите, пожалуйста, с оптимизацией рисования "графика" на канвасе, тут проблемка вот в чем: дело в том, что данные читаются из файла, на движении мыши происходит смещение указателя в файле на определенную строку, так вот при работе с объемными файлами начинаются тормаза, собственно вот код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
    buf: array[0..99] of char;
    f :thandle;
    dwRead: DWORD;
  public
    { Public declarations }
    vFile: TextFile;
    x, yspeed, ydenc, yconc, vPos, dX, sX: integer;
    str, speed, denc, conc, vPref: string;
    MoveFlag: boolean;
    xPos, yPos: integer;
    Rect: TRect;

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
sX:=0;
MoveFlag:=false;
      f:=fileopen('temp.log',fmOpenReadWrite);
      x:=0;
      yspeed:=Image1.Height;
      ydenc:=Image2.Height;
      yconc:=Image3.Height;
      Image1.Canvas.Pen.Color:=clRed;
      Image1.Canvas.MoveTo(x,yspeed);
      Image2.Canvas.MoveTo(x,ydenc);
      Image3.Canvas.MoveTo(x,yconc);
      for i:=0 to Image1.Width do begin
        Inc(x);
        ReadFile(f, Buf, 31, dwRead, nil);
        str:=buf;
        vPos:=Pos(' ', str);
        vPref:=Copy(str, vPos+1, Length(str));
        str:=vPref;
        vPos:=Pos(' ', str);
        speed:=Copy(str, 0, vPos-1);
        yspeed:=Image1.Height-(Trunc(StrToFloat(speed))*8);
        if yspeed<0 then yspeed:=0;
        Image1.Canvas.LineTo(x,yspeed);
      end;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  moveFlag:=true;
  Screen.Cursor:=crSizeWE;
  xPos:=X;
  yPos:=Y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  moveFlag:=false;
  Screen.Cursor:=crDefault;
  sX:=dX;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var i:integer;
begin
  if moveFlag then begin
  Sleep(0);
  dX:=(xPos-X)+sX;
  if  dX < 0 then
    begin
    xPos:=X;
    dX:=0;
    exit;
  end;
  Rect:=Image1.ClientRect;  Image1.Canvas.FillRect(Rect);
      SetFilePointer(f, dX*31, nil, FILE_BEGIN);
      y:=Image1.Height;
      x:=0;
      for i:=0 to Image1.Width do begin
        Image1.Canvas.MoveTo(x,yspeed);
        Inc(x);
        ReadFile(f, Buf, 31, dwRead, nil);
        str:=buf;
        vPos:=Pos(' ', str);
        vPref:=Copy(str, vPos+1, Length(str));
        str:=vPref;
        vPos:=Pos(' ', str);
        speed:=Copy(str, 0, vPos-1);
        yspeed:=Image1.Height-(Trunc(StrToFloat(speed))*8);
        if yspeed<0 then yspeed:=0;
        Image1.Canvas.LineTo(x,yspeed);
      end;
  end;
end;

end.

часть файлика temp.log:

00 0006,2562 50 0050,04958678
00 0000,0005 66 0000,00873414
00 0072,0951 75 0000,01310111
00 0252,3314 80 0000,01746811
00 0216,2877 83 0000,02183508
00 0000,0414 85 0000,02586100
00 0151,3988 87 0000,03017106
00 0252,3363 88 0000,03448114
00 0216,2841 90 0000,03879118
00 0216,2841 90 0000,04310121
00 0189,2513 91 0000,04741119
00 0034,4091 92 0000,05172049
00 0012,2097 92 0000,05602806
00 0302,7977 93 0000,06033781
01 000000000 06 0000,00026011
01 0012,2097 11 0000,00052022
01 0012,3089 16 0000,00078033
01 0012,2097 21 0000,00104043
01 0012,3089 25 0000,00130054
01 0012,5124 28 0000,00156064
...

все строки имеют один и тот же формат...исходники прилагаются

[Ja`]

кстати вариант с Thread`ом можете не предлагать, он был рассмотрен и реализован, но не подходит для решения этого типа задачи. Может кто-нибудь подскажет более рациональный способ, чем этот?

[Stilet]

Мож не в тему, но почему б это не поручить TChart'у?

[Ja`]

Сообщение от Stilet

Мож не в тему, но почему б это не поручить TChart'у?

а с этого места можно по подробнее?...вот допустим я буду использовать TChart, какие преимущества я буду иметь?

[lexaltd]

C:\Program Files\Borland\Delphi7\Demos\TeeChar t
Посмотри тут , там есть пример - всё что может Chart

[mutabor]

Насколько большие будут файлы? Почему бы не грузить их в память? Будет намного быстрее, но зато в начале придется немного подождать. 1мб это вовсе не большой. Даже если 10 мб, если программа нужная, то это не много.

[Ja`]

Сообщение от mutabor

Насколько большие будут файлы? Почему бы не грузить их в память? Будет намного быстрее, но зато в начале придется немного подождать. 1мб это вовсе не большой. Даже если 10 мб, если программа нужная, то это не много.

Вообще задача состоит вот в чем: в TThread`e происходит вычисление данных и паралельно рисуется график по этим данным + данные записываются в файл. При нажатии клавишы мыши и ее движения вправо, отрисовка графика из трида прекращается и график начинает отрисовываться из файла(для просмотра того, что было нарисовано ранее), в этот момент трид скидывает данные в другой файл. Потом, допустим, по нажатии TButton файлы склеиваются в 1 файл и отрисовка графика опять идет с TThread`a. Поэтому не о каких задержках не может быть и речи, файлы могут достигать ну ооочень больших размеров
mutabor и на всякий случай подскажи как загрузить файл в ОЗУ

[Ja`]

Сообщение от Stilet

Мож не в тему, но почему б это не поручить TChart'у?

Сообщение от lexaltd

C:\Program Files\Borland\Delphi7\Demos\TeeChar t
Посмотри тут , там есть пример - всё что может Chart

Кстати спасибо, с ним действительно чуть по шустрее стало работать

[mutabor]

mutabor и на всякий случай подскажи как загрузить файл в ОЗУ

Можно просто в TStrings его погрузить методом LoadFromFile. А можно так: TFileStream ---> TMemoryStream, и он в памяти.

[Ja`]

Сообщение от mutabor

Можно просто в TStrings его погрузить методом LoadFromFile. А можно так: TFileStream ---> TMemoryStream, и он в памяти.

Спасибо, будем знать(: